如何截取网络版的软件由于网络不通启动出错的信息?
我做了一个网络版的delphi6+sqlserver2000,简单的客户段+数据库端
如果网络是通的,软件执行正常,但是,如果网络不通,则启动不起来!点击没反应!
如何截取网络版的软件由于网络不通启动出错的信息?
就是如何用showmessage('网络不通!')
工程代码:
program Project1;
uses
Forms,
windows,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {denglu},
Unit3 in 'Unit3.pas' {renyuanxinxi},
Unit4 in 'Unit4.pas' {gongchengxiangmu},
Unit5 in 'Unit5.pas' {shebeileibie},
Unit6 in 'Unit6.pas' {changshangxinxi},
Unit7 in 'Unit7.pas' {shichagnxinxi},
Unit8 in 'Unit8.pas' {caigourenwu},
Unit9 in 'Unit9.pas' {caigoujihua},
Unit10 in 'Unit10.pas' {caigouhetong},
Unit11 in 'Unit11.pas' {fukuanjilu},
Unit12 in 'Unit12.pas' {baoxiaojilu},
Unit13 in 'Unit13.pas' {guazhangjilu},
Unit14 in 'Unit14.pas' {fuyingfukuan},
Unit15 in 'Unit15.pas' {daohuotongzhi},
Unit16 in 'Unit16.pas' {rukuguanli},
Unit17 in 'Unit17.pas' {chukuguanli},
Unit18 in 'Unit18.pas' {tuihuojilu},
Unit19 in 'Unit19.pas' {suopeijilu},
Unit21 in 'Unit21.pas' {renyuanxinxishaixuan},
Unit20 in 'Unit20.pas' {gongchengxiangmushaixuan},
Unit22 in 'Unit22.pas' {AboutBox},
Unit23 in 'Unit23.pas' {changshangxinxishaixuan},
Unit24 in 'Unit24.pas' {shichagnxinxishaixuan},
Unit25 in 'Unit25.pas' {caigourenwushaixuan},
Unit26 in 'Unit26.pas' {caigoujihuashaixuan},
Unit27 in 'Unit27.pas' {caigouhetongshaixuan},
Unit28 in 'Unit28.pas' {fukuanjilushaixuan},
Unit29 in 'Unit29.pas' {baoxiaojilushaixuan},
Unit30 in 'Unit30.pas' {guazhangjilushaixuan},
Unit31 in 'Unit31.pas' {fuyingfukuanshaixuan},
Unit32 in 'Unit32.pas' {daohuotongzhishaixuan},
Unit33 in 'Unit33.pas' {rukuguanlishaixuan},
Unit34 in 'Unit34.pas' {chukuguanlishaixuan},
Unit35 in 'Unit35.pas' {tuihuojilushaixuan},
Unit36 in 'Unit36.pas' {suopeijilushaixuan},
Unit37 in 'Unit37.pas' {renyuanxinxipaixu},
Unit38 in 'Unit38.pas' {caigouhetongshebei},
Unit40 in 'Unit40.pas' {kucunguanli},
Unit41 in 'Unit41.pas' {quanxianguanli},
Unit42 in 'Unit42.pas' {yonghumima},
Unit39 in 'Unit39.pas' {shebeicuijiao},
Unit43 in 'Unit43.pas' {weidinghetongshebei},
Unit44 in 'Unit44.pas' {FormSplash};
{$R *.res}
begin
FormSplash:=TFormSplash.Create(Application);//FormSplash是启动窗体
FormSplash.Show;
FormSplash.Update;
Application.Initialize;
if CreateFirst then
begin
Application.CreateForm(TForm1, Form1);
Application.CreateForm(Tdenglu, denglu);
Application.CreateForm(TAboutBox, AboutBox);
Sleep(2000);//如果程序小则加延时函数,否则最好不要
FormSplash.Hide;
FormSplash.Free;
Application.Run;
end
else
Application.Terminate;
end.