delphi中怎么打开.udl文件对话框

在 delphi 里，如果是想打开配置数据连接属性，可以使用 PromptDataSource 函数，示例如下：

procedure TForm1.Button1Click(Sender: TObject)

var sConn: string

begin

sConn := PromptDataSource(Handle,'')

sConn := PromptDataLinkFile(Handle,'')

end

如果是打开 选择 .udl 文件的对话框，可以使用 PromptDataLinkFile 函数：

这两个函数的原型定义于  Data.Win.ADODB 单元文件中。

if OpenDialog.Execute then

begin

if SameText( ".txt", ExtractFileExt( OpenDialog.FileName ) ) then

标志位 := 1

else

标志位 := 0

end

或者

if OpenDialog.Execute then

标志位 := Ord( SameText( ".txt", ExtractFileExt( OpenDialog.FileName ) ) )

---