SERVER TCP/IP EN UTILISANT LES COMPOSANTS ICS

Commentaire de potiok le 02/01/2007 12:55:25

Pour ceux qui cherchent encore :
1) enlever la référence à UTFile
2) voici le code de UTGetpid

unit UTGetpid;

interface

uses windows, SysUtils;

function FindProcessByModuleNameNT(Name: string): THandle;

implementation

uses
psapi, tlhelp32;

// returns process ID
function FindProcessByModuleNameNT(Name: string): THandle;
var
PIDList: array[0..1023] of THandle;
i: integer;
ListCount, size: cardinal;
hProcess, hModule: THandle;
ModuleName: array[0..MAX_PATH] of char;
begin
result:= 0;

EnumProcesses(@PIDList, sizeof(PIDList), ListCount);

ListCount:= ListCount div sizeof(THandle);

for i:= 0 to ListCount-1 do
begin
   // get process handle for each process id we got
   hProcess:= OpenProcess(PROCESS_QUERY_INFORMATION +
    PROCESS_VM_READ, false, PIDList[i]);

   try
     if hProcess <> 0 then
     begin
       // get handle to first module, which is the exe
       if EnumProcessModules(hProcess, @hModule,
        sizeof(hModule), size) then
       begin
         // extract the filename
         GetModuleFileNameEx(hProcess, hModule,
          ModuleName, sizeof(ModuleName));

         if AnsiCompareText(ExtractFileName(StrPas(@ModuleName)), Name) = 0 then
         begin
           result:= PIDList[i];
           exit;
         end;
       end;
     end;
   finally
     CloseHandle(hProcess);
   end;
end;
end;

function FindProcessByModuleName9x(Name: string): THandle;
var
hSnapshot: THandle;
next: boolean;
pe: TProcessEntry32;
begin
result:= 0;

hSnapshot:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

if hSnapshot = THandle(-1) then
   exit;

FillChar(pe, sizeof(pe), 0);
pe.dwSize:= sizeof(pe);

next:= Process32First(hSnapshot, pe);

while next do
begin
   if AnsiCompareText(StrPas(@pe.szExeFile), Name) = 0 then
   begin
     result:= pe.th32ProcessID;
     next:= false;
   end
   else
     next:= Process32Next(hSnapshot, pe);
end;

CloseHandle(hSnapshot);
end;

end.