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

Вниз

поможите пожалуюста , сам бы да примерчик засеял ...   Найти похожие ветки 

← →
Pavel-ak   (2002-10-11 11:42) [0]

а задача следующая - открывается у нас окошко Виндовс и если заголовок окна = " окно 1" , то закрываем окно.

Спасибо всем.

---

← →
Song ©   (2002-10-11 13:20) [1]

FindWindow() --> WM_CLOSE

---

← →
SVM (Perm)   (2002-10-11 14:02) [2]

Или WM_SYSCOMMAND,SC_CLOSE

---

← →
Polox ©   (2002-10-11 16:23) [3]

Song& SVM ПРАВЫ


procedure TForm1.Button1Click(Sender: TObject);
VAr
WindowHandle: hwnd;
WndClass:TWndClass;
S:PChar;
begin

S:=PChar(Edit1.Text);

WindowHandle:=FindWindow(nil,S);
SendMessage(WindowHandle, WM_SYSCOMMAND, SC_CLOSE, 0);

End;

---

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

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

Наверх

Память: 0.47 MB
Время: 0.012 c