Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Dateipfad in Delphi richtig angeben ? (https://www.delphipraxis.net/37938-dateipfad-delphi-richtig-angeben.html)

Red_Wraith 12. Jan 2005 14:51


Dateipfad in Delphi richtig angeben ?
 
Hi !

Im Moment versuche ich, eine Datei an einen bestimmten Ort zu speichern, ohne den SaveDialog dabei zu verwenden. Das funktioniert auch super, sollange der Pfad keine Leerzeichen enthält. Ausserdem möchte ich gerne, dass die datei im Eigene Dateien Ordner des Benutzers landet, ich erinnere mich noch wage daran, dass man ihrgendwie %LOCALUSER% oder etwas derartiges verwenden muss ?

Ich möchte, dass die File nach C:\Dokumente und Einstellungen\[INSERTCURRENTUSER]\Eigene Dateien\ landet und zum Speichern benutze ich folgendes Stück Code:

Delphi-Quellcode:
lStream:=TFileStream.Create ('C:\test.txt', fmCreate or fmShareDenyNone);

Kann mir einer sagen, wie der Pfad für Delphi umgeschrieben werden muss, bzw. was man anstelle des benutzers schreibt ?

Danke im Vorraus

Dani 12. Jan 2005 16:41

Re: Dateipfad in Delphi richtig angeben ?
 
Hi :hi:

Vielleicht hilft dir ja SHGETFOLDER weiter... CSIDL_MYDOCUMENTS liefert den Pfad zu "Eigene Dateien".

Gruß,
Dani

scp 12. Jan 2005 16:49

Re: Dateipfad in Delphi richtig angeben ?
 
Alternativ ginge auch GetEnvironmentVariable('USERPROFILE') oder das auslesen in der Registry unter HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\Shell Folders bzw. HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Explorer\User Shell Folders, aber alle Ordner die man mit SHGETFOLDER kriegen kann sollte man auch darüber holen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:58 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz