Delphi, вызываем окно завершение работы Windows

Опубиковано: 14.07.2008 г., автор: , просмотров: 24873

Delphi вызываем окно Завершение работы

В данном микроскопическом уроке я покажу вам как программно можно вызвать окно Завершение работы Windows.
Я надеюсь Delphi у вас уже открыт, поэтому кидаем на форму компонент Button с закладки Standart, создаем на нем обработчик событий OnClick.

Полный листинг обработчика событий OnClick:

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage (FindWindow ('Progman', 'Program Manager'), WM_CLOSE, 0, 0);
end;

На этом всё!
До связи, DelphiExpert.ru

P.S. Не забываем подписываться на бесплатную мультимедийную рассылку.
Форма для подписки расположена с права и с лева.



Похожие материалы

Последние из рубрики

---------- 04 Апр 2013 в 00:00 #
а какой модуль в uses надо подключить ?
Нектюком 09 Апр 2012 в 00:00 #
ярлык на рабочем столе - легко:
1. в FormCreate прописываем:
Form1.Close;

в FormDestroy прописываем код, который из урока!
HITMAN$47$ 22 Ноя 2011 в 00:00 #
Автор молодец! Сайт рулит!!! Спасибо!
melki 09 Июн 2011 в 00:00 #
нашёл код который выключает компьютер сразу, кому надо пользуетесь)))
procedure TForm1.FormCreate(Sender: TObject);
var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;
begin
if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then
begin
LookupPrivilegeValue(nil, ′SeShutdownPrivilege′, tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
ExitWindowsEx(EWX_ShutDown,0);// Выключение
end;
end;
melki 08 Июн 2011 в 00:00 #
а какой код нужен чтоб по клику сразу выключался компьютер???
отдельное спасибо автору))

ОтменитьДобавить комментарий