Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

[emsländer]

Zitat von Luckie:

Zitat von Luckie:

Man beachte, dass bei mir der Dokumentenordner identisch mit den Anwendungsdatenordner ist!

Jetzt bekomm eich was anderes raus:

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)

Jetzt fisch ich mir den Dokumentenordner aus der Registry:

Delphi-Quellcode:

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;

Gruss

EL