Standardverzeichnisse: Ich brauche mal Eure Mitarbeit

[emsländer]

Da ich schon mitbekommen habe, das die API die Standardordner immer richtig anzeigt, habe ich ein kleines Testprogramm geschrieben, bei dem diese angezeigt werden. Zusätzlich werden noch Windowsversion, SP und Sprache angezeigt. Ich möchte Euch bitten, den Inhalt des Memofensters zu posten. Auch bitte ausländische Versionen. 32-64 Bit etc.

Danke im Voraus


Gruss

EL

[SirThornberry]

Zitat:

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)

Es wäre vielleicht besser wenn du zip-verwendest und dort direkt die Datei drin liegt und nicht erst noch ein Unterordner.

[Gruber_Hans_12345]

Code:

Programmordner: C:\Program Files (x86)
Dokumentenordner: C:\Users\Public\Documents
Anwendungsdaten: C:\ProgramData
Windowsversion:  (version )
Servicepack: 
Windowslanguage: Deutsch (Österreich)

Windows Vista 64

[Phoenix]

Zip auf jeden Fall - ich werde mir kein Rar installieren.

Aber ein Unterordner da drin muss sein - ich hasse es, wenn eine Zip bei 'hier extrahieren' dann meinen Desktop mit tausenden Files zumüllt ;-)

[Daniel]

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)

[Luckie]

Also 7Zip kann auch rar entpacken. ;)

Code:

Programmordner: C:\Programme
Dokumentenordner: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten
Anwendungsdaten: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten
Windowsversion: Microsoft Windows XP (version 5.1)
Servicepack: SP2
Windowslanguage: Deutsch (Deutschland)

Aber warum machen wir das eigentlich?

[borncrush]

So, dann möchte ich auch mal :stupid:

Zitat:

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)

Die Angaben sind alle korrekt ermittelt worden.
:thumb: :mrgreen:

[emsländer]

Zitat:

Zitat von Luckie

Also 7Zip kann auch rar entpacken. ;)

Code:

Programmordner: C:\Programme
Dokumentenordner: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten
Anwendungsdaten: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten
Windowsversion: Microsoft Windows XP (version 5.1)
Servicepack: SP2
Windowslanguage: Deutsch (Deutschland)

Aber warum machen wir das eigentlich?

Weil ich festgestellt habe, das diese Funktion:

Delphi-Quellcode:

function GetShellFolder(CSIDL: integer): string;
var
  pidl                   : PItemIdList; 
  FolderPath             : string;
  SystemFolder           : Integer; 
  Malloc                 : IMalloc; 
begin 
  Malloc := nil; 
  FolderPath := ''; 
  SHGetMalloc(Malloc); 
  if Malloc = nil then 
  begin 
    Result := FolderPath; 
    Exit; 
  end; 
  try 
    SystemFolder := CSIDL; 
    if SUCCEEDED(SHGetSpecialFolderLocation(0, SystemFolder, pidl)) then 
    begin 
      SetLength(FolderPath, max_path); 
      if SHGetPathFromIDList(pidl, PChar(FolderPath)) then 
      begin 
        SetLength(FolderPath, length(PChar(FolderPath))); 
      end; 
    end;
    Result := FolderPath; 
  finally 
    Malloc.Free(pidl); 
  end;
end;

mit dem Übergabewert 46 (CSIDL_COMMON_DOCUMENTS) bei mir bei Windows XP64 einen Leerstring zurückgibt.

Gruss

EL

[Daniel]

Zitat:

Zitat von Luckie

Aber warum machen wir das eigentlich?

Keine Ahnung - aber ich find's cool. Außerdem sind meine Pfade am längsten. :mrgreen:

Programmordner: C:\Program Files
Dokumentenordner: C:\Users\Public\Documents
Anwendungsdaten: C:\ProgramData
Windowsversion: (version )
Servicepack:
Windowslanguage: German (Germany)

Hui - das ist falsch. Ist ein englisches Vista (32bit).

[emsländer]

Zitat:

Zitat von Daniel

Zitat:

Zitat von Luckie

Aber warum machen wir das eigentlich?

Keine Ahnung - aber ich find's cool. Außerdem sind meine Pfade am längsten. :mrgreen:

Programmordner: C:\Program Files
Dokumentenordner: C:\Users\Public\Documents
Anwendungsdaten: C:\ProgramData
Windowsversion: (version )
Servicepack:
Windowslanguage: German (Germany)

Hui - das ist falsch. Ist ein englisches Vista (32bit).

