Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

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

 
Костик   (2004-06-08 10:16) [0]

Как завершить чужую? Знал, но забыл.
Спасибо


 
Mim1 ©   (2004-06-08 10:20) [1]

terminateprocess, wm_quit, wm_syscommand+sc_close, postquitmessage и т.д.


 
Prog's Killer   (2004-06-08 10:42) [2]

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) // прямо без пути


 
Prog's Killer   (2004-06-08 10:43) [3]

Ах да - uses Tlhelp32


 
Bar   (2004-06-08 10:44) [4]

Данная функция позволяет завершить выполнение любой активной программы по её 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;



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

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

Наверх




Память: 0.47 MB
Время: 0.055 c
14-1087384847
Иванов Александр
2004-06-16 15:20
2004.07.18
Ваше отношение к философии, как к науке


1-1088421856
Ky3bka
2004-06-28 15:24
2004.07.18
Алгоритм оптимального разреза пиломатериалов


14-1087810532
ИМХО
2004-06-21 13:35
2004.07.18
Боулинг


4-1086685199
MU
2004-06-08 12:59
2004.07.18
Информация о ресурсах системы


6-1085260264
AndrewVolkov
2004-05-23 01:11
2004.07.18
idFtpServer Indy