Получение информации о процессах под NT!!!!!!!!

← →
skywalker (2002-02-15 13:20) [0]

Наконец то я доконал эту функцию... Предлагаю на ваше суждение исходник. Может кому нить поможет.... :)

Эта функция возвращает true, если запущено больше одного процесса с одного и того же модуля с именем Exename, но вы можете легко переделать эту функцию под свои нужды.

function CheckOutExeNT(Exename:string):boolean;
type
TEnumProcesses=function(lpidProcess:LPDWORD; cb:DWORD; var cbNeeded:DWORD):bool stdcall;
TEnumProcessModules=function(hProcess:THandle; lphModule:LPDWORD; cb:DWORD; var lpcbNeeded:DWORD):bool stdcall;
TGetModuleFileNameExA=function(hProcess:THandle; hModule:HMODULE;lpFilename:PAnsiChar; nSize:DWORD):DWORD stdcall;
var
EnumProcesses:TEnumProcesses;
EnumProcessModules:TEnumProcessModules;
GetModuleFileNameExA:TGetModuleFileNameExA;
hPSAPI:THandle;
Counter,Counter1,Counter2:longword;
PIDs:array[0..1023] of dword;
pbNeeded:dword;
ProcHandle:THandle;
ModHndls:array[0..1023] of dword;
mbNeeded:dword;
ModulePath,ModuleName:string;
PathLen:byte;
Error:integer;
FoundInstances:word;
begin
Result:=false;
FoundInstances:=0;
hPSAPI:=LoadLibrary("PSAPI.dll");
if hPSAPI<32 then
begin
Result:=false;
Exit
end;
EnumProcesses:=GetProcAddress(hPSAPI, "EnumProcesses");
EnumProcessModules:=GetProcAddress(hPSAPI, "EnumProcessModules");
GetModuleFileNameExA:=GetProcAddress(hPSAPI, "GetModuleFileNameExA");
EnumProcesses(@PIDs,Length(PIDs),pbNeeded);
for Counter:=0 to (pbNeeded div 4)-1 do
begin
ProcHandle:=OpenProcess(PROCESS_QUERY_INFORMATION+PROCESS_VM_READ,false,PIDs[Counter]);
if Prochandle<>0 then
begin
if EnumProcessModules(ProcHandle,@ModHndls,Length(ModHndls),mbNeeded) then
for Counter1:=0 to (mbNeeded div 4)-1 do
begin
ModulePath:="";
ModuleName:="";
SetLength(ModulePath,MAX_PATH);
PathLen:=GetModuleFileNameExA(ProcHandle,ModHndls[Counter1],pchar(ModulePath),MAX_PATH);
ModulePath:=Copy(ModulePath,1,PathLen);
for Counter2:=PathLen downto 1 do
begin
if ModulePath[Counter2]="\" then break;
ModuleName:=ModulePath[Counter2]+ModuleName
end;
if UpperCase(ModuleName)=Exename then
begin
FoundInstances:=FoundInstances+1;
if FoundInstances>1 then
begin
Result:=true;
break
end
end
end;
CloseHandle(ProcHandle);
end;
if Result then break
end;
FreeLibrary(hPSAPI)
end;

Получение информации о процессах под NT!!!!!!!! Найти похожие ветки