Initial Dir bei mehreren Dialogen

[DeddyH]

Das hier funktioniert bei mir:

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
begin
  dlgOpen1.InitialDir := ExtractFilePath(ParamStr(0));
  dlgOpen1.Execute;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  dlgOpenPic1.InitialDir := 'C:\Windows';
  dlgOpenPic1.Execute;
end;