Unit zur Verwendung von SHGetKnownFolderPath

[p80286]

@ringli
Vielen dank, daß Du Dir die Mühe gemacht hast, jetzt kann ich doch noch ein wenig bei D7 bleiben.

Gruß
K-H

[ringli]

Habe die Unit mal aktualisiert so das jetzt auch die neueren Folder-ID's enthalten sind.

[Fritzew]

Hallo Ringli

Danke für die Unit,

aber eine Anmerkung: Dein Code gibt den Speicher nicht frei.


Ich habe es so geändert:

Delphi-Quellcode:

function GetKnownFolderPath(const rfid: TGUID): string;
var
  OutPath : PWideChar;
begin
  if ShGetKnownFolderPath(rfid, 0, 0, OutPath) {>= 0} = S_OK then
    begin
      Result := OutPath;
//   From MSN
//     ppszPath [out]
//     Type: PWSTR*
//     When this method returns, contains the address of a pointer to a null-terminated Unicode string that specifies the path of the known folder
//     The calling process is responsible for freeing this resource once it is no longer needed by calling CoTaskMemFree.
//      The returned path does not include a trailing backslash. For example, "C:\Users" is returned rather than "C:\Users\".
      CoTaskMemFree(OutPath);
    end
  else
    begin
      Result := '';
    end;
end;

Benötigt auch noch die WinApi.ActiveX im uses.

[ringli]

Danke für den Hinweis. Habe den Anhang entsprechend aktualisiert.

[Fritzew]

Du musst aber die Funktion noch auf Rückgabe String ändern.......
Dein Result zeigt auf den freigegebenen Speicher

function GetKnownFolderPath(const rfid: TGUID) : string; // Hier

[PeterPanino]

In einem anderen Forum sagte jemand, man solle in diesem Zusammenhang eher Winapi.Ole2.CoTaskMemFree statt Winapi.ActiveX.CoTaskMemFree verwenden.

Was haltet ihr davon?

[KodeZwerg]

Zitat von PeterPanino:

In einem anderen Forum sagte jemand, man solle in diesem Zusammenhang eher Winapi.Ole2.CoTaskMemFree statt Winapi.ActiveX.CoTaskMemFree verwenden.

Was haltet ihr davon?

Gar nichts, aber wenn man Dateigröße sparen mag und nur das CoTaskMemFree benötigt ohne Zusatz Units einzubinden die die .exe aufblähen, nutze ich die Api direkt procedure CoTaskMemFree(pv: Pointer); stdcall; external 'ole32.dll';