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;