Hola shoulder
Cita:
Empezado por shoulder
Hola me sigue dando el mismo error, lo extraño es que si como inicio coloco el directorio c:\carga despues cambio directorio, cierro el programa y lo recompilo y me abre en el nuevo directorio ultimo elegido no hace caso al inicialdir.
|
Si, vas a tener que almacenar la ruta también...
Código Delphi
[-]
...
implementation
var
InitialDir : string = 'C:\WINDOWS';
SelFileName : string;
procedure TForm1.FormCreate(Sender: TObject);
begin
OpenDialog1.FileName:= '';
OpenDialog1.InitialDir := InitialDir;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with OpenDialog1 do
if Execute then
begin
SelFileName := FileName; FileName := '';
InitialDir := InitialDir; ShowMessage(SelFileName);
end;
end;
Saludos