Эта программа активизирует то окно, над которым находится мышь.
procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(FindWindow('Progman', 'Program Manager'),
WM_CLOSE, 0, 0);
end;
email: delphi4all@narod.ru
Вызвать диалог "Завершение работы с Windows" |
ОГЛАВЛЕНИЕ HOME MAIL |
|
Для того, чтобы вызвать стандартный диалог "Завершение работы с Windows", появляющийся по команде "Пуск | Завершение работы...", нужно послать сообщение WM_CLOSE окну "Program Manager". Эта программа активизирует то окно, над которым находится мышь. procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(FindWindow('Progman', 'Program Manager'),
WM_CLOSE, 0, 0);
end;
email: delphi4all@narod.ru | |