Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
Code:
Statt Version sollte da wohl Win XP Home 32bit stehen.
Programmordner: C:\Programme
Dokumentenordner: C:\Dokumente und Einstellungen\All Users\Dokumente Anwendungsdaten: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten Windowsversion: (version ) Servicepack: SP2 Windowslanguage: Deutsch (Deutschland) |
Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
Man beachte, dass bei mir der Dokumentenordner identisch mit den Anwendungsdatenordner ist!
|
Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
Code:
Ist ein Multilingual XP, bei einem deutschen User könnten die User-spezifischen Ordner innerhalb seines Profils also durchaus deutsch, französisch oder was-weiß-ich-erisch sein.
Programmordner: C:\Program Files
Dokumentenordner: C:\Documents and Settings\All Users\Documents Anwendungsdaten: C:\Documents and Settings\All Users\Application Data Windowsversion: Microsoft Windows XP (version 5.1) Servicepack: SP2 Windowslanguage: English (United States) "könnte" weil ich hier noch nie einen dtsch. User drauf hatte, weiß es also nicht. |
Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
Zitat:
Gruss EL |
Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
Zitat:
|
Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
Zitat:
|
Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
Zitat:
Code:
Programmordner: C:\Programme
Dokumentenordner: C:\Dokumente und Einstellungen\All Users\Dokumente Anwendungsdaten: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten Windowsversion: Microsoft Windows XP (version 5.1) Servicepack: SP2 Windowslanguage: Deutsch (Deutschland) |
Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
Zitat:
Gruss EL |
Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
Zitat:
Delphi-Quellcode:
Gruss
function get_dok_from_reg : string;
Var reg : TRegistry; begin result := ''; reg := TRegistry.Create; try reg.RootKey := HKEY_LOCAL_MACHINE; if reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',true) then begin if reg.ValueExists('Common Documents') then result := reg.Readstring('Common Documents'); end; except // end; end; EL |
Re: Standardverzeichnisse: Ich brauche mal Eure Mitarbeit
Zitat:
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:34 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz