不知哪下的,感觉不错,上传给大家使用 function SartService(ServiceName: string) : boolean; var hSCM : HANDLE; hService: HANDLE; Status : SERVICE_STATUS; begin hSCM := OpenServiceManager(); Result := false; if hSCM 0 then begin hService := OpenService(hSCM,ServiceName
pb操作系统服务——重启MSSQLSERVER 主要是可以重启MSSQLSERVER FUNCTION ulong OpenSCManager(ref string lpMachineName,ref string lpDatabaseName,ulong dwDesiredAccess) LIBRARY "advapi32.dll" ALIAS FOR "OpenSCManagerA" FUNCTION ulong CreateService(ulong hSCManager,ref str