"C:\Programme" ermitteln?

[Sharky]

Zitat von MathiasSimmack:

... Sorry, aber das stimmt nicht.

Hai Mathias,

ich kann das aber auch bestätigen. Bei mir wird mit diesem Code:

Delphi-Quellcode:

function GetShellFolder(CSIDL: integer): string;
var
  pidl: PItemIdList;
  FolderPath: string;
  SystemFolder: Integer;
begin
  FolderPath := '';
  SystemFolder := CSIDL;
  if SUCCEEDED(SHGetSpecialFolderLocation(0, SystemFolder, pidl)) then
  begin
    SetLength(FolderPath, MAX_PATH);
    SHGetPathFromIDList(pidl, PChar(FolderPath));
    SetLength(FolderPath, lstrlen(PChar(FolderPath)));
  end;
  Result := FolderPath;
end;

Für CSIDL_PROGRAM_FILES auch ein Leerstring zurückgegeben wenn ich ein OS < NT verwende.