怎么判断他是sqlserver还是oracle呢?
解决方案 »
- access violation错误
- 关于DELPHI7 vcl控件TPagecontrol的疑惑
- pascal中指针问题?
- 周末了,散分,祝各位周末愉快
- 我想做一个类似于qq视频聊天的软件基于万维网!不知道有没有好的方法和不错的示例作为参考!
- ★★简单问题,怎样捕捉连接ftp失败的错误信息,up者有分★★
- 请问大家,在DELPHI的报表工具QReport/rave中也是用FOR循环控制来写出任意复杂的报表,还是直接用控件关联做报表??
- Locate、xor、shr、shl的作用、用法???
- 100分,用友财务软件那样的记帐凭证录入和报表数据录入的功能用什么控件怎么实现?500分求购例子代码!
- 简单问题!如何做成那种向导的样式?谢谢!
- 怎么是quickrep或qrqreview全屏显示
- 实现:比较两图,把不同的点记录到list中,最后再将LIST中的图画出,结果有问题,请帮助,谢谢
Registry;
procedure TForm1.btn1Click(Sender: TObject);
var
Reg:TRegistry;
DataSource, DBServerName:string;
SemicolonPos:Integer;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKeyReadOnly('Software\ODBC\ODBC.INI\ODBC Data Sources');
DataSource:=Copy(con1.ConnectionString, Pos('Data Source=', con1.ConnectionString),
Length(con1.ConnectionString)); //得到Data Source后面的字符串
SemicolonPos:=Pos(';', DataSource);
DataSource:=Copy(DataSource, Length('Data Source=')+1,
SemicolonPos-Length('Data Source=')-1); //得到Data Source的值
DBServerName:=Reg.ReadString(DataSource);
ShowMessage(DBServerName); //显示数据库服务器的类型
finally
Reg.CloseKey;
Reg.Free;
end;
end;