如何用程序启动mssqlserver的服务? mssqlserver在关闭的情况下,如何用程序启动mssqlserver的服务,而不是手工直接操作启动服务? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 scm -action 6 -slient 1 -service mssqlserver 写个程序,使用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; scm -action 1 -slient 1 -service mssqlserver //启动scm -action 6 -slient 1 -service mssqlserver //停止 这样试一下, 改变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; StringGrid 数据插入数据库表 如果将带alpha通道的PNG图片转换成BMP 图像细化 有关TServerSocket和TClientSocket的问题 怎么样获取远程文件的大小? 关于TreeView的递归问题 向新打开的窗口传递参数值的问题 哪位大哥知道如何捕捉用户一直按住方向键的事件? DELPHI中时间与SQLSERVER7中的时间兼容问题 Venne 请再看一下我的问题。 如何动态接连access数据库呢?请帮帮忙! datetimepicker问题
"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;
scm -action 6 -slient 1 -service mssqlserver //停止
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;