About OpenSCManager and OpenService函数的使用

Bill4661 2004-02-16 08:34:52
如下所示:
a := OpenSCManager(PChar(ServerName),nil,SC_MANAGER_ALL_ACCESS);
if a <= 0 then Exit;
b := OpenService(a,PChar(SvrName),SERVICE_ALL_ACCESS);
if b <= 0 then Exit;
try
Result := StartService(b,0,c);
CloseServiceHandle(b);
CloseServiceHandle(a);
except
CloseServiceHandle(b);
CloseServiceHandle(a);
Exit;
end;
但这样使用总不成功,是不是这两个函数使用上有问题,请赐教!
end;
...全文
79 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
网络通信/分布式开发
创建于2007-08-02

1573

社区成员

Delphi 网络通信/分布式开发
申请成为版主
帖子事件
创建了帖子
2004-02-16 08:34
社区公告
暂无公告