DELPHI服务.docVIP

DELPHI·t??.txt?á?é?í??ê???×?óé′??t?Tò?￡????ˉ?eà′2?·?±?￡?μ??áoü???ˉ?￡ì?áμ°??í??°t?ó′D￡?×üóDò?2?è???àáá÷?￡delphi ???ˉ?￠í￡?1·t??oˉêy usesWinsvc,..,; function RunServies(svr:String):Boolean;//???ˉ?3??·t??￡? var schService:SC_HANDLE; schSCManager:SC_HANDLE; ssStatus:TServiceStatus; Argv:PChar; begin schSCManager:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS); schService:=OpenService(schSCManager,Pchar(svr),SERVICE_ALL_ACCESS); result := True; try if StartService(schService,0,Argv) then begin while (QueryServiceStatus(schService,ssStatus)) do begin Sleep(500); Application.ProcessMessages; if ssStatus