DBR Delphi-Ecke

// Bei neueren Versionen versagt in den meisten Fällen
// beim OpenDialog oder beim SaveDialog das "InitialDir".
// Das Beispiel ...

procedure TForm2.Button1Click(Sender: TObject); 
begin 
  OpenDialog1.InitialDir := 'D:\WEB\Video'; 
  if OpenDialog1.Execute then 
  begin 
    // ... 
  end; 
end;

// ... funktioniert nicht, falls man nicht zufälligerweise zuletzt
// in diesem Ordner eine Datei geöffnet hat. Deshalb mein Vorschlag:

procedure TForm2.Button1Click(Sender: TObject); 
begin 
  OpenDialog1.InitialDir := 'D:\WEB\Video'; 
  SetCurrentdir(OpenDialog1.InitialDir); 
  if OpenDialog1.Execute then 
  begin 
    // ... 
  end; 
end;

// Das funktioniert zwar nicht innerhalb der Entwicklungs-Umgebung, aber
// beispielsweise bei Windows 7 dann außerhalb der IDE.