Pfad zu Application Data herauslesen

[Flinto]

hallo,

ich möchte für mein Programm den Pfad zu "Application Data" herauslesen.
Ich habe es versucht mit der Funktion "GetShellFolder" mit dem Parameter
CSIDL_COMMON_APPDATA.
Dies funktioniert leider nicht, da er diesen Wert nicht kennt. Andere Werte
zum Beispiel um zum Windows Verzeichnis zu gelangen funktionieren.
Kann mir da jemand weiterhelfen?? Gibt es eine andere Möglichkeit diesen
Pfad herauszulesen??
Ich arbeite mit der Delphi Version 5.0

Danke schon im voraus

Gruss

[marabu]

Hi.

Von Zeit zu Zeit hat MS die Liste der definierten CSIDL erweitert - schau mal in den Windows Platform SDK.

Grüße vom marabu

[Flinto]

ja das hab ich ja gesehen! aber der Wert CSIDL_COMMON_APPDATA kennt er
nicht! An was kann das liegen??

[RavenIV]

ich benutze

Delphi-Quellcode:

GetSpecialFolder (CSIDL_APPDATA);

und es funktioniert.
damit bekomme ich C:\Dokumente und Einstellungen\<Benutzer>\Anwendungsdaten.

[MathiasSimmack]

CSIDL_APPDATA ist ja auch etwas anderes als CSIDL_COMMON_APPDATA. [dp="CSIDL_COMMON_APPDATA"]Letzteres[/dp] bezeichnet nämlich den "Anwendungsdaten"-Ordner für alle Benutzer.

[marabu]

Zitat:

Zitat von Flinto

ja das hab ich ja gesehen! aber der Wert CSIDL_COMMON_APPDATA kennt er
nicht! An was kann das liegen??

Bitte kein Misstrauen gegenüber deinem Compiler - wenn er sagt, dass er die Konstante (noch) nicht kennt, dann ist das so. Ich hatte dir den Link gegeben, damit du die neueren Konstanten definieren kannst, die in deiner Unit SHLOBJ offensichtlich fehlen. Das geht so:

Delphi-Quellcode:

const
  CSIDL_COMMON_APPDATA = $0023;

Freundliche Grüße vom marabu

[Flinto]

also nochmals:
Ich brauche den Pfad zu den 'Application Data' (Anwendungsdateien) von
'all users' und nicht von einem bestimmten user. Also den hier:
'C:\Documents and Settings\All Users\Application Data'.

Mit der Funktion 'GetSpecailFolder(CSIDL_COMMON_APPDATA) sollte ich diesen
Pfad erhalten. Wenn ich dann kompiliere, kennt er diesen Wert (CSIDL_COMMON_APPDATA)
nicht. Nun ist meine Frage immer noch, gibt es noch eine andere Möglichkeit, diesen
Pfad zu erhalten oder weiss jemand den Grund warum es nicht funktioniert??
Die Konstante zu definieren hat auch nicht funkioniert. Reicht das überhaupt aus??
denke nicht..

[Sharky]

Hai Flinto,

weniger die Delphiversion als die Version deiner SHELL32.DLL ist entscheidend.
CSIDL_COMMON_APPDATA ist dort erst ab Version 5 vorhanden.

Was für ein Betriebssystem hast Du denn bzw. welche Version hat die DLL bei Dir?

[Flinto]

ich arbeite mit Window XP Professional. Wo finde ich diese Shell32.dll??
Habe über die Windows Suchmaschine gesucht aber nicht gefunden.
Noch ne vieleicht blöde Frage:
Das heisst aber nicht das wenn ich mein Programm auf einem
anderen Computer, der eine tiefere Version als 5 hat, laufen lasse,
es nicht funktioniert??

danke für die hilfe

[Sharky]

Zitat:

Zitat von Flinto

ich arbeite mit Window XP Professional.

Hmmm... ich auch.

Zitat:

