Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как завершить чужую программу

Костик © (2004-06-08 10:16:00)
Как завершить чужую? Знал, но забыл.
Спасибо

Bar (2004-06-08 10:44:00) [1]
Данная функция позволяет завершить выполнение любой активной программы по её classname или заголовку окна.

procedure KillProgram(ClassName: PChar; WindowTitle: PChar), const PROCESS_TERMINATE = $0001;
var
ProcessHandle : THandle;
ProcessID: Integer;
TheWindow : HWND;
begin
TheWindow := FindWindow(Classname, WindowTitle);
GetWindowThreadProcessID(TheWindow, @ProcessID);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);
end;

Prog's Killer (2004-06-08 10:43:00) [2]
Ах да - uses Tlhelp32

Prog's Killer (2004-06-08 10:42:00) [3]
function killtheprog(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;

FSnapshotHandle := CreateToolhelp32Snapshot
(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,
FProcessEntry32);

while integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;

CloseHandle(FSnapshotHandle);
end;

Использование: killtheprog(notepad.exe) // прямо без пути

Mim1 (2004-06-08 10:20:00) [4]
terminateprocess, wm_quit, wm_syscommand+sc_close, postquitmessage и т.д.

Наверх

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