Cita:
Empezado por Negriz
La verdad no se como hacer para saber si un proceso corre o no... y no habia pensado en eso.
|
Tal vez pueda servirte esto:
Código Delphi
[-]
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 cambia 'elproceso.exe' por el nombre de tu proceso.