Delphi下检查SQL Server服务器当前运行状态！

delphi下检查sql server服务器当前运行状态！
要求：ｄｅｌｐｈｉ下随时监控ｓｑｌ　ｓｅｒｖｅｒ状态。
１、命令提示符下可用：telnet <sql server ip> 1433检查。
２、ｄｅｌｐｈｉ下如何模拟实现上述功能。
———-
原来做过：
function getsqlserverstatus(lpszcomputername: lpctstr): integer;
var
ssstatus: service_status;
dwoldcheckpoint: dword;
dwstarttickcount: dword;
dwwaittime: dword;
dwstatus: dword;
lpszservicename: lpctstr;
schscmanager: sc_handle;
schservice: sc_handle;
begin
if (lpszcomputername <> nil) and
((strcomp(lpszcomputername, \\\’127.0.0.1\\\’) = 0) or (strcomp(lpszcomputername, \\\’.\\\’) = 0)) then
lpszcomputername := nil;
lpszservicename := \\\’mssqlserver\\\’;
schscmanager := openscmanager(
lpszcomputername, //computer name
nil, // servicesactive database
sc_manager_all_access); // full access rights
if schscmanager = 0 then
getsqlserverstatus := -1; //machine not exists
schservice := openservice(
schscmanager, // scm database
lpszservicename, // service name
service_all_access);
if schservice = 0 then begin
closeservicehandle(schservice);
getsqlserverstatus := -2; //sqlserver service not exists
end;
if not queryservicestatus(
schservice, // handle to service
ssstatus) then begin // address of status information structure
getsqlserverstatus := -3; //myerrorexit(\\\’queryservicestatus\\\’);
result := ssstatus.dwcurrentstate;
end;
//———-
网上找的,看看有用不
uses registry, shellapi, filectrl, unit2;
{$r *.dfm}
function isnt: boolean;
begin
result := (win32majorversion >= 4) and (win32platform = ver_platform_win32_nt);
end;
var
isexists: boolean = false;
function isexistsmssql: boolean;
const
mssqlserver = \\\’software/microsoft/mssqlserver\\\’;
reg: tregistry;
result := isexists;
if result then exit;
if not isnt then
reg := tregistry.create else
reg := tregistry.create(key_read);
with reg do
try
reg.rootkey := hkey_local_machine;
result := keyexists(mssqlserver);
isexists := result;
finally
free;
end;
mssql_98startcommand = \\\’scm -action 1 -pwd "%s"\\\’;
mssql_ntstartcommand = \\\’net start mssqlserver\\\’;
mssql_98stopcommand = \\\’scm -action 6\\\’;
mssql_ntstopcommand = \\\’net stop mssqlserver\\\’;
function startmssql(pass: string): boolean;
s: string;
screen.cursor := crhourglass;
if not isnt then
s := format(mssql_98startcommand, [pass]) else
s := mssql_ntstartcommand;
try
winexec(pchar(s), sw_hide);
result := true;
except
result := false;
end;
screen.cursor := crdefault;
function stopmssql: boolean;
winexec(mssql_98stopcommand, sw_hide) else
winexec(mssql_ntstopcommand, sw_hide);
procedure tform1.button2click(sender: tobject);
if startmssql(edpass.text) then
messagebox(handle, \\\’启动完成\\\’, \\\’完成\\\’, mb_ok mb_iconinformation);
———————————————-
program project1;
uses
windows,
winsvc;
procedure runmssqlservice;
srvhandle: sc_handle;
service_status: _service_status;
srvstatus : integer;
try
srvhandle := openscmanager(\\\’\\\’, services_active_database, sc_manager_all_access);
srvhandle := openservice(srvhandle, pchar(\\\’mssqlserver\\\’), service_query_status or service_start);
if queryservicestatus(srvhandle, service_status)
then
srvstatus := service_status.dwcurrentstate;
if srvstatus = service_stopped
winexec(\\\’scm -action 1 -slient 1 -service mssqlserver \\\’,sw_normal);
except
runmssqlservice;
end.
获取sql server服务器列表的几种方法
一、 sql dmo
描述：sql distributed management objects（sql分布式管理对象），存在于sqldmo.dll文件中，实际上是一个com 对象，通过调用sql dmo的listavailablesqlservers方法取得。

php流程控制有哪些？
浙江云服务器 价格
云服务器哪家较便宜
北京web服务器租用云空间
网站无法访问怎么回事-虚拟主机/数据库问题
快手号如何从0做起？这里有一份操作指南 ！
不买云服务器怎样备案域名
vpc网络是什么意思?有什么作用?