Текущий архив: 2002.10.03;
Скачать: CL | DM;

Вниз

Закрытие программы   Найти похожие ветки 

← →
Metotrone ©   (2002-09-21 00:35) [0]

Как послать сообщение на закрытие программы, если не знаешь ее дескриптора?

---

← →
Shrek ©   (2002-09-21 02:31) [1]

const
PROCESS_TERMINATE = $0001;
var
ProcessHandle : THandle;
ProcessID: Integer;
TheWindow, h : HWND;

h := FindWindow(nil, "Window name");
if h <> 0 then
begin
GetWindowThreadProcessID(h, @ProcessID);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);

---

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

Текущий архив: 2002.10.03;
Скачать: CL | DM;

Наверх

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