| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сообщение

Ivolg ©   (2006-07-20 20:00:00) 

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

---

Ivolg   (2006-07-20 20:38:00) [1]

>PSPF2003

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

---

Ivolg   (2006-07-20 20:33:00) [2]


.....
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   (2006-07-20 20:29:00) [3]

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

---

Джо   (2006-07-20 20:29:00) [4]

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

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

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



---

Мефисто   (2006-07-20 20:27:00) [5]

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


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

---

Ivolg   (2006-07-20 20:24:00) [6]

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

SendMessage(Handle, WM_CLOSE, 0, 0)

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

---

Ivolg   (2006-07-20 20:14:00) [7]

>StriderMan

Спасибо...

---

StriderMan   (2006-07-20 20:05:00) [8]

SendMessage(Handle, WM_CLOSE, 0, 0)

---

Наверх