TShellListView で複数ファイルのプロパティ参照や「送る」 (ID:38694)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Delphi2009 TShellListView でプロパティ参照や「送る」を使った時 複数ファイルを選択していてもフォーカスのあるファイルしか送ら れないので修正したいのです そーすでは TCustomListView.Selected.Index で「リストで選択され ている最初の項目」しか送っていないようで、 TShellFolderList = array of TShellFolder; とか定義して function TCustomShellListView.GetSelectedFolders: TShellFolderList; var i,Index:integer; begin SetLength(Result,SelCount); Index:=0; for i:=0 to Items.Count-1 do begin if i>SelCount then Break; if Items[i].Selected then begin FFolders[Index]:=TShellFolder(Folders[i]); Inc(Index); end; end; end; とかして DoContextMenuVerb に放り込もうとしたのですがどうにも 根本的に間違っているようで（Interface の知識がない）うまくいきません どなたかこのあたりを修正されている方はおられませんでしょうか？ どうかよろしくお願いします