Jak odczytać ścieżki folderów specjalnych

Aby odczytać ścieżkę folderów specjalnych w systemie, można skorzystać z poniższego kodu podając odpowiedni parametr:

uses ShlObj;

function GetSpecialFolderPath(const Folder: Integer): string;
var
  Path: array[0..MAX_PATH] of Char;
begin
  SHGetSpecialFolderPath(0, Path, Folder , False);
  Result := Path;
end;

Folder może przyjąć jedną z wartości:

.. [#] Określenia wersja x.y odnoszą się do wersji powłoki systemu, w której dana stała została wprowadzona. Informacje o tym, jak określić wersję powłoki, można znaleźć tutaj: Shell and Common Controls Versions

.. [#]
.. [#]
.. [#] Stałe niezadeklarowane w module ShelObj.pas.

Źródło

Jak odczytac ścieżkę do katalogu WINDOWS, SYSTEM32 oraz aktualnego?

const
  {$EXTERNALSYM CSIDL_WINDOWS}
  CSIDL_WINDOWS=$0023;
  {$EXTERNALSYM CSIDL_SYSTEM}
  CSIDL_SYSTEM=$0024;
  {$EXTERNALSYM CSIDL_CURRENT}
  CSIDL_CURRENT=$0025;

function GetDirectory(const Folder: Integer): String;
var
  Buffer: array[0..255] of Char;
  BufferSize: Cardinal;
begin
  BufferSize := 255;
  case Folder of
    CSIDL_WINDOWS: GetWindowsDirectory(Buffer, BufferSize);
    CSIDL_SYSTEM: GetSystemDirectory(Buffer, BufferSize);
    CSIDL_CURRENT: GetCurrentDirectory(BufferSize, Buffer);
  end;
  Result := String(Buffer);
end;

Źródło