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

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

Как закрыть программу зная её Handle? [D6, D7, Win2k]


ers ©   (2003-02-19 17:31:00) 

собственно subj


Songoku   (2003-02-23 20:58:00) [1]

procedure SuperWClose(handle:HWND);
var hg: HGLOBAL;
pPid: Pointer;
p:^integer;
begin
hg:=GlobalAlloc(GMEM_SHARE,sizeof(longint));
pPid:=GlobalLock(hg);
GetWindowThreadProcessId(Handle,pPid);
p:=pPid;
TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,p^),0);
end;

//Закрывает без всяких запросов!!!


DVM   (2003-02-19 17:51:00) [2]

В общем случае TerminateProcess.
А можно еще попробовать PostMessage(handle,wm_close,0,0) или wm_syscommand + sc_close (но это для окон, а не "программ")


Наверх

Титульная страница Поиск, карта сайта Написать письмо