SaveDialog - InitialDir

[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;