FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
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. |
#3
|
|||
|
|||
Puedes utilizar la función OpenSCManager, previamente debes logearte en el equipo remoto con una cuenta de administrador.
|
#4
|
|||
|
|||
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 ? |
#5
|
||||
|
||||
Cita:
Otra cosa, utiliza TAG's cuando escribas código delphi.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
TService y TForm | Softweb | API de Windows | 5 | 20-10-2008 17:41:01 |
Servicios (TService) Ayuda. | LockDoor | C++ Builder | 3 | 31-10-2005 23:16:17 |
Tservice , inputbox o forms | NPIdea | Varios | 0 | 29-04-2005 18:08:23 |
TService, IB, FB | OSKR | C++ Builder | 0 | 27-04-2005 11:51:11 |
Imprimir desde un TService | gynch | Varios | 2 | 02-04-2004 19:35:23 |
|