SaveDialog - InitialDir

[Amateurprofi]

Ich habe ein Programm, das sowohl als 32 Bit Version wie auch als 64 Bit Version laufen soll.
Die .exe Dateien liegen in ...\Win32\Debug und ...\Win64\Debug

Im Create meines Hauptformulars setze ich SaveDialog.InitialDir auf das Programmverzeichnis, also auf ...\Win32\Debug, wenn es als 32 Bit Version gestartet wird oder auf ...\Win64\Debug, wenn es als 64 Bit Version gestartet wird.
(Ich habe kontrolliert, dass InitialDir wirklich korrekt gesetzt wird).

Wenn ich dann im Laufe des Programmablaufes ein SaveDialog.Execute mache, steht das Verzeichnis immer auf ...\Win32\Debug, auch wenn ich die 64 Bit Version starte.

Was mache ich da falsch?

[Dalai]

So ganz ohne Code aus deinem TForm.Create, wie das Verzeichnis gesetzt wird, sowie dem Teil, der SaveDialog.Execute aufruft, wird das schwierig .

MfG Dalai

[Uwe Raabe]

Neuere Windows-Versionen merken sich den letzten Pfad des Dialogs abhängig von der Anwendung. Das InitialDir wird dabei ignoriert.

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Man beachte die Beschreibung von pstrInitialDir.

[Amateurprofi]

Zitat von Dalai:

So ganz ohne Code aus deinem TForm.Create, wie das Verzeichnis gesetzt wird, sowie dem Teil, der SaveDialog.Execute aufruft, wird das schwierig .

MfG Dalai

Na ja,
ich schrieb ja : Ich habe kontrolliert, dass InitialDir wirklich korrekt gesetzt wird.
Insofern dürfte es recht belanglos sein, wie das gemacht wird
trotzdem:

Delphi-Quellcode:

var s:string;
begin
   s:=ExtractFilePath(ParamStr(0));
   if s[Length(s)]='\' then SetLength(s,Length(s)-1);
   SaveDialog.InitialDir:=s;
end;

Und der Teil, der SaveDialog.Exceute aufruft:

Delphi-Quellcode:

begin
   if not SaveDialog.Execute then Exit(false);
   ...
   ...
end;

[Amateurprofi]

Zitat von Uwe Raabe:

Neuere Windows-Versionen merken sich den letzten Pfad des Dialogs abhängig von der Anwendung. Das InitialDir wird dabei ignoriert.

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Man beachte die Beschreibung von pstrInitialDir.

Danke, Uwe, das hat geholfen.
Löste nicht das Problem, aber half, die Ursachen zu verstehen.

[UliBru]

Zitat:

If lpstrFile contains a path, that path is the initial directory.

Das scheint für alle Windows-Versionen zu gelten.
Man kann also die gewünschte InitialDir dem Dateinamen voransetzen, also z.B. in Form von

OpenDialog.Filename := '\MeinInitialDir\*.*';