GetSpecialFolder

[Mike_on_Tour]

Hallo,

ich möchte in einem Programm den Systempfad für "Dokumente für alle Benutzer ermitteln". Das mache ich mit der Funktion "GetSpecialFolder" und CSIDL_COMMON_DOCUMENTS als Parameter.

Delphi-Quellcode:

function GetSpecialFolder (CSIDL: Integer) : String;
var
  ItemIDList: PItemIDList;
  sFolderPath : String;
  iSystemFolder : Integer;
  pMalloc : IMalloc;
begin
  pMalloc := nil;
  sFolderPath := '';
  SHGetMalloc (pMalloc);
  if (pMalloc = nil)
    then begin
      Exit;
    end;
  try
    iSystemFolder := CSIDL;
    if (SUCCEEDED (SHGetSpecialFolderLocation (0, iSystemFolder, ItemIDList)))
      then begin
        SetLength (sFolderPath, MAX_PATH);
        if (SHGetPathFromIDList(ItemIDList, PChar(sFolderPath)))
          then begin
            SetLength (sFolderPath, Length(PChar(sFolderPath)));
          end;
      end;
  finally
    Result := sFolderPath;
    pMalloc.Free(ItemIDList);
  end;
end;

Prinzipiell funktioniert das auch ganz gut. Ich habe aber jetzt den Fall, daß das Ergebnis der Funktion ein leerer String ist. Meine Vermutung ist, daß "pMalloc = nil" ist und die Funktion beendet wird. Aber warum ?

Was könnte die Ursache sein und wie kann ich darauf reagieren ?

mfG

Mike

[RavenIV]

Da gibt es doch eine fertige API-Funktion dafür.
Der kannst Du mitgeben, welchen SpecialFolder Du suchst.
Leider hab ich grad den Namen vergessen und das Delphi momentan nicht gestartet.

[wido]

Ich hatte mal ein relativ ähnliches Problem. Allerdings konnte ich nie wirklich herausfinden wieso es zu dem Problem kommt. Ich hab stattdessen begonnen die entsprechenden APIs zu meiden und mir den Wert einfach selbst aus der Registry gefischt:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  registry, windows;

//FIXME: Diese Funktion ist ANSI only, bedeutet UNICODE Pfade werden nicht
//       korrekt zurückgeliefert
function GetRegistryPath(valuename : string) : string;
begin
  result := '';
  with TRegistry.Create do
    begin
      RootKey := HKEY_LOCAL_MACHINE;
      OpenKeyReadOnly('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer'+
                      '\Shell Folders');
      if ValueExists(valuename) then
        result := ReadString(valuename);
      CloseKey;
      Free;
    end;
end;

begin
  writeln(GetRegistryPath('Common Documents'));
  readln;
end.

Solltest Du also keine Lösung für Dein Problem finden, hast Du hier wenigstens eine Alternative :).

[jbg]

Zitat:

Zitat von wido

Ich hab stattdessen begonnen die entsprechenden APIs zu meiden und mir den Wert einfach selbst aus der Registry gefischt:

Und genau das soll man nicht machen. Denn Microsoft behält sich vor den Ort und Namen in er Registry zu ändern. Deswegen gibt es die entsprechenden Funktionen.

[Luckie]

Zitat:

Zitat von wido

Ich hatte mal ein relativ ähnliches Problem. Allerdings konnte ich nie wirklich herausfinden wieso es zu dem Problem kommt. Ich hab stattdessen begonnen die entsprechenden APIs zu meiden und mir den Wert einfach selbst aus der Registry gefischt:

Dann solltest du dir dies mal durchlesen: The long and sad story of the Shell Folders key

Zitat:

Zitat von Mike_on_Tour

Meine Vermutung ist, daß "pMalloc = nil" ist und die Funktion beendet wird. Aber warum ?

Dann debug deinen Code doch mal, dann weißt du es.

[RavenIV]

mit dem RootKey HKEY_LOCAL_MACHINE findest Du aber nur die Sachen für AllUsers.

Wenn Du die Sachen des aktuellen USers haben möchtest, musst Du HKey_CURRENT_USER verwenden.

[Mike_on_Tour]

Zitat:

Zitat von wido

Ich hatte mal ein relativ ähnliches Problem. Allerdings konnte ich nie wirklich herausfinden wieso es zu dem Problem kommt. Ich hab stattdessen begonnen die entsprechenden APIs zu meiden und mir den Wert einfach selbst aus der Registry gefischt: ... Solltest Du also keine Lösung für Dein Problem finden, hast Du hier wenigstens eine Alternative :).

Danke für den Beistand und die alternative Lösung. Ich werde mir das mal anschauen.

Zitat:

Zitat von wido

Da gibt es doch eine fertige API-Funktion dafür.

Kann es sein, daß ich die schon verwende ?

Mike

[Mike_on_Tour]

Zitat:

Zitat von Luckie

Dann debug deinen Code doch mal, dann weißt du es.

Das mache ich ja schon. Das Dumme ist nur, das es bei mir funktioniert. Oh, ich habe vergessen anzugeben, daß es auf einem Computer in 300 km Entfernung eben nicht geht.

[Luckie]

Hilfe lesen:

Zitat:

With Microsoft Windows 2000, this function is superseded by SHGetFolderLocation.

Zitat:

Zitat von Mike_on_Tour

Das mache ich ja schon. Das Dumme ist nur, das es bei mir funktioniert. Oh, ich habe vergessen anzugeben, daß es auf einem Computer in 300 km Entfernung eben nicht geht.

Dann ergänz deine if-abfragen um die entsprechenden else-Zweige und gibt dort eine Fehlermeldung aus. Ein Aufruf von GetLastError könnte auch nicht schaden.

[wido]

Zitat:

Zitat von Luckie

Dann solltest du dir dies mal durchlesen: The long and sad story of the Shell Folders key

Ich kenn den Blog Post bereits. Ändert nichts an folgenden Punkten:

1. SHGetSpecialFolderLocation ist von der Benutzung her extrem umständlich.
2. SHGetSpecialFolderLocation neigt dazu aus heiterem Himmel fehl zu schlagen.
3. SHGetSpecialFolderLocation hat einen gigantischen Overhead.

Die Limitierung, daß die Registry Keys erst nach der ersten Verwendung von SHGetSpecialFolderLocation erstellt werden, ist für die Werte, die hier abgefragt werden irrelevant, da sie auch bei einem frisch installiertem Windows bereits existieren.

Allerdings bin ich wahrscheinlich einfach nur zu ungebildet und pragmatisch veranlagt ...