delphi 弹出ado连接配置相关函数

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

procedure CreateUDLFile(const FileName, ProviderName, DataSourceName: WideString);

function DataLinkDir: string;
procedure GetProviderNames(Names: TStrings);
function PromptDataLinkFile(ParentHandle: THandle; InitialFile: WideString): WideString;
function GetDataLinkFiles(FileNames: TStrings; Directory: string = ''): Integer;