Сообщение

← →
Ivolg © (2006-07-20 20:00) [0]

Как послать окну сообщение о закрытии ?

← →
StriderMan © (2006-07-20 20:05) [1]

SendMessage(Handle, WM_CLOSE, 0, 0)

← →
Ivolg © (2006-07-20 20:14) [2]

>StriderMan

Спасибо...

← →
Ivolg © (2006-07-20 20:24) [3]

>StriderMan © (20.07.06 20:05) [1]

SendMessage(Handle, WM_CLOSE, 0, 0)

С помощью это когда я немогу закрыть созданное окно: D:\Test\Window\,
а программные окна почему-то закрываются...

← →
Мефисто (2006-07-20 20:27) [4]

> С помощью это когда я немогу закрыть созданное окно: D:\Test\Window\,

Это не код. Подробней, будтье любезны :)

← →
PSPF2003 © (2006-07-20 20:29) [5]

SendMessage(Handle, WM_quit, 0, 0) ??
PostMessage(Handle, wm_Close,0,0) ??

PostMessage, то есть, примерно, так:

var H: THandle; begin H := FindWindow (nil,"D:\Test\Window"); if H <> 0 then PostMessage (H,WM_CLOSE,0,0) else RaiseLastOSError end;

..... var Form1: TForm1; SelWindow: HWND; WName: string; ...... procedure TForm1.Button1Click(Sender: TObject); begin WName:="D:\Test\Window"; // Дирректория открытия... ShellExecute(0,"open", PChar(WName), nil, nil, SW_Show); // Открываем окно... SelWindow:=FindWindow(nil,PChar(WName)); // Находим Handle окна по его заголовку... GetWindowExParams(SelWindow); // Получаем необходимую информацию... SendMessage(SelWindow,WM_CLOSE,0,0); // Зкрываем окно... (Оно незакрывается ) end;

>PSPF2003

Спасибо ! PostMessage подашел...

Сообщение Найти похожие ветки