在delphi程序的运行中如何判断sql server是否已运行，服务是否已启动？若要实现如何写语句？进一步，若此时要运行sql server，同时启动服务，又如何用语句来实现？ 多谢！！

檢查是否有在執行用連結其 service port 的方式是一種解決的方法. 以下是一些相關的文章: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29149 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30773 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29963

我找到了一种更好更快的方法！网络就是好！什么都可以学会！ uses     ComObj,    var   SQLServer, ServerList:Variant;   i:integer; begin  SQLServer := CreateOleObject('SQLDMO.Application');  ServerList:= SQLServer.ListAvailableSQLServers;  if serverlist.count<1 then begin //如果服务器不存在，则退出系统 showmessage('服务器不存在，请检测服务器是否已经开机或者服务是否打开了'); application.Terminate; end; SQLServer:=NULL; serverList:=NULL; end;