"C:\Programme" ermitteln?

[Sharky]

Zitat:

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.

[mirage228]

Hi,

laut MSDN gibt es die Konstante CSIDL_PROGRAM_FILES auch erst in der in der Version 5.0 der Common Controls.
Und Win98 verwendet imho nur 4.71...

mfG
mirage228