Ver Mensaje Individual
  #2  
Antiguo 20-11-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Podés almacenar la última ruta en un [archivo .INI] (modo usado bajo windows 3.1) o hacerlo en el [registro de windows] (usado a partir de windows 95).

Te pongo un ejemplo muy simple de como podrías hacer lo que buscas de este último modo:
Código Delphi [-]
...

implementation

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    if OpenKey('tuAplicacion\OpenDialog1', False) then
      OpenDialog1.InitialDir:= ReadString('InitPath');
  finally
    CloseKey;
    Free;
  end;
end;

...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    if OpenKey('tuAplicacion\OpenDialog1', True) then
      WriteString('InitPath', OpenDialog1.InitialDir);
  finally
    CloseKey;
    Free;
  end;
end;
'tuAplicacion\Opendialog1' y 'InitPat' son valores arbitrarios y podés cambiarlos a tu gusto.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 20-11-2012 a las 00:56:33.
Responder Con Cita