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

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.007 c