| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Почему не робит этот кусок кода [D6, Win95/98]
maxim2 © (2002-11-20 11:30:00)procedure TForm2.Timer1Timer(Sender: TObject);
var
H : HWND;
begin
H := FindWindow (nil, "Завершение работы программы");
If H <> 0 then SendMessage (H, WM_CLOSE, 0, 0);
end;
end.
в чем проблема почему не закрывает
Слесарь Матерящийся (2002-11-20 11:38:00) [1]Да. Если это окно системы, то точно не сработает.
Слесарь Матерящийся (2002-11-20 11:37:00) [2]Либо CloseWindow() -- может тоже не сработать, либо
WM_SYSCOMMAND с SC_CLOSE.
| |