Wo finde ich diese Shell32.dll??

\windows\system32\shell32.dll

Zitat:

...anderen Computer, der eine tiefere Version als 5 hat, laufen lasse,
es nicht funktioniert??

So wie ich den Hinweis im SDK verstanden habe -> JA es läuft nur auf Rechnern mit einer Verion > 5.

[Flinto]

Also die version meiner shell32.dll ist 6.0. Das sollte
also kein Problem sein.
Kann man dann sagen ab welcher Window Version die
shell32.dll Version sicher 5.0 oder höher ist??
Oder gibt es sonst noch eine andere Möglichkeit
diese Systempfade herauszulesen??

[Sharky]

Hai Flinton,

bei mir läuft es ab Windows 2000 prof. aufwärts. Unter Win 98 geht es nicht. Ein Win ME habe ich nicht installiert.

[marabu]

Ich habe mal eben D5 angeworfen:

Delphi-Quellcode:

program Demo;
{$APPTYPE CONSOLE}
uses
  Windows,
  SysUtils,
  ActiveX,
  ShlObj;

function IncludeTrailingPathDelimiter(path: String): String;
begin
  Result := IncludeTrailingBackslash(path);
end;

function GetSpecialFolderLocation(csidl: integer): string;
var
  pMalloc: IMalloc;
  pidl: PItemIDList;
  path: array [0..MAX_PATH] of Char;
begin
  Result := '?';
  if SHGetMalloc(pMalloc) = S_OK then
  begin
    SHGetSpecialFolderLocation(0, csidl, pidl);
    SHGetPathFromIDList(pidl, path);
    Result := IncludeTrailingPathDelimiter(Path);
    pMalloc.Free(pidl);
  end;
end;

begin
  WriteLn(GetSpecialFolderLocation($23));
end.

Das Herzstück ist der API-Call SHGetSpecialFolderLocation() und zu dem sagt der Windows Platform SDK:

Code:

Minimum DLL Version shell32.dll   version 4.7 or later 
Custom Implementation             No 
Header                            shlobj.h 
Import library                    shell32.lib 
Minimum operating systems         Windows NT 4.0, Windows 95

marabu

[Sharky]

Zitat:

Zitat von marabu

...
Das Herzstück ist der API-Call SHGetSpecialFolderLocation() und zu dem sagt der Windows Platform SDK:
Minimum DLL Version shell32.dll version 4.7 or later

Jup.

Aber zu CSIDL_COMMON_APPDATA sagt das SDK

Zitat:

CSIDL_COMMON_APPDATA (0x0023)
Version 5.0. The file system directory containing application data for all users. A typical path is C:\Documents and Settings\All Users\Application Data.

Und darum dachte ich das für diese Funktion min. Version 5 der DLL vorhanden sein muss.

[MathiasSimmack]

Da hast du auch richtig gedacht, Sharky. :)

Die Konstante CSIDL_COMMON_APPDATA gibt es erst ab Windows 2000. Im PSDK findet man eine Übersicht, welche shell32.dll-Version welcher Windows-Version beiliegt.

[Christian Seehase]

Moin Zusammen,

Zitat:

Zitat von MathiasSimmack

Im PSDK findet man eine Übersicht, welche shell32.dll-Version welcher Windows-Version beiliegt.

und welchen Wert man für die jeweilige Konstante braucht, um das Verzeichnis auslesen zu lassen, falls die benutzte Delphi-Version diese nicht bereits implementiert hat.

[slemke76]

Hallo,

Zitat:

Zitat von marabu

die in deiner Unit SHLOBJ offensichtlich fehlen. Das geht so:

Delphi-Quellcode:

const
  CSIDL_COMMON_APPDATA = $0023;

Habe gerade mal unter D7 im Programmverzeichnis nach CSIDL gesucht.
In

Delphi-Quellcode:

uses SHFolder

ist CSIDL_COMMON_APPDATA enthalten.

lg
Sebastian