Nunja, mir kommts nicht unbedingt auf die Windowsversion an. Das soll mir nur zur Info dienen. Wichtig sind mir die 3 Ordner.

Gruss

EL

[BenjaminH]

Code:

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)

Statt Version sollte da wohl Win XP Home 32bit stehen.

[Luckie]

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

[Elvis]

Code:

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)

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.
"könnte" weil ich hier noch nie einen dtsch. User drauf hatte, weiß es also nicht.

[emsländer]

Zitat:

Zitat von Luckie

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

Schon witzig. Habe noch ne Änderung gemacht. Mach den Test bitte noch einmal.

Gruss

EL

[SirThornberry]

Zitat:

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)

Warum hast du eigentlich die Rar-Datei in die Zipdatei gestopft? (die History muss meinetwegen auch nicht mit rein)

[Die Muhkuh]

Zitat:

Programmordner: C:\Program Files
Dokumentenordner: C:\Users\Public\Documents
Anwendungsdaten: C:\ProgramData
Windowsversion: (version )
Servicepack:
Windowslanguage: Deutsch (Deutschland)

Windows Vista Ultimate 32-Bit

[Luckie]

Zitat:

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)

[emsländer]

Zitat:

Zitat von SirThornberry

Zitat:

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)

Warum hast du eigentlich die Rar-Datei in die Zipdatei gestopft? (die History muss meinetwegen auch nicht mit rein)

War ein Versehen. Ist geändert.

Gruss

EL

[emsländer]

Zitat:

Zitat von Luckie

Zitat:

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

[Luckie]

Zitat:

Zitat von emsländer

Jetzt fisch ich mir den Dokumentenordner aus der Registry:

Solltest du nicht tun: The long and sad story of the Shell Folders key

Zitat:

Once upon a time, in what seems like a galaxy far far away (a Windows 95 beta release known as "M3"), we documented a registry key called "Shell Folders" that programs could read to obtain the locations of various special folders like the Fonts folder or the My Documents folder.

The developers who received Windows 95 M3 Beta followed the documentation and used that key.

In the meantime, Windows 95 work continued, and we realized that a registry key was the wrong place to store this information. In part, because a lot of things (like the Control Panel) aren't disk directories so they wouldn't be expressible there. And in another part, because we had forgotten to take into account a feature of Windows NT called roaming user profiles, where your user profile can move around from place to place, so a hard-coded path in the registry is no good.

So we created the function SHGetSpecialFolderLocation, and updated the documentation to instruct developers to use this new function to obtain the locations of various special folders. The documentation on the old "Shell Folders" key was removed.

[RavenIV]

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)

Eigentlich ist "Deutsch (Schweiz)" als Regionseinstellung eingestellt.

Siehe die beiden Screenshots.

[emsländer]

Zitat:

Zitat von Luckie

Zitat:

Zitat von emsländer

Jetzt fisch ich mir den Dokumentenordner aus der Registry:

Solltest du nicht tun: The long and sad story of the Shell Folders key

Zitat:

Once upon a time, in what seems like a galaxy far far away (a Windows 95 beta release known as "M3"), we documented a registry key called "Shell Folders" that programs could read to obtain the locations of various special folders like the Fonts folder or the My Documents folder.

The developers who received Windows 95 M3 Beta followed the documentation and used that key.

In the meantime, Windows 95 work continued, and we realized that a registry key was the wrong place to store this information. In part, because a lot of things (like the Control Panel) aren't disk directories so they wouldn't be expressible there. And in another part, because we had forgotten to take into account a feature of Windows NT called roaming user profiles, where your user profile can move around from place to place, so a hard-coded path in the registry is no good.

So we created the function SHGetSpecialFolderLocation, and updated the documentation to instruct developers to use this new function to obtain the locations of various special folders. The documentation on the old "Shell Folders" key was removed.

Schau Dir mal meinen Quellcode an! Das mache ich nur, wenn der "normale" Weg nicht klappt, mir also ein Leerstring geliefert wird. Oder hast ne andere Alternative? Betrifft ja nur 46.

Gruss

EL

[Andreas L.]

Zitat:

Programmordner: C:\Program Files
Dokumentenordner: C:\Users\Public\Documents
Anwendungsdaten: C:\ProgramData
Windowsversion: (version )
Servicepack:
Windowslanguage: Deutsch (Deutschland)

Win Vista 32bit Deutsch

[BiBi]

Zitat:

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)

Angaben stimmen.