Delphi

[Jigit]

Действительно. Чего много, так это ошибок.

[Серый]

Изменяем надпись кнопки пуск.
Для начала создайте какой-нибудь Bitmap, который вы будете натягивать на кнопку [т.к. такого понятия как "заголовок кнопки ПУСК" в действительности не существует], а та надпись, что находится на стартовой кнопке, является рисунком. Создавая рисунок, учитывайте размеры и то, что левая сторона должна быть "плоской", как у нас на рисунке слева, это связано с особенностями наложения.

Далее займёмся проектом. Сначала объявляем глобальные переменные

StartButton: hWnd;
OldBitmap: THandle;
NewImage: TPicture;

Затем описываем событие по создания окна [OnCreate]:

procedure TForm1.FormCreate(Sender: TObject);
begin
NewImage := TPicture.create;
NewImage.LoadFromFile('C:\Windows\delphi.BMP'); //здесь укажите путь к нужному файлу
StartButton := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil);
OldBitmap := SendMessage(StartButton, BM_SetImage, 0, NewImage.Bitmap.Handle);
end;

Если вы делаете это на своей машине, то можете всё восстанавливать по событию OnDestroy:

procedure TForm1.FormDestroy(Sender: TObject);
begin
SendMessage(StartButton, BM_SetImage, 0, OldBitmap);
NewImage.Free;
end;

Делаю все как тут. А не меняется в чем проблема ???

[NatriXX]

Дебилизм, или Проблемы с WinAPI в Windows XP SP1.
В общем, проблема следующая:

Нужно сделать программно отключение компьютера. Shutdown, проще говоря. Желателно ломом, то бишь принудительно завершая все работающие приложения. Облом.

При использовании ExitWindows система делает LogOff, вываливается к экрану приветствия, но отключать комп не желает.
Пишу ExitWindowsEx с параметрами:
EWX_FORCE - опять LogOff, EWX_SHUTDOWN и EWX_POWEROFF - никакой реакции в принципе.

Очень надо сделать PowerOff из проги по таймеру, поскольку есть нехорошая привычка спать на клавиатуре Может, кто сталкивался...

[Серый]

Дебилизм, или Проблемы с WinAPI в Windows XP SP1.
В общем, проблема следующая:

Нужно сделать программно отключение компьютера. Shutdown, проще говоря. Желателно ломом, то бишь принудительно завершая все работающие приложения. Облом.

При использовании ExitWindows система делает LogOff, вываливается к экрану приветствия, но отключать комп не желает.
Пишу ExitWindowsEx с параметрами:
EWX_FORCE - опять LogOff, EWX_SHUTDOWN и EWX_POWEROFF - никакой реакции в принципе.

Очень надо сделать PowerOff из проги по таймеру, поскольку есть нехорошая привычка спать на клавиатуре Может, кто сталкивался...

Я тожа не знал как делать, а потом у меня появился файлик, который запускаешь с определённым параметром (надеюсь понятно че ето) и он выполняет указанную команду - выкл, перезагр, однако даже сп. реж. есть.

[BATMEN]

Можно так сделать, коряво конечно, но работать будет:

Код: Выделить всё

 WinExec('shutdown -s -t 60', SW_HIDE);

Можно даже удаленный комп вырубать. Ключи можешь поглядеть набрав в командной строке shutdown, там дофига чего есть, даже принудительное закрытие всех программ (хотя они и так закрываются). НУ а с таймером разберешся поди.

[NatriXX]

ЫЫ, сделал , надыбал пару процедур в Delphi World 6... Все работает, просто в ХР\НТ надо кое-какие привилегии дополнительные... Как-нить листинг кидану... Ближе к Новому Году...

[Серый]

Я тут программку замутил - календарик на раб. стол. Че самое интересное - это то что он ресурсов системы ваще не жрёт. 0 б.
Времени на ее доработку пока нет. Доделаю выложу как нить.
Ща я игру на DirectX-е пишу (двухмерную). Кстати кто - нибудь знает его ???

[Pink]

Я тут программку замутил - календарик на раб. стол. Че самое интересное - это то что он ресурсов системы ваще не жрёт. 0 б.
Времени на ее доработку пока нет. Доделаю выложу как нить.
Ща я игру на DirectX-е пишу (двухмерную). Кстати кто - нибудь знает его ???

Серый, есть возможность выложить DirectX!?

[Серый]

Я тут программку замутил - календарик на раб. стол. Че самое интересное - это то что он ресурсов системы ваще не жрёт. 0 б.
Времени на ее доработку пока нет. Доделаю выложу как нить.
Ща я игру на DirectX-е пишу (двухмерную). Кстати кто - нибудь знает его ???

