TService

[sancarlos]

Tengo este codigo para saber los servicios localmente

Function Tfrmenu.procrunning: Boolean;
var
Proceso : TProcessEntry32;
ProcessHandle : THandle;
Sproceso : Boolean;
Nproceso : String;
flag : boolean;

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 = 'transrvr.exe' then begin
Result := True;
flag:=true;
if timerblink.Enabled=true then begin
TIMERBLINK.Enabled:=false;
end;
end else begin
flag:=false;
end;
until not Sproceso;
if flag = false then begin
TIMERBLINK.Enabled:=true;
CloseHandle(ProcessHandle);
END;
END;
END;


Pero necesito , saber los servicios que estan corriendo en otra pc.
desde la mia.

Muchas Gracias.