Как получить список процессов в win2k и убить желаемый

← →
Станислав (2001-08-30 13:53) [2]

Приведенная ниже функция отбирает все процессы в памяти и находит процесс созданный IDAPI32.DLL, а ты можешь переделать под себя и возьми на КОРОЛЕВСТВЕ архив из книги там в 14 теме все и описано для этих целей.
Только учти если войдешь в систему не как админ не даст свои процессы поэкпериментируй.

Function WinNTPath:string;
var
Count:DWORD;
BigArray: array[0..$3FFF - 1] of DWORD;
FProcList: array of DWORD;
I,J: Integer;
ProcHand: THandle;
ModHandles: array[0..$3FFF - 1] of DWORD;
ModName, MapFileName: array[0..MAX_PATH] of char;
PathDLL:string;

begin
Result:="asdaSDA"; ProcHand:=0;
EnumProcesses(@bigarray,SIZEof(bigarray),count);

SetLength(FProcList, Count div SizeOf(DWORD));
Move(BigArray, FProcList[0], Count);

for I := Low(FProcList) to High(FProcList) do
try
ProcHand := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,false,FProcList[I]);
EnumProcessModules(ProcHand, @ModHandles, SizeOf(ModHandles), Count);
for J := 0 to (count div SizeOf(dword)) - 1 do
try
GetModuleBaseNameA(Prochand, ModHandles[J], ModName, count);

if ModName="IDAPI32.DLL" then
begin
GetModuleFileNameEx(ProcHand, ModHandles[J],MapFileName,count);
PathDLL:=ExtractFilePath(MapFileName);
Setlength(PathDLL,length(PathDLL)-1);
Result:=PathDLL;
end;

except

end;

finally
CloseHandle(ProcHand);
end;

end;

Как получить список процессов в win2k и убить желаемый Найти похожие ветки