Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Saber si un proceso esta corriendo, por su nombre (https://www.clubdelphi.com/foros/showthread.php?t=80875)

felipe88 14-07-2008 15:13:57

Saber si un proceso esta corriendo, por su nombre
 
Código Delphi [-]
//Añadir al uses TLHelp32

function TForm1.procrunning: Boolean;
var
  Proceso : TProcessEntry32;
  ProcessHandle : THandle;
  Sproceso   : Boolean;
  Nproceso : String;
begin
  Result := False;
  Proceso.dwSize := SizeOf(TProcessEntry32);
  ProcessHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Process32First(ProcessHandle, Proceso) then
  begin
    Nproceso:= String(Proceso.szExeFile);
    repeat Sproceso := Process32Next(ProcessHandle, Proceso);
      Nproceso:= String(Proceso.szExeFile);
      if Nproceso = 'elproceso.exe' then
        Result := True;
    until not Sproceso;
  end;
  CloseHandle(ProcessHandle);
end;

Solo cambian "elproceso.exe" por el nombre del proceso que necesitan y listo

felipe88 14-07-2008 22:54:24

El autor original no fui yo, si algun moderador puede corregir que ademas esta duplicado el truco por favor... gracias


La franja horaria es GMT +2. Ahora son las 22:48:07.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi