تشخیص stop بودن sqlserver

[سیروس مقصودی]

با سلام

از طریق کد نویسی چگونه میتوان تشخیص داد که sqlserver متوقف شده یا نه ؟

با تشکر

[Touska]

می تونی از لیست سرویس های ویندوز سرویس SQL رو پیدا کنی - و چک کنی Start هست یا نه.

[سیروس مقصودی]

می تونی از لیست سرویس های ویندوز سرویس SQL رو پیدا کنی - و چک کنی Start هست یا نه

نحوه انجام همین کار را نمیدانم . چگونه بایستی این کار را انجام دهم ؟ من میخوام از طریق کد نویسی اینکار را انجام دهم

با تشکر

[Touska]

من از این یونیت استفاده کردم - کار می کنه مشکلی نداره.

Detect windows service state (https://stackoverflow.com/questions/5913279/detect-windows-service-state/5917648)

[ابوالفضل عباسی]

uses Winapi.WinSvc, Vcl.SvcMgr;


function IsMSSQLServerRunning: Boolean;
var
ServiceManager: TServiceManager;
SQLService: TService;
begin
Result := False;
ServiceManager := TServiceManager.Create(nil);
SQLService := TService.Create(nil);


try
ServiceManager.Access := SERVICE_QUERY_STATUS;
SQLService.ServiceName := 'MSSQLSERVER'; // نام سرویس MSSQLServer


if ServiceManager.Connect then
begin
try
if SQLService.Open then
begin
try
Result := (SQLService.Status = SERVICE_RUNNING);
finally
SQLService.Close;
end;
end;
finally
ServiceManager.Disconnect;
end;
end;
finally
ServiceManager.Free;
SQLService.Free;
end;
end;