DllCall的使用
DllCall的使用[翻译转帖]列表当前所有窗体-使用DllCall--大家一起学习一下
这个程序可以遍历当前窗体,并查找其标题,用消息框显示出来。
子程序是Larry大师的作品,可以做为功能子程序来调用。
尤其值得大家学习的是使用了DllCall,它的使用对我们还比较新鲜,请仔细学习。
AutoItSetOption("WinTitleMatchMode", 4);2 = Match any substring in the title
$h = GetWindowHandles()
$dataout=""
For $i = 1 to $h
$title=WinGetTitle("handle="&$h[$i])
$dataout=$dataout&$h[$i]&"--->"&$title& @CRLF
Next
MsgBox(1,"Windows",$dataout)
Func GetWindowHandles()
$GW_HWNDNEXT = 2
$GW_CHILD = 5
Dim $List
$List=0
$x = DLLCall("user32.dll","hwnd","GetDesktopWindow")
if @error Then Return $List
$x = DLLCall("user32.dll","hwnd","GetWindow","hwnd",$x,"int",$GW_CHILD)
if @error Then Return $List
While 1
$x = DLLCall("user32.dll","hwnd","GetWindow","hwnd",$x,"int",$GW_HWNDNEXT)
if @error Then ExitLoop
If String($x) = "00000000" Then ExitLoop
If BitAnd(WinGetState($x),2) Then
$ub = Ubound($List)
Redim $List[$ub+1]
$List[$ub]=$x
$List=$ub
EndIf
WEnd
Return $List
EndFunc
下面是另一个调用这个程序的应用,对所有当前窗体设置透明度。
注意使用这个程序后,自己修改透明度好再恢复。
$h = GetWindowHandles()
For $i = 1 to $h
WinSetTrans($h[$i],"", 100)
Next
Func GetWindowHandles()
$GW_HWNDNEXT = 2
$GW_CHILD = 5
Dim $List
$List=0
$x = DLLCall("user32.dll","hwnd","GetDesktopWindow")
if @error Then Return $List
$x = DLLCall("user32.dll","hwnd","GetWindow","hwnd",$x,"int",$GW_CHILD)
if @error Then Return $List
While 1
$x = DLLCall("user32.dll","hwnd","GetWindow","hwnd",$x,"int",$GW_HWNDNEXT)
if @error Then ExitLoop
If String($x) = "00000000" Then ExitLoop
If BitAnd(WinGetState($x),2) Then
$ub = Ubound($List)
Redim $List[$ub+1]
$List[$ub]=$x
$List=$ub
EndIf
WEnd
Return $List
EndFunc
DllCall命令,是调用dll动态连接库里已有的功能函数。其格式是
DllCall ( "dll文件", "返回值类型", "功能", "参数类型", 参数 )
虽然帮助文件里在介绍格式时,没有说明是否可以有省略的参数,但从上面的例子中一句
$x = DLLCall("user32.dll","hwnd","GetDesktopWindow")
可以看出,在特定使用时,可以省略后两项。
DllCall的使用是要看具体的dll和dll中具体的功能及使用方法来定的。我没有研究我user32.dll里的功能,但从上面的例子来看,可以简单解释一下。
在user32.dll中,有函数GetDesktopWindow和GetWindow
GetDesktopWindow的功能是取得桌面的句柄
GetWindow的功能是取得窗体的句柄,其中,在赋整形值5时,返回第一个窗体的句柄;在赋整形值2时,返回下一个窗体的句柄。这点比较类型FileFindFirstFile和FileFindNextFile
用循环的方式取得所有窗体的句柄,直到String($x) = "00000000"。
并非所有窗体都是可见的,我们需要的只是可见的,所以BitAnd(WinGetState($x),2),过滤出可见的窗体。
最后用$title=WinGetTitle("handle="&$h[$i])取得可见窗体的标题。 好复杂,偶还是小菜,看不懂,努力,努力学习。。。。 努力,努力学习。。。。 :face (29): :face (10)::face (10): 关于USER32.DLL的用户库函数请查看
http://www.delphijs.net/ArticledelphiWZ/delphiWZWFL/200810/326.html 看不懂,努力,努力学习。。。。 嗯,不过。在帮助文档里参数是可选的有说哦
唉,还是对DllCall这个东西很模糊 唉,对DllCall这个东西很模糊. 努力学习 谢谢楼上分享!!!!!! 看一下,谢谢 有一个地方把函数翻译成功能了。 看起来好难呀 嗯,不过。在帮助文档里参数是可选的有说哦
唉,还是对DllCall这个东西很模糊
a1986040444 发表于 2009-10-11 10:58 http://www.autoitx.com/images/common/back.gif
嗯,对DllCall说的很模糊,什么参数1,值1。。。 其实你可以这样理解调用某类函数的某个函数, 需要它哪个属性就选择哪个参数 主要是DLL函数的介绍模糊,就算知道怎么用,也不知道什么东西需要那个来写。
页:
[1]
2