Systemディレクトリのパスを取得する ■必要なコンポーネント
■使用するAPI関数
■ソースは下記のようになります。追加している所は青色です。
procedure
TForm1.Button1Click(Sender: TObject); Var //バッファを確保 SystemPath : array [0..256] of char; begin //Systemディレクトリを取得 GetSystemDirectory(SystemPath, sizeof(SystemPath)); ShowMessage(SystemPath);
end;