システムディレクトリ（フォルダ）の取得

Win32にはシステムディレクトリなどのディレクトリ（フォルダ）名を取得する関数があります。通常、ＤＬＬやActiveXコントロールはシステムディレクトリに置いておきます。また、ＩＮＩファイルはWindowsディレクトリに置きます。

システムディレクトリを得るには

システムディレクトリは、GetSystemDirectory関数によって得ることができます。

Windowsディレクトリを得るには

Windowsディレクトリは、GetWindowsDirectory関数によって得ることができます。

カレントディレクトリを得るには

カレントディレクトリは、GetCurrentDirectory関数によって得ることができます。この関数の引数の並びは上の2つと違うので注意してください。

例

procedure TForm1.FormCreate(Sender: TObject);
var
    lpBuffer: PChar;
begin
    lpBuffer := AllocMem(256);
    GetSystemDirectory(lpBuffer, 256); // システムディレクトリを得る
    StaticText1.Caption := StrPas(lpBuffer);
    GetWindowsDirectory(lpBuffer, 256); // Windowsディレクトリを得る
    StaticText2.Caption := StrPas(lpBuffer);
    GetCurrentDirectory(256, lpBuffer); // カレントディレクトリを得る
    StaticText3.Caption := StrPas(lpBuffer);
    FreeMem(lpBuffer);
end;