Hola shoulder.
Si no vacias la propiedad
FileName se sobreescribirá el valor de
InitialDir. Para conservar el valor de
FileName y luego utilizarlo, podrías hacer:
Código Delphi
[-]
...
implementation
var
SelectedFileName: string;
procedure TForm1.FormCreate(Sender: TObject);
begin
with OpenDialog1 do
begin
InitialDir:= 'C:\WINDOWS';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with OpenDialog1 do
if Execute then
begin
SelectedFileName := FileName;
FileName := '';
end;
end;
Saludos