随系统启动的软件如何滞后于数据库服务器启动 我的一个程序是随电脑一起启动的,启动时会连接数据库服务器,可是现在电脑启动时软件先于数据库启动,即软件启动了,数据库服务器还没有启动,这时软件就会报错。我想有什么办法使软件启动滞后于数据库服务器!(如果用软件连接延时的话,如果电脑启动慢,可能这里面时间难掌握,) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 循环检查数据库连接状态,可以用查找一张表的方式.用 try excel end 保护起来,查询不成功,隔上现秒在去查。 use WinSvcvar sm: THandle; sh: THandle; ss: TServiceStatus;begin //等待sqlserver启动************************************ sm := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); repeat sh := OpenService(sm, 'MSSQLSERVER', SERVICE_ALL_ACCESS); QueryServiceStatus(sh, ss); Application.ProcessMessages; until ss.dwCurrentState =SERVICE_RUNNING; //********************************************************end; 晕死,在系统服务中设置一下<服务依附于MSSQLSERVER>啊 設置服務項MSSQLSERVER或 try excel end給出用戶提示 TService1 = class(TService) 求DELPHI变成的短信猫收发代码 越详细越好 包括控件或者DLL文件什么的 同事生了个胖小子点名让我给提供几个有创意的名字,不忍心让她失望 有那位高手能编写好用的游戏密码截取软件,请联系我,月薪高高! 请教:WindowsXP下如何隐藏进程? 启动程序出错:找不到所需的.dll文件-DSNAP60.BPL 急??????? 在工作站如何安装BDE?在线等 怎样在SQL里生成二维的表啊? 如何才能用Tsocketconnection作多层数据库程序,请帮忙谢先! 一个有关于 LISTBOX 的 ITEMS.ADDOBJECT 的问题. 随机图片数组 祝贺一下,顺利成为一名驾驶员
use
WinSvcvar
sm: THandle;
sh: THandle;
ss: TServiceStatus;begin
//等待sqlserver启动************************************
sm := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
repeat
sh := OpenService(sm, 'MSSQLSERVER', SERVICE_ALL_ACCESS);
QueryServiceStatus(sh, ss);
Application.ProcessMessages;
until ss.dwCurrentState =SERVICE_RUNNING;
//********************************************************
end;