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

← →
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

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;

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