在论坛逛了很长时间。只发现了个 鼠标选择事件。。没发现双击的。
代码如下:While 1
Sleep(1000)
ClickChoose()
WEnd
Func ClickChoose()
$index = ControlListView('[class:Progman]', "", "SysListView321", "GetSelected")
$isselect = ControlListView('[class:Progman]', "", "SysListView321", "IsSelected",0)
If ($isselect =1 and $index = 0 ) Or $index >0 Then
$file = ControlListView('[class:Progman]', "", "SysListView321", "GetText",$index)
$path = ControlGetText('[class:Progman]', "",'Edit1')
$longfilename = $path & $file
MsgBox(4096,0,"你选择的是: "&$longfilename)
Return $longfilename
Else
Return ''
EndIf
EndFunc
这个代码是 论坛上某位 前辈写的。我修改了一下。现在获取的是 桌面上 被鼠标选择的 名称。
我想要个 类似的功能 但是 是 鼠标双击后 才获取被 双击的 程序名称。该怎么 入手呢?大家帮帮忙。。谢谢了。。在线等~~~ |