VB5.0与Windows API 间的呼叫技巧
red As Long, _
phkResult As Long) As Long ''//最後一个参数是ByRef之宣告
-----------------------------------------------------------------------------
我们经常会想要用程式来读取Registry中的资料，例如：我们想得知Win95的Produ
ct ID该如何做呢？这里有几个观念要先清楚：首先：ProductId在何处呢？在
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVerson下的ProductId。
我们要取得的便是
KEY 为 HKEY_LOCAL_MACHINE
SUBKEY 为 SOFTWARE\Microsoft\Windows\CurrentVerson
ValueName 为 ProductId 的value
然而要取得ProductId的value可没那麽直接，要先取得SubKey的KeyHandle而Key
Handle的取得便是利用RegQueryKeyEx的API 。程式部份在介绍Win API字串传递时再一
并介绍。
三、 字串参数
凡是所有字串参数指标都以 ByVal 参数名称 As String 传。如RegOpenKeyEx()的
第二参数 ByVal lpSubKey As String,便是一例。或许会问，这个例子是把subkey值传
给 Win API所以用ByVal，没什麽大不了，其实不然，要Win API传回字串时，也一定要
用ByVal的宣告。这是VB5字串格式(BSTR)与WIN API标准字串格式(LPSTR)不同的因素。
LPSTR 字串格式是NULL Terminate的字串，若有一字串"HaHa !OK!"，则格式如下：
-----------------------------------------------------------------------------
Address 0 1 2 3 4 5 6 7 8 9
-- -- -- -- -- -- -- -- -- --
内容 H a H a ! O K ! \0
而BSTR则在字串的前面还有一个LONG值存字串长度，格式如下：
Address 0.. 3 4 5 6 7 8 9 10 11 12 13
------ -- -- -- -- -- -- -- -- -- --
内容 9 H a H a ! O K ! \0
-----------------------------------------------------------------------------
所以了字串以ByVal的方式来传像不像指到BSTR中第4个位置，如此一来，不就和LP
STR 可以相容了吗？我想也正因为如此以ByVal的方式来传String可以取得Win API的传
回值，(就算不是如此，至少这麽想比较记得住String要用ByVal的方式传)。现在又有一
个问题，Window95 API的字串使用的是ASCII Code但VB是用Unicode，Unicode占两个位
元组，那麽能和WinAPI的字串相？所幸我们可以先不用管它，因为vb本身做了转换，即
vb传给api时，转了一次，传回时又转回 Unicode，所以如果我们用的是Byte Array来
传字串，也可以但是要自己去转码。
。然而32位元的VB 中，字串有种格式，一个是BSTR，另一个是HLSTR，如果我们宣告的
串是非固定长度者，就会是BSTR，反之则为HLSTR。
DIM BSTR5 AS STRING BSTR
DIM HLSTR5 AS STRING(255) HLSTR
VB5中WIN32 API的呼叫请多多使用BSTR，因为使用HLSTR的结果是，VB还得做HLSTR
-> BSTR的转换来呼叫WIN API若有传回STRING而後再做BSTR->HLSTR的工作。然而使用
BSTR来工作时，若处理有传回值的STRING参数，则还要有额外的动作：
1.先给定字串的初值，且字串的长度要够放传回值。
2.传回後，去除传回值中多余的字元。
或
例如:
-----------------------------------------------------------------------------
int GetWindowText(
HWND hWnd, // handle of window or control with text
LPTSTR lpString, // address of buffer for text
int nMaxCount // maximum number of characters to copy
);
该 API 取得WINDOW Title Bar的文字，而传回值是放入lpString的character个数。
VB的宣告如下：
Decl are Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
范例一
*****************************************************************************
Dim CharCnt As Long
Dim lpString
phkResult As Long) As Long ''//最後一个参数是ByRef之宣告
-----------------------------------------------------------------------------
我们经常会想要用程式来读取Registry中的资料，例如：我们想得知Win95的Produ
ct ID该如何做呢？这里有几个观念要先清楚：首先：ProductId在何处呢？在
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVerson下的ProductId。
我们要取得的便是
KEY 为 HKEY_LOCAL_MACHINE
SUBKEY 为 SOFTWARE\Microsoft\Windows\CurrentVerson
ValueName 为 ProductId 的value
然而要取得ProductId的value可没那麽直接，要先取得SubKey的KeyHandle而Key
Handle的取得便是利用RegQueryKeyEx的API 。程式部份在介绍Win API字串传递时再一
并介绍。
三、 字串参数
凡是所有字串参数指标都以 ByVal 参数名称 As String 传。如RegOpenKeyEx()的
第二参数 ByVal lpSubKey As String,便是一例。或许会问，这个例子是把subkey值传
给 Win API所以用ByVal，没什麽大不了，其实不然，要Win API传回字串时，也一定要
用ByVal的宣告。这是VB5字串格式(BSTR)与WIN API标准字串格式(LPSTR)不同的因素。
LPSTR 字串格式是NULL Terminate的字串，若有一字串"HaHa !OK!"，则格式如下：
-----------------------------------------------------------------------------
Address 0 1 2 3 4 5 6 7 8 9
-- -- -- -- -- -- -- -- -- --
内容 H a H a ! O K ! \0
而BSTR则在字串的前面还有一个LONG值存字串长度，格式如下：
Address 0.. 3 4 5 6 7 8 9 10 11 12 13
------ -- -- -- -- -- -- -- -- -- --
内容 9 H a H a ! O K ! \0
-----------------------------------------------------------------------------
所以了字串以ByVal的方式来传像不像指到BSTR中第4个位置，如此一来，不就和LP
STR 可以相容了吗？我想也正因为如此以ByVal的方式来传String可以取得Win API的传
回值，(就算不是如此，至少这麽想比较记得住String要用ByVal的方式传)。现在又有一
个问题，Window95 API的字串使用的是ASCII Code但VB是用Unicode，Unicode占两个位
元组，那麽能和WinAPI的字串相？所幸我们可以先不用管它，因为vb本身做了转换，即
vb传给api时，转了一次，传回时又转回 Unicode，所以如果我们用的是Byte Array来
传字串，也可以但是要自己去转码。
。然而32位元的VB 中，字串有种格式，一个是BSTR，另一个是HLSTR，如果我们宣告的
串是非固定长度者，就会是BSTR，反之则为HLSTR。
DIM BSTR5 AS STRING BSTR
DIM HLSTR5 AS STRING(255) HLSTR
VB5中WIN32 API的呼叫请多多使用BSTR，因为使用HLSTR的结果是，VB还得做HLSTR
-> BSTR的转换来呼叫WIN API若有传回STRING而後再做BSTR->HLSTR的工作。然而使用
BSTR来工作时，若处理有传回值的STRING参数，则还要有额外的动作：
1.先给定字串的初值，且字串的长度要够放传回值。
2.传回後，去除传回值中多余的字元。
或
例如:
-----------------------------------------------------------------------------
int GetWindowText(
HWND hWnd, // handle of window or control with text
LPTSTR lpString, // address of buffer for text
int nMaxCount // maximum number of characters to copy
);
该 API 取得WINDOW Title Bar的文字，而传回值是放入lpString的character个数。
VB的宣告如下：
Decl are Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
(ByVal hwnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
范例一
*****************************************************************************
Dim CharCnt As Long
Dim lpString