Obtenir le Handle et le PID d'un Process par son nom
Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 691 fois - Téléchargée 8 fois
Contenu du snippet
// uses Tlhelp32;
function GetProcessIDandHDL(const ProcessName: string; var ProcessID,
ProcessHandle: Cardinal): boolean;
var
ProcessEntry32: TProcessEntry32;
ShotHdl: THandle;
begin
Result := False;
ProcessEntry32.dwSize := SizeOf(ProcessEntry32);
ShotHdl := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
try
if ShotHdl = -1 then
Exit;
if Process32First(ShotHdl, ProcessEntry32) then
begin
while Process32Next(ShotHdl, ProcessEntry32) do
begin
if AnsiSameText(ProcessEntry32.szExeFile, ProcessName) then
begin
ProcessID := ProcessEntry32.th32ProcessID;
ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessID);
if ProcessHandle <> 0 then
Result := true;
Break;
end;
end;
end;
finally CloseHandle(ShotHdl);
end;
end;
//Exemple d'utilisation:
var
ProcessHDL: THandle;
ProcessID: Cardinal;
begin
if GetProcessIDandHDL('UnProcessus', ProcessID, ProcessHDL) then
begin
try
//... Utilisation de ProcessHDL et/ou de ProcessID ...
finally CloseHandle(ProcessHDL);
end;
end;
Compatibilité : Delphi 5
A voir également
- Obtenir le Handle et le PID d'un Process par son nom
- Generateur de nom ✓ - Forum C++ & C++ .NET
- Le nom distant n'a pas pu être résolu - Forum C# / .NET
- Pid visual basic - Forum Visual Basic 6
- Handle c++ - Forum C
- Pid c - Forum C / C++ / C++.NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.