LVM_HITTEST

質問

マウス位置に存在するエクスプローラ内のアイテムを取得しようと思っております。

エクスプローラの左側のフォルダ一覧(クラス名：SysTreeView32)と右側のファイルとフォルダ名の一覧（クラス名：SysTreeView32）において、そのSysListView32内のマウス位置に存在するアイテムを取得したいのです。

なぜかというと、オリジナルアプリ内のリストビューにFTPサーバのファイル一覧を出力し、リストビューからエクスプローラへの直接ドラッグにより、サーバからローカル\TempにDLして、ドラッグ先にDLしたファイルを移動したいのです。

現状としてはLVM_HITTESTをエクスプローラ内のSysListView32に送っているのですが、こちらが送ったLVHITTESTINFO構造体のXYと、SpyでみたXYの値が違っているのです。結果としてアイテムインデックスを得ることができませんでした。

参考までに、LVM_GETITEMCOUNTはエクスプローラからも取得できました・・・

どのようにしたら、マウス位置のアイテムを取得することができるのでしょうか？

簡単に処理内容を記します。
ドラッグ時に
GetCursorPos：マウス位置を取得
WindowFromPoint：マウス位置のハンドル取得
GetClassName：マウス位置のハンドルよりそのオブジェクトのクラス名を取得
以下は[クラス名＝SysListView32]のときのみの処理
ScreenToClient：SysListView32をベースとした座標に変換
SendMessage： TVM_HITTESTと、LVHITTESTINFO構造体を送る

以上です。

本当は・・・
アプリはVBにて製作中なのですが、この手の質問はこちらのＣの掲示板の方が回答を望めるかもと思って、こちらに質問させていただきました。Ｃで答えていただいて結構です。こちらでコンバートしますので。。。

どうぞよろしくお願いいたします。m(__)m

回答No.3

akinori_s · ベストアンサー

実際に試した訳じゃないのでうまくいくか分かりませんが、
思い付いた事を．．．．

たしか今回のように別のプロセスにあるウィンドウを調べようとした場合、
LVM_GETITEMCOUNTのようにSendMessageの戻り値で取得するのは
問題ないけど、LVM_HITTESTのように構造体のアドレスを渡す場合には
CreateFileMappingとMapViewOfFileを使って、共有メモリから
割り当てなければならなかったと思います。

// 共有メモリをオープン
HANDLE hFileMapping = CreateFileMapping((HANDLE)0xFFFFFFFF, NULL,PAGE_READWRITE, 0, sizeof(LVHITTESTINFO), NULL);
LVHITTESTINFO* pHitTestInfo = (LVHITTESTINFO*)MapViewOfFile(hFileMapping, FILE_MAP_ALL_ACCESS, 0, 0, 0);

//LVHITTESTINFO構造体への値設定
・・・

//HitTest
SendMessage(hSysWnd, LVM_HITTEST, 0, (LPARAM)pHitTestInfo);

// 共有メモリをクローズ
UnmapViewOfFile(pHitTestInfo);
CloseHandle(hFileMapping);

お礼

ＶＢ仕様かな？と思って、同様の処理をＣでも作成して検証しました。

LVM_HITTESTを行うと、やはりメモリの違反が発生します。
海外サイトでも、別プロセスへのHITTESTのサンプルが存在しないのは、根本的に無理だから？

とりあえず、別方法を考えます。

補足

現在VBのコードで、HitTestマクロを改良中です。
教えていただいたコードを参考に、このような状況になりました。

わかりずらいかもしれませんが、VBではAPIを呼ぶときに呼びたいAPI関数の宣言を先頭に行います。ですのでポインタで渡さなければならない部分は、きちんとポインタ渡しになっております。

Private Function ListView_HitTest(hwndLV As Long, pInfo As LVHITTESTINFO) As Long
　　Dim hFileMapping　　As Long
　　Dim pHitTestInfo　　As Long

　　'共有メモリをオープン
　　hFileMapping = CreateFileMapping(&HFFFFFFFF, ByVal 0&, PAGE_READWRITE, 0, LenB(pInfo), ByVal 0&)
　　pHitTestInfo = MapViewOfFile(hFileMapping, FILE_MAP_ALL_ACCESS, 0&, 0&, 0&)

　　'パラメータによって受けた値を、共有メモリ領域にコピー
　　Call CopyMemory(ByVal pHitTestInfo, pInfo, Len(pInfo))

　　'ヒットテスト
　　ListView_HitTest = SendMessage(hwndLV, LVM_HITTEST, 0, ByVal pHitTestInfo)
　　Call CopyMemory(pInfo, ByVal pHitTestInfo, Len(pInfo))

　　'それぞれ開放
　　Call UnmapViewOfFile(pHitTestInfo)
　　Call CloseHandle(hFileMapping)
End Function

で現状としては、自アプリ中のリストビューからリストビューへのHITTESTは求めている結果を得ることができます。エクスプローラ内のリスビューに送ると、エクスプローラが落ちます。共有メモリの取得失敗？

最初に述べているようにVBで作成中です。使用しているリストビューは、VBのコントロールのリストビューです。スパイで監視したところ、ヒットテストのメッセージがそのVBリストビューコントロールで受けてないように見えます。[LVM_HITTEST]が発生していないのです。もしかして、VB仕様？もしそうなら、みなさんに迷惑をかけてしまってすいません。

もういちど、vbコントロールを使用しないで、API関数のみでリストビューを自作して調査してみます。
それでもだめなら、本当はCでDLLを作成するべきなのでしょうが、「VBでのFTPソフト」を目指しているので、できたらVBオンリーにしたいのです。。。

何はともあれもう一度チャレンジ！