Ogu Web Contents Delphi Tips

デスクトップパスの取得

ボタンを押すとローカル変数よりデスクトップのパスを
取得します。

使用コンポーネント

TButton	TLabel



      {uses節に下記を追加}

      uses

      　Shlobj;

      

      procedure TForm1.Button1Click(Sender: TObject);

      var

      　pidl: PItemIDList;

      　Path: array[0..MAX_PATH] of char;　//DeskTopPath格納用

      begin

      　//デスクトップパスの取得

      　SHGetSpecialFolderLocation( Handle, CSIDL_DESKTOP, pidl);

      　SHGetPathFromIDList( pidl, Path);

      　Label1.Caption := Path;

      end;