学习dllcall啦……

仙乃日

DllCall ( "dll", "返回值类型", "函数名称" [, "类型1", 参数1[, "类型n", 参数n]] )
"返回值类型":除非API函数明确规定了参数类型必须为某类型。不然的话int、long、BOOL、UINT、ULONG、DWORD、ptr、HWND、HANDLE、float可以替用，都是占用4字节。
同样short、USHORT、WORD也可替用。INT64、UINT64、double也行。在字节相等的情况下，一般可以选用别的参数类型，不过最好是按API的参数类型来写。

DllCall("user32.dll","int","MessageBoxW","hwnd",0,"wstr","欢迎学习DLLCall!","wstr","例子1","uint",0)
DllCall("user32.dll","long","MessageBoxW","hwnd",0,"wstr","欢迎学习DLLCall!","wstr","例子2","ULONG",0)
DllCall("user32.dll","BOOL","MessageBoxW","hwnd",0,"wstr","欢迎学习DLLCall!","wstr","例子3","HWND",0)
DllCall("user32.dll","DWORD","MessageBoxW","hwnd",0,"wstr","欢迎学习DLLCall!","wstr","例子4","HANDLE",0)
DllCall("user32.dll","float","MessageBoxW","hwnd",0,"wstr","欢迎学习DLLCall!","wstr","例子5","ptr",0)

MessageBoxW定义

WINUSERAPI int WINAPI MessageBoxW (HWND hWnd, LPCWSTR lpText, 　　LPCWSTR lpCaption, UINT uType) 

所以dllcall("user32.dll","int","MessageBoxW","hwnd",0,"wstr","欢迎学习DLLCall!","wstr","例子1","uint",0)的写法最适合。

仙乃日

变量转换的例子

$SYSTEMTIME=DllStructCreate("ushort wYear;ushort wMonth;ushort wDayOfWeek;ushort wDay;ushort wHour;ushort wMinute;ushort wSecond;ushort wMilliseconds") 
DllCall("Kernel32.dll","none","GetSystemTime","ptr",DllStructGetPtr($SYSTEMTIME)) 
MsgBox(0,"Current time:",DllStructGetData($SYSTEMTIME,"wHour")&":"&DllStructGetData($SYSTEMTIME,"wMinute"))

仙乃日

如何理解LPCTSTR类型？ 　　L表示long指针 这是为了兼容Windows 3.1等16位操作系统遗留下来的，在win32中以及其他的32位操作系统中， long指针和near指针及far修饰符都是为了兼容的作用。没有实际意义。 　　P表示这是一个指针 　　C表示是一个常量 　　T表示在Win32环境中， 有一个_T宏

LPTSTR、LPCSTR、LPCTSTR、LPSTR的意义：

LPSTR：32bit指针 指向一个字符串，每个字符占1字节

LPCSTR:32-bit指针 指向一个常字符串，每个字符占1字节
LPCTSTR:32-bit指针 指向一个常字符串,每字符可能占1字节或2字节，取决于Unicode是否定义
LPTSTR:32-bit指针 每字符可能占1字节或2字节，取决于Unicode是否定义

仙乃日

UpdateDriverForPlugAndPlayDevices

BOOLWINAPI  UpdateDriverForPlugAndPlayDevices(    IN HWND  hwndParent  OPTIONAL,    IN LPCTSTR  HardwareId,    IN LPCTSTR  FullInfPath,    IN DWORD  InstallFlags,    OUT PBOOL  bRebootRequired  OPTIONAL    );

自己写的dllcall

Dim $DeviceID,$InfPath,$iFlags
$DeviceID="pci\cc_0101"
$InfPath=@WindowsDir&"\inf\mshdc.inf"
$iFlags=5
DllCall("newdev.dll", "bool", "UpdateDriverForPlugAndPlayDevices", "hWnd", 0,"str", $DeviceID, "str", $InfPath, "dword", $iFlags, "bool*", 0)

某位大大写的：

For $i= 1 to 10 
    $varIdeRootkey="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}" 
    $varsubkey = RegEnumKey($varIdeRootkey, $i) 
    If @error <> 0 then ExitLoop 
    $varMatchingID=RegRead ($varIdeRootkey &""&$varsubkey , "MatchingDeviceId" ) 
    if $varMatchingID="" Then ContinueLoop 
    if $varMatchingID="pci\cc_0101" then ContinueLoop 
    if StringInStr($varMatchingID,"pci") then 
        $varMsHdcInfFile=@WindowsDir&"\inf\mshdc.inf" 
        $ret=DllCall("newdev.dll","int","UpdateDriverForPlugAndPlayDevices","int",0,"str",$varMatchingID,"str",$varMsHdcInfFile,"int",5,"int",0) 
        MsgBox(4096,"DS",$varMatchingID & "---" &$varMsHdcInfFile & "---" & $ret) ;经百度确认，这里的写法是有点小问题的。
    endif 
Next

P版写的:

Func _CM_Update_PnP_Device($sDeviceID, $sInfPath, $iFlags, $hWnd = 0)
        Local $iResult
        $iResult = DllCall($NEWDEV_DllHandle, "int", "UpdateDriverForPlugAndPlayDevices", "hWnd", $hWnd, _
                        "str", $sDeviceID, "str", $sInfPath, "dword", $iFlags, "int*", 0)
        Return SetError(_CM_Get_Last_Error(), $iResult[5], $iResult[0])
EndFunc        ;==>_CM_Update_PnP_Device

3种略有不同的写法，自己测试均能正常工作。

ceoguang

大圣,好久不见了,这些资料应该好好整理,然后开一个封装专题.

仙乃日

大圣,好久不见了,这些资料应该好好整理,然后开一个封装专题.
ceoguang 发表于 2010-7-26 22:06

    自己来这论坛的主要目的是向各位大大学习。努力灌水提高权限……

pusofalse

学习了，很用心的总结。

hzxymkb

我来支持一下高人！学习一下高人的精华！谢谢高人！

pp88298

新手学习  回帖 谢谢

苦涩的咖啡

学习学习

卫和谐

之前,不知道还可以这样显示提示框的!

0633zhou

还是看不明白啊，基础太差了啊

itboy

好贴，绝对值得认真学习。再次谢谢楼主

xiayier

收走收走~~~

liufenglg

正要学习，现在看着好难啊

　　Declare Sub GetSystemTime Lib "kernel32" Alias "GetSystemTime" (lpSystemTime As SYSTEMTIME) 　
　说明 　：
　在一个SYSTEMTIME中载入当前系统时间，这个时间采用的是“协同世界时间”（即UTC，也叫做GMT）格式
　　参数表 　　参数 类型及说明 　
　lpSystemTime SYSTEMTIME，随同当前时间载入的结构

希望多作些这方面的总结，方便我们新手