如何用程序启动mssqlserver的服务?

lql6288110 2003-03-12 09:52:45
mssqlserver在关闭的情况下,如何用程序启动mssqlserver的服务,而不是手工直接操作启动服务?
...全文
70 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
Wally_wu 2003-03-12
  • 打赏
  • 举报
回复
这样试一下, 改变PChar('C:\Program Files\Microsoft SQL Server\80\Tools\Binn\sqlmangr.exe' CheckRun ')为
PChar('C:\Program Files\Microsoft SQL Server\80\Tools\Binn\sqlmangr.exe Y '):
例如:
var
PStartupInfo: TStartupInfo;
aProcessInfo: TProcessInformation;
begin


FillChar(PStartupInfo, SizeOf(PStartupInfo), 0);
PStartupInfo.cb:=SizeOf(PStartupInfo);
CreateProcess(nil,
PChar('C:\Program Files\Microsoft SQL Server\80\Tools\Binn\sqlmangr.exe Y '),
nil, nil, False, DETACHED_PROCESS, nil, nil, PStartupInfo, aProcessInfo);
CloseHandle(aProcessInfo.hThread);
CloseHandle(aProcessInfo.hProcess);
end;
coolnan 2003-03-12
  • 打赏
  • 举报
回复
scm -action 1 -slient 1 -service mssqlserver //启动
scm -action 6 -slient 1 -service mssqlserver //停止
Wally_wu 2003-03-12
  • 打赏
  • 举报
回复
写个程序,使用CreateProcess函数, 假设你的mssqlserver的服务存放路径为:
"C:\Program Files\Microsoft SQL Server\80\Tools\Binn\sqlmangr.exe"

var
PStartupInfo: TStartupInfo;
aProcessInfo: TProcessInformation;
begin


FillChar(PStartupInfo, SizeOf(PStartupInfo), 0);
PStartupInfo.cb:=SizeOf(PStartupInfo);
CreateProcess(nil,
PChar('C:\Program Files\Microsoft SQL Server\80\Tools\Binn\sqlmangr.exe' CheckRun '),
nil, nil, False, DETACHED_PROCESS, nil, nil, PStartupInfo, aProcessInfo);
CloseHandle(aProcessInfo.hThread);
CloseHandle(aProcessInfo.hProcess);
end;
siyu2002 2003-03-12
  • 打赏
  • 举报
回复
scm -action 6 -slient 1 -service mssqlserver

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