掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
win７のエクスプローラ表示の「ライブラリ」直下のフォルダのアドレスの取得は (ID：42572)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
フォームにbutton1とlistbox1があるとして、以下のような感じ？ D6だと色々定義が足りない気がしますが procedure TForm1.Button1Click(Sender: TObject); var penumShellItems: IEnumShellItems; hr: HResult; pItem: IShellItem; pItem2: IShellItem; Fetched: Longint; ppszName: PWideChar; begin hr := SHCreateItemInKnownFolder(FOLDERID_Libraries, 0, Nil, IID_IShellItem, pItem); if Succeeded(hr) then begin hr := pItem.BindToHandler(Nil, BHID_EnumItems, IID_IEnumShellItems, penumShellItems); if Succeeded(hr) then begin repeat hr := penumShellItems.Next(1, pItem2, @Fetched); if Failed(hr) then break; if Fetched > 0 then begin pItem2.GetDisplayName(SIGDN_NORMALDISPLAY, ppszName); ListBox1.AddItem(ppszName, Nil); CoTaskMemFree(ppszName); pItem2 := Nil; end; until hr = S_FALSE; penumShellItems := Nil; end; pItem := Nil; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.