Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirExists(ExtractFilepath(Application.Exename)+'Test') then
MKDir(ExtractFilepath(Application.Exename)+'Test');
Memo1.Lines.SaveToFile(ExtractFilepath(Application.Exename+'Test\Test'+' '+Datum.Caption +' Uhr.txt');
So sollte es auch gehen.
Ach, liegt deine Anwendung unter NT ff. im Programmverzeichnis und ein normaler Benutzer ohne Schreibrechte will dort speicher, wird das auch in die Hose gehen.
