Esta rutina hace lo que necesitas mi buen amigo
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
Const
LCSPATHUDLCONFIG = 'c:\Tem-des\edgram\';
Var
LsUDlConfig: WideString; LStlDTLCont: TStringList; begin
Try
LStlDTLCont := TStringList.Create;
If FileExists(LCSPATHUDLCONFIG + 'Test.udl') Then
LStlDTLCont.LoadFromFile(LCSPATHUDLCONFIG + 'Test.udl');
LsUDlConfig := PromptDataSource(Self.Handle,LStlDTLCont.Text);
If Length(Trim(LsUDlConfig)) > 0 Then
LStlDTLCont.Text := LsUDlConfig;
LStlDTLCont.SaveToFile(LCSPATHUDLCONFIG + 'Test.udl');
Finally
LStlDTLCont.free;
End;
end;