Pfad mit GUID (KnownFolderId) umwandeln in vollen Pfad

[CodeX]

Zitat von Zacherl:

Du verstehst das eigentliche "Problem" nicht. Wie er die GUID in den eigentlichen Pfad umwandeln kann, weiß er. Die Frage ist eigentlich nur, ob es eine API gibt, die dies analog zu ExpandEnvironmentStrings auch direkt mit zusammengesetzten Strings machen kann.

Danke.

SHGetKnownFolderPath hatte ich ja schon im Eingangsposting erwähnt und das ist auch kein Problem - man muss aber eben "drumherum arbeiten": Zerlegen, GUID prüfen/umwandeln und wieder zusammensetzen. Wenn es aber ein Pendant zu ExpandEnvironmentStrings (was den String als Ganzes nimmt) gäbe, würde ich das bevorzugen, weil es einfach die sauberere Lösung wäre. Da es für mich naheliegend war, dass es sowas geben müsste, ich es aber nicht gefunden hatte, habe ich hier nachgefragt, ob jemand sowas kennt.

[Sir Rufo]

ExpandEnvironmentStrings löst quasi Makros auf, die auch an jeder beliebigen Stelle im Text auftauchen können.

Die CSIDL oder (neuer) KnownFolder können nur am Anfang auftauchen. Aus dem Grund gibt es wohl keine vorgefertigten API-Aufruf der diese Werte dann ersetzt.

Sind aber auch nur eine gute Handvoll Zeilen um das zu bewerkstelligen.

[CodeX]

Danke für die Zusatzinfos!

Ich habe mir das jetzt mal so zusammengebastelt, dass ich eine universelle Funktion habe, um Pfade vollständig umzuwandeln.

Falls es noch jemand brauchen kann:

Delphi-Quellcode:

function ExpandPath(const sPath: String): String;
var
  chrBuffer: LPWSTR;
  chrOut: array[0..1023] of Char;
  sGUID, sRest: String;
  GUID: TGUID;
begin
  Result := sPath;

  if AnsiStartsText('{', Result) and isWinVistaOrLater then
  begin
    sGUID := Copy(Result, 0, Pos('}',Result)); //z.B. '{7C5A40EF-A0FB-4BFC-874A-C0F2E0B9FA8E}' = 'C:\Program Files (x86)'
    sRest := Copy(Result, Pos('}',Result)+1, Length(Result));
    try
      GUID := StringToGUID(sGUID);
      if Succeeded(SHGetKnownFolderPath(GUID, 0, 0, chrBuffer)) then
      begin
        try
          Result := chrBuffer + sRest;
        finally
          CoTaskMemFree(chrBuffer);
        end;
      end;
    except
    end;
  end;

  if AnsiContainsText(Result,'%') then
  begin
    if ExpandEnvironmentStrings(PChar(Result), chrOut, 1024) > 0 then
      Result := chrOut;
  end;

  Result := Trim(Result);
end;