Текущий архив: 2003.01.30;
Скачать: CL | DM;

Вниз

Почему не робит этот кусок кода   Найти похожие ветки 

← →
maxim2 ©   (2002-11-20 11:30) [0]

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:37) [1]

Либо CloseWindow() -- может тоже не сработать, либо
WM_SYSCOMMAND с SC_CLOSE.

---

← →
Слесарь Матерящийся   (2002-11-20 11:38) [2]

Да. Если это окно системы, то точно не сработает.

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.30;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.021 c