Форум: "Начинающим";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];

Вниз

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

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

---

← →
Джо ©   (2006-07-20 20:29) [6]

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

var
 H: THandle;
begin
 H := FindWindow (nil,"D:\Test\Window");

 if H <> 0 then
   PostMessage (H,WM_CLOSE,0,0)
 else
   RaiseLastOSError
end;



---

← →
Ivolg ©   (2006-07-20 20:33) [7]


.....
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;


---

← →
Ivolg ©   (2006-07-20 20:38) [8]

>PSPF2003

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

---

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

Форум: "Начинающим";
Текущий архив: 2006.08.06;
Скачать: [xml.tar.bz2];

Наверх

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