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

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

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

Как закрыть чужой exe-шник из своей проги

Piero © (2003-04-07 10:25:00)
Как закрыть чужой exe-шник из своей проги

joisy (2003-04-23 16:44:00) [1]
Interesno kto-nibud proboval zakrivat drugoy process kak naprimer zapustiv udalenniy potok (CreateRemoteThread), a potom v nem spetsialno obratitysa k zashishennomu adresu v pamyati i svalit ego.

DVM (2003-04-23 12:25:00) [2]

> Есть глючок в этом коде: explorer.exe не убивается. А если
> его нет - ТО ВООБЩЕ ЗАГРУЖАЕТСЯ КАК НИ В ЧЁМ НЕ БЫВАЛО....

а подумать самим чуть-чуть?

demonyator (2003-04-22 22:25:00) [3]
Есть глючок в этом коде: explorer.exe не убивается. А если его нет - ТО ВООБЩЕ ЗАГРУЖАЕТСЯ КАК НИ В ЧЁМ НЕ БЫВАЛО....

Кох (2003-04-22 14:50:00) [4]
Описание:
TProcessEntry32 = packed record
dwSize: DWORD;
cntUsage: DWORD;
th32ProcessID: DWORD;
th32DefaultHeapID: DWORD;
th32ModuleID: DWORD;
cntThreads: DWORD;
th32ParentProcessID: DWORD;
pcPriClassBase: Longint;
dwFlags: DWORD;
szExeFile: array[0..MAX_PATH - 1] of Char;

end;
Описывает блок списка процессов в системном пространстве на момент снятия слепка.
dwSize: Размер структуры в байтах. Заполнять так ProcessEntry32:= sizeof(TProcessEntry32)
cntUsage: Счетчик ссылок на процесс. Процесс уществует пока счетчик выше нуля. Процесс завершается как только счетчик становиться равным нулю.
th32ProcessID: Идентификатор изучаемого процесса. Содержание этого элемента может быть использовано элементами Win32 API.
th32DefaultHeapID: Идентификатор кучи процесса по умолчанию. Содержание этого элемента имеет значение только для функций ToolHelp. Это не хендл и не пригоден к использованию элементами Win32 API.
th32ModuleID: Идетификатор модуля процесса. Содержание этого элемента имеет значение только для функций ToolHelp. Это не хендл и не пригоден к использованию элементами Win32 API.
cntThreads: Номер потока в котором стартовал процесс.
th32ParentProcessID: Идентификатор процесса, который породили изучаемый процесс. Содержание этого элемента может быть использовано элементами Win32 API.
pcPriClassBase: Базовый приоритет лубого потока, создаваемого этим процессом.
dwFlags: Зарезервированно.
szExeFile: Путь и имя исполняемого файла процесса.

Кох (2003-04-22 14:45:00) [5]
Пояснил бы хоть.. чё написал-то...

Guerriero (2003-04-12 18:52:00) [6]
uses TLHelp32

Piero (2003-04-12 14:43:00) [7]
а конкретнее про TProcessEntry32;

DVM (2003-04-07 10:31:00) [8]
TerminateProcess годится?

function KillProcessByFileName(FileName:String):integer;
var
ContinueLoop:BOOL;
FSnapshotHandle:THandle;
FProcessEntry32:TProcessEntry32;
const
PROCESS_TERMINATE=$0001;
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(FileName))
or (UpperCase(FProcessEntry32.szExeFile)=UpperCase(FileName))) then
Result:=Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0),
FProcessEntry32.th32ProcessID),1));
ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

Наверх

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