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