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.

[[cHackAll]]

CMD> sc \\127.0.0.1 query > list.txt

[kalisto]

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

[sancarlos]

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 ?

[Neftali [Germán.Estévez]]

Empezado por sancarlos

...la idea es que por medio de la ip de la maquina remota yo pueda saber cuales servicios estan ejecutandose.

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.