delphi中弹出（ADO）数据库连接字符串对话框的函数

好长时间没有用D啦，弹出odbc data link dialog的函数也忘了，找了半天，还是在英文网站上找到的，真是很累。所以为了以后方便（虽然用D的机会是越来越少了），记录在案吧。

在ADO单元中，函数为声明如下，为全局函数：

function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;

此单元很多相关的函数都放在一起，如下：

procedure CreateUDLFile(const FileName, ProviderName, DataSourceName: WideString);
function DataLinkDir: string;
procedure GetProviderNames(Names: TStrings);
function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
function PromptDataLinkFile(ParentHandle: THandle; InitialFile: WideString): WideString;
function GetDataLinkFiles(FileNames: TStrings; Directory: string = ''): Integer;

用法就不用说明了吧。