InitialDir no obedece

[ecfisa]

Hola sac.

Antes de cada llamada al método Execute (y de fijar la propiedad InitialDir), inicializa la propiedad FileName a cadena vacía.

Ejemplo:

Código Delphi [-]
  OpenDialog1.FileName:= '';
  OpenDialog1.InitialDir:= 'C:\DIRECTORIO\...';
  OpenDialog1.Execute;

Saludos.