如何知道SQL SERVER是否启动，且在SQL SERVER没启动时用程序来启动？(告急)

[chrisz]

也就是得到SQL SERVER的进程!!!

[taxi]

^

[cocochen]

好像 d = SERVICE_RUNNING 有问题。
应该是 d.dwCurrentState = SERVICE_RUNNING 吧！

[yxjjx]

我也试试

[yxjjx]

reigod(月影清风下，自在逍遥中)　老兄好象没用。

[ckwin]

Dim my As PROCESSENTRY32
Dim l As Long, l1 As Long, sqlRunning As Boolean

sqlRunning = False
l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
If l Then
my.dwSize = 1060
If (Process32First(l, my)) Then
Do
If InStr(my.szExeFile, "SQLSERVR.EXE") Then
sqlRunning = True
l1 = CloseHandle(l)
Exit Sub
End If
Loop Until (Process32Next(l, my) < 1)
End If
l1 = CloseHandle(l)
End If

If sqlRunning = False Then
Shell "c:\mssql7\binn\scm.exe -Action 1 -Silent 1", vbHide
MsgBox "还没有启动数据库服务，正在启动...", 0, "提示"
End If
End Sub

[reigod]

uses WinSvc;

procedure TForm1.Button1Click(Sender: TObject);
var
x, y: SC_HANDLE;
c: PChar;
d: TServiceStatus;
begin
x := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
y := OpenService(a, 'MSSQLServer', SERVICE_ALL_ACCESS);
QueryServiceStatus(y, d);
if d = SERVICE_RUNNING then
ShowMessage('MSSQLServer 正在运行。');
//----------------------------------------------
StartService(b, 0, c); //开启MSSQLServer
ControlService(b, SERVICE_CONTROL_STOP, d); //中断MSSQLServer
end;

[reigod]

不好意思，请把x，y改为a，b.

[zenartus]

非常关注

[blackfiles]

试一试先

[chrisz]

TO reigod(月影清风下，自在逍遥中)　谢谢你老兄，但是你的的确好像不行，
TO ckwin(飞龙)　你的代码我正在看。。。。

[reigod]

不好意思，敲急了。cocochen说的对，要写成d.dwCurrentState = SERVICE_RUNNING

[chrisz]

To reigod(月影清风下，自在逍遥中)　你的方法不行，倒是ckwin(飞龙)　老兄的方法可以一试

[hlilna]

reigod(月影清风下，自在逍遥中):你的是好像不行