SHGetFolderLocation

[Luckie]

Da ja die API-Funktion SHGetSpecialFolderLocation veraltet ist und man stattdessen SHgetFolderLocation benutzen sollte, versuche ich gerade meinen Code, um die Pfade zu Systemordner zu ermitteln zu überarbeiten:

Delphi-Quellcode:

uses
  Windows, SysUtils, shlobj, ActiveX;

function SHGetFolderLocation (hwndOwnder: THandle; nFolder: Integer; hToken: THandle; dwReserved: DWORD; ppidl:
  PItemIdList): HRESULT; stdcall; external 'shell32.dll' name 'SHGetFolderLocation';
function SHGetPathFromIDListW(Pidl: PItemIDList; pszPath: PWideChar): BOOL; stdcall; external 'shell32.dll'
  name 'SHGetPathFromIDListW';

function PathFromIDList(Pidl: PItemIdList): WideString;
begin
  SetLength(Result, MAX_PATH);
  if not SHGetPathFromIDListW(Pidl, PWideChar(Result)) then
    raise Exception.Create('Odner kann nicht ermittelt werden');
end;

function GetShellFolder(CSIDL: Integer): WideString;
var
  ppidl: PItemIdList;
begin
  ppidl := CoTaskMemAlloc(0);
  try
    case SHGetFolderLocation(0, CSIDL, 0, 0, ppidl) of
      S_OK: Result := PathFromIDList(ppidl);
      S_FALSE: raise Exception.Create('Ordner existiert nicht');
      E_INVALIDARG: raise Exception.Create('Argument ungültig');
    end;
  finally
    CoTaskMemFree(ppidl);
  end;
end;

begin
  try
    Writeln(GetShellFolder(CSIDL_LOCAL_APPDATA));
  except
    on E: Exception do
      Writeln(E.Message);
  end;
  Readln;
end.

Leider steigt er beim Aufruf von SHGetPathFromIDListW mit einer Access Violation in der shell32.dll aus, obwohl der Übergabeparamter gültig ist.

Was mache ich da noch falsch?

[Popov]

Das ist es nicht, aber sollte nicht immer MAX_PATH + 1 reserviert werden?

[Luckie]

Wahrscheinlich müsste es sogar (MAX_PATH * 2) + 2 heißen, da ich die Unicode Version nutze.

[Fridolin Walther]

Zitat von Luckie:

Wahrscheinlich müsste es sogar (MAX_PATH * 2) + 2 heißen, da ich die Unicode Version nutze.

Nicht wirklich, weil SetLength einen WideString imho als array of WideChar interpretiert und ein WideChar 2 Byte groß ist .

Ansonsten hab ich den Fehler gefunden (http://msdn.microsoft.com/en-us/libr...80(VS.85).aspx):

Zitat:

[out] The address of a pointer to an item identifier list structure that specifies the folder's location relative to the root of the namespace (the desktop). The ppidl parameter is set to NULL on failure. The calling application is responsible for freeing this resource by calling ILFree.

Man setze also ein @ vor ppidl im SHGetFolderLocation Aufruf .

[Luckie]

Zitat von Fridolin Walther:

Man setze also ein @ vor ppidl im SHGetFolderLocation Aufruf .

Ich werde den Zeigern noch mal den Krieg erklären: "Ab 5:40 wird zurrrrück gezeigt!".

[Fridolin Walther]

Wenn ich sage, daß wir selbst schuld sind, weil wir die Doku nicht aufmerksam gelesen haben, dann bekomm ich haue, oder?

[Luckie]

Nur ein Problem bleibt noch: Wie bekomme ich die Fragezeichen (in der Konsole) weg?

C:\Dokumente und Einstellungen\Michael\Lokale Einstellungen\Anwendungsdaten'#0'몭몭몭몭몭몭몭몭 몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭 몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭 몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭 몭몭몭몭몭몭몭몭몭'

Mit trim funktioniert es nicht. Und die Funktion SHGetPathFromIDListW liefert wohl auch keine Informationen über die Länge des Ergebnisses.

Gelesen habe ich sie, nur dachte ich PItemIdList wäre schon der Zeiger wegen des "P"s.

[Fridolin Walther]

Delphi-Quellcode:

function PathFromIDList(Pidl: PItemIdList): WideString;
const
  NTFS_MAX_PATH = 32767;
var
  Path : PWideChar;
begin
  GetMem(Path, (NTFS_MAX_PATH + 1) * 2);
  if not SHGetPathFromIDListW(Pidl, Path) then
    begin
      FreeMem(Path);
      raise Exception.Create('Odner kann nicht ermittelt werden');
    end;
  Result := WideString(Path);
  FreeMem(Path);
end;

Wahrscheinlich wird beim SetLength nicht mit 0 initialisiert, was dafür sorgt, daß das abschließende 0-Byte fehlt. GetMem dagegen initialisiert mit 0.

Zitat von Luckie:

Gelesen habe ich sie, nur dachte ich PItemIdList wäre schon der Zeiger wegen des "P"s.

Ist ja auch ein Zeiger. Nur wird halt kein Zeiger auf eine Variable erwartet, sondern ein Zeiger auf einen Zeiger der auf eine Variable zeigt .

[Luckie]

Jupp, so geht es:

Delphi-Quellcode:

function PathFromIDList(Pidl: PItemIdList): WideString;
const
  NTFS_MAX_PATH = 32767;
var
  Path: PWideChar;
begin
  GetMem(Path, (NTFS_MAX_PATH + 1) * 2);
  try
    if not SHGetPathFromIDListW(Pidl, Path) then
    begin
      FreeMem(Path);
      raise Exception.Create(rsE_GetPathFromIDList);
    end;
    Result := WideString(Path);
  finally
    FreeMem(Path);
  end;
end;

Ich habe noch den Ressourcenschutzblock ergänzt.

Zitat:

Zeiger auf einen Zeiger der auf eine Variable zeigt

Gehts noch?

[Fridolin Walther]

Zitat von Luckie:

Ich habe noch den Ressourcenschutzblock ergänzt.

Der gute Robert C. Martin wird uns töten wenn er sieht wie wir hier try..except..finally mit dem Code mischen .

Zitat von Luckie:

Gehts noch?

Wenn man genauer drüber nachdenkt machts sogar Sinn .

Noch ein kleiner Hinweis:
Entfern das "ppidl := CoTaskMemAlloc(0);" noch aus dem Code. Ist nicht wirklich notwendig.