[ Last edited by cnds on 2010-3-21 at 11:39 ]作者: Hanyeguxing 时间: 2010-3-21 16:07 //delphi启动服务
function StartServices(Const SvrName: String): Boolean;
var
a,b:SC_HANDLE;
c:PChar;
begin
Result:=False;
if b <=0 then Exit;
try
Result:=StartService(b,0,c);
CloseServiceHandle(b);
CloseServiceHandle(a);
except
CloseServiceHandle(b);
CloseServiceHandle(a);
Exit;
end;
end;
[ Last edited by Hanyeguxing on 2010-3-21 at 16:20 ]作者: HAT 时间: 2010-3-21 17:05 看来楼主要好好学习Delphi基础了^_^作者: xqx 时间: 2010-8-15 05:57 标题: 我最服你了