Серый, есть возможность выложить DirectX!?

у меня тока 9. может завтра или после завтра выложу на медиа архиве. Тока куда ???аааа запихну в разное

[Pink]

Я тут программку замутил - календарик на раб. стол. Че самое интересное - это то что он ресурсов системы ваще не жрёт. 0 б.
Времени на ее доработку пока нет. Доделаю выложу как нить.
Ща я игру на DirectX-е пишу (двухмерную). Кстати кто - нибудь знает его ???

Серый, есть возможность выложить DirectX!?

у меня тока 9. может завтра или после завтра выложу на медиа архиве. Тока куда ???аааа запихну в разное

Я не так понял, вообще мне надо DelphiX.

[Серый]

Серый, есть возможность выложить DirectX!?

у меня тока 9. может завтра или после завтра выложу на медиа архиве. Тока куда ???аааа запихну в разное

Я не так понял, вообще мне надо DelphiX.

Ясно, а чем тебе DirectX не по душе ???

[Pink]

у меня тока 9. может завтра или после завтра выложу на медиа архиве. Тока куда ???аааа запихну в разное

Я не так понял, вообще мне надо DelphiX.

Ясно, а чем тебе DirectX не по душе ???

То-есть, это компонент для делфи или нет?
Мне казалось, что DephiX работает с DirectX в паре.

[Серый]

Я не так понял, вообще мне надо DelphiX.

Ясно, а чем тебе DirectX не по душе ???

То-есть, это компонент для делфи или нет?
Мне казалось, что DephiX работает с DirectX в паре.

Ну DirectX - это ваще не компонент - это модули (много), а DelphiX - это компонент, при помощи которого и пишешь ты игры. Но он просто не так быстро отображает. В DirectX нада все делать своими ручками, а в DelphiX написал функцию в одну строчку он и сделал все че ему велят !!! В DelphiX нелзя работать без формы. и еще много отличий !!!

[Серый]

Народ ! Не подскажете ли вы мне как повернуть спрайт в DirectX на заданный угол.

[Pink]

Чем можно компелировать resfile.rc в resfile.res

[Серый]

Чем можно компелировать resfile.rc в resfile.res

Если ты про то что я думаю то вот - "...\Borland\Delphi7\Binbrcc32.exe"

[Pink]

Чем можно компелировать resfile.rc в resfile.res

Если ты про то что я думаю то вот - "...\Borland\Delphi7\Bin\brcc32.exe"

Brcc32.exe открывшись, закрывается.

[Серый]

Чем можно компелировать resfile.rc в resfile.res

Если ты про то что я думаю то вот - "...\Borland\Delphi7\Bin\brcc32.exe"

Brcc32.exe открывшись, закрывается.

А ты через фар или типа его.

[Bad santa]

Если ты про то что я думаю то вот - "...\Borland\Delphi7\Bin\brcc32.exe"

Brcc32.exe открывшись, закрывается.

А ты через фар или типа его.

Сергей Александрович ты самый умный однако

[Серый]

Brcc32.exe открывшись, закрывается.

А ты через фар или типа его.

Сергей Александрович ты самый умный однако

Как ты догадался ?
Просто даю консультации. Мне ыб и самому она не помешала дык ни кто ее не даёт !!!

[Серый]

А у меня вопрос !

Например, у меня есть две точки. Как переместить нууу... допустим кнопку, картинку или любой другой объект от одной точки к другой по прямой ???

[neXeuse]

А у меня вопрос !

Например, у меня есть две точки. Как переместить нууу... допустим кнопку, картинку или любой другой объект от одной точки к другой по прямой ???

Вот тут надо на кнопку тыкнуть,она и с зеленого на красный квадрат перейдет.

[NatriXX]

Чем можно компелировать resfile.rc в resfile.res

Если ты про то что я думаю то вот - "...\Borland\Delphi7\Bin\brcc32.exe"

Brcc32.exe открывшись, закрывается.

Хых... Пуск - Выполнить - cmd.exe - brcc32.exe /?
Там все написано

[Серый]

А у меня вопрос !

Например, у меня есть две точки. Как переместить нууу... допустим кнопку, картинку или любой другой объект от одной точки к другой по прямой ???

Вот тут надо на кнопку тыкнуть,она и с зеленого на красный квадрат перейдет.

Псиба !!!

[neXeuse]

А у меня вопрос !

Например, у меня есть две точки. Как переместить нууу... допустим кнопку, картинку или любой другой объект от одной точки к другой по прямой ???

Вот тут надо на кнопку тыкнуть,она и с зеленого на красный квадрат перейдет.

Псиба !!!

Пжалста !!!