|
▼ Mr.XRAYさん
ありがとうございました。
結局、
ShellListView1DblClickに書いた
ShellExecute(0,'open',PChar(PathName),nil,nil,SW_NORMAL);
では、notepadで開けて
ShellCtrls.pas 内の
ShellExecute(Handle, nil, PChar(PathName), nil,PChar(ExtractFilePath(PathName)), 0); //削除
では開けないということですね。（もう深く追求しないことにします）
教えていただいたように修正してバッチリ確認できました。
本当に助かりました。
以前は、伊藤隆志さんという方のシェルコンポーネントを使用していましたが、
Windows7でShellListViewにアイコンが表示されなくなり、フォルダとファイルの
区別がつかないということから始まった事件でした。
3日間も喫茶室を貸し切りにしていただき感謝の言葉もありません。
ありがとうございました、ヒゲの似合うマスター(?)へ。
|