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. |
|
|
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 |
|