TService
 

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.

Puedes utilizar la función OpenSCManager, previamente debes logearte en el equipo remoto con una cuenta de administrador.

tservice
 

Bueno gracias por la ayuda , pero creo que talvez no me di a entender bien, la idea es que por medio de la ip de la maquina remota yo pueda saber cuales servicios estan ejecutandose.

Se podra ?

Creo que para eso necesitarás tener credenciales (permisos) dentro de la máquina remota a la que deseas acceder.

Otra cosa, utiliza TAG's cuando escribas código delphi.