ADO:在TADOCONNECTION中好像有一个TIMEOUT属性吧。
BDE:
Procedure SetDBLoginTimeOut(Time:Integer); //将注册表中 BDE的MSSQL的连接超时设置更改
Var Reg:TRegistry;
begin //Time要大于0
If Time<0 Then Exit;
Reg:=TRegistry.Create;
Try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
If Reg.OpenKey('Software\Borland\Database Engine\Settings\DRIVERS\MSSQL\INIT',False) Then
Begin
Reg.WriteString('CONNECT TIMEOUT',IntToStr(Time));
End;
Finally
Reg.CloseKey;
Reg.Free;
End;
End;