分享
 
 
 

VB的API编程精粹(2)

王朝vb·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

VB的API编程精粹(2)

在上篇的中我们介绍了API编程的基础知识和一些比较“酷”的API调用,这期我们将配合专题介绍关于注册表编程的API函数及其应用实例,使读者朋友何能够将前面学到的注册表知识推广到VB编程中,继续向VB高手迈进(路漫漫……)。当然,上期说过要介绍更“酷”的API调用,可不能食言,后半部分介绍的平面工具条的生成定会使您的程序更“炫”!

一. 注册表的API编程

关于注册表的知识相信您通过前面专题的介绍已经有了较深入的了解。系统有六个预定义好的关键字,这六个关键字是用户或系统访问注册表的入口点。我们常用到的只有前四个关键字。而在编程时我们一般用到只是HKEY_CURRENT_USER和HKEY_LOCAL_MACHINE这两个关键字,因为与应用程序相关的数据存在于这两个关键字下。

许多商品化的软件或专业化的软件在您的机器上首次安装的时候都会通过改写注册表来完成软件的正确安装运行,梦想成为编程高手的你当然需要掌握读写注册表这一技术。利用好注册表会为您的应用程序增色不少。

虽然VB本身提供了四个关于注册表的函数GetSetting,SaveSetting、GetAllSettings、DeleteSetting(这四个函数的使用比较简单读者可以参考VB的联机帮助),但是这四个函数只能在“HKEY_CURRENT_USER\Software\VB and VBA ProgramSettings”下读取、删除、修改键值。对于一般的应用程序利用它们可以达到您的目的,对于特殊的要求利用它们就显的无能为力了。下面举一个例子说明它们的局限性。

熟悉DOS操作系统的读者都知道,可以编写一个“Autoexec.bat”的批处理文件来实现某一个应用程序在系统启动的时候自动运行,在Win95中我们可以把应用程序的快捷方式放到系统的启动组中来达到同样的效果。但是,假如我需要在我的应用程序首次安装以后就能自动达到这种效果,那该如何呢?其实,注册表中提供了三个这样的键:

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices

这三个键字的区别是:

Run:此键字下的应用程序在系统启动的时候会自动运行;

RunOnce:此键字下的应用程序在系统下一次启动的时候会自动运行,以后不再运行;

RunServices:功能和“Run”一样,只是应用程序被启动的时候不同而已。

现在您一定知道该如何利用注册表达到您的要求了。实际上许多安装软件在安装向导完成后要您重新启动才能完成最终的安装。它就是把安装向导所需做的最后工作的程序写到“RunOnce”下实现的。但是,若只利用VB本身的那四个函数显然是无法实现此功能的。笔者在实践中通过调用API函数很好地解决了VB本身访问注册表的局限性,并把它做成了一个类模块。所以调用起来非常方便。由于篇幅有限我只能从中抽取一部分来讲,这一部分也是可以独立运行的。读者想要完整的源代码请与我联系(yue_xiang@263.net)。

下面是应该放到您的模块中的声明部分代码:

Option Explicit

'注册表的入口常量

Public Const HKEY_CLASSES_ROOT = &H80000000

Public Const HKEY_CURRENT_USER = &H80000001

Public Const HKEY_LOCAL_MACHINE = &H80000002

Public Const HKEY_USERS = &H80000003

'注册表的访问权限常量

Public Const KEY_QUERY_VALUE = &H1

Public Const KEY_SET_VALUE = &H2

Public Const KEY_CREATE_SUB_KEY = &H4

Public Const KEY_ENUMERATE_SUB_KEYS = &H8

Public Const KEY_NOTIFY = &H10

Public Const KEY_CREATE_LINk = &H20

Public Const KEY_ALL_ACCESS = &H3F

'打开/建立键值的可选项常量

Public Const REG_OPTION_NON_VOLATILE = 0&

Public Const REG_OPTION_VOLATILE = &H1

'建立新键或打开已存在的键常量

Public Const REG_CREATED_NEW_KEY = &H1

Public Const REG_OPENED_EXISTING_KEY = &H2

'预先定义的访问注册表的权限常量

Public Const STANDARD_RIGHTS_ALL = &H1F0000

Public Const SPECIFIC_RIGHTS_ALL = &HFFFF

'API的返回代码常量

Public Const ERROR_SUCCESS = 0&

Public Const ERROR_ACCESS_DENIED = 5

Public Const ERROR_NO_MORE_ITEMS = 259

'返回数值类型常量

Public Const REG_NONE = (0)

Public Const REG_SZ = (1)

Public Const REG_EXPAND_SZ = (2)

Public Const REG_BINARY = (3)

Public Const REG_DWORD = (4)

PubliC ConSt REG_DWORD_LITTLE_ENDIAN = (4)

Public Const REG_DWORD_BIG_ENDIAN = (5)

Public Const REG_LINK = (6)

Public Const REG_MULTI_SZ = (7)

Public Const REG_RESOURCE_LIST = (8)

Public Const REG_FULL_RESOURCE_DESCRIPTOR = (9)

Public Const REG_RESOURCE_REQUIREMENTS_LIST = (10)

'访问注册表的API函数要用到的结构类型

Type SECURITY_ATTRIBUTES

nLength As Long

lpSecurityDescriptor As Long

bInheritHandle As Boolean

End Type

Type FILETIME

dwLowDateTime As Long

dwHighDateTime As Long

End Type

'要用到的API函数声明

…………

(鉴于篇幅这里只介绍一下各API的作用而不再一一列其声明;相关声明请读者查阅API浏览器)

下面简单地介绍一下这几个API:

RegOpenKeyEx():打开指定的关键字(32位);

RegSetValueEx():在打开的注册表关键字的值域中存储数据;

RegCloseKey():释放指定的关键字的句柄;

RegQueryValueEx():在注册表中查找与您指定的键值相关的值;

RegCreateKeyEx():建立并打开指定的关键字,若已存在则打开它;

RegEnumKeyEx():枚举指定的打开注册表关键字的子关键字(32位);

RegEnumKey():同上功能一样,区别在于它是16位的;

RegEnumValue():每次调用枚举指定的打开注册表关键字的值复制一个带索引的值的名称和数据块;

RegDeletekey():删除一个关键字以及它的子关键字;

RegDeleteValue():在指定的注册表关键字中删除一个带名字的值。

通过调用这些API我们可以轻松实现注册表的任意关键字的读取、查询、建立、删除。笔者在这里只打算介绍一下如何建立和删除一个特定的关键字。其它操作读者可以自己去发挥。

例如:要在HKEY_LOCAL_MACHINE\Network下建一个“MyApi”子键并在它的下面建立一个称为“yx”的值域,把它的值设为“yue1975”。我们应该按如下的方法调用API:

Dim phkResult As Long '保存建立的关键字句柄

Dim Iresult As Long

Dim SA As SECURITY_ATTRIBUTES

Dim 1Create As Long

'建立一个指定的关键字

caII RegCreateKeyEx(HKEY_LOCAL_MACHINE,"Network\MyApi",0,"",REG_OPTION_NON_VOLATILE, _

KEY_ALL_ACCESS,SA,phkResult,1Create)

1Result=RegSetValueEx(phkResult,"yx",0,REG_SZ,"yue1975",Clng(Len("yue1975")+1))

'关闭关键字

RegCloseKey phkResult

现在用注册表编辑器去查看一下注册表,一定生成了您所需的键值。

再例如:现在我想把刚才建立的键值删掉,那您只需如下调用即可:

dim success as long

success=RegDeleteKey(HKEY_LOCAL_MACHINE,"Network\MyApi")

二. 用API生成平面工具条

相信许多VB爱好者都曾千方百计地想使自己的工具条像Word97中的工具条一样COOL起来。往往我们不得不去借用别人做好的ActiveBar控件,这样先不说自己的程序变得大了,而且说实话那个控件并不好用。笔者在用VC5编程的时候用基类函数SendMessageLong()、FindWindowEx()轻松实现了这种COOL的效果。受此启发在VB5中调用这两个API也实现了同样的效果。下面是源代码:

把以下程序加到您的模块中:

'----------------------

'常量声明

'----------------------

Public Const WM_USER = &H400

'用户自定义消息的起点

Public Const TB_SETSTYLE = WM_USER + 56

'设置工具条风格消息

Public Const TB_GETSTYLE = WM_USER + 57

'取得工具条风格消息

Public Const TBSTYLE_FLAT = &H800

'使工具条COOL起来

Public Const TBSTYLE_TOOLTTPS = &H100

Public Const TBSTYLE_WRAPABLE = &H200

Public Const TBSTYLE_ALTDRAG = &H400

Public Const TBSTYLE_LIST = &H1000

Public Const TBSTYLE_CUSTOMERASE = &H2000

'-----------------

'API函数声明

'-----------------

Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,

ByVal wMsg As Long,ByVal wParam As Long,ByVal 1Param As Long) As Long

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long,

ByVal hWnd2 As Long,ByVal 1psz1 As String,ByVal 1psz2 As String) As Long

'-----------------------

'通用生成平面工具条过程

'入口:工具条的名字

'-----------------------

Public Sub FlatBar(ByVal tb As Toolbar)

Dim style As Long

Dim hToolbar As Long

Dim r As Long

'获的工具条窗口句柄

hToolbar = FindWindowEx(tb.hwnd,0&,"ToolBarWindow32",vbNullString)

'获的当前工具条的风格

style = SendMessageLong(hToolbar,TB_GETSTYLE,0&, 0&)

If style And TBSTYLE_FLAT Then

style = style Xor TBSTYLE_FLAT

Else

style = style or TBSTYLE_FLAT

End If

'设置工具条的平面风格

r=SendMessageLong(hToolbar,TB_SETSTYLE,0, style)

tb.Refresh

End Sub

过程FlatBar()的调用方法:

1 . 在你的窗体上添加Toolbar控件(命名为:myTB)和ImageList控件。按通常的方法一样在ImageList中播入几个图标并和Toolbar绑定建立一个平常的工具条。

2 . 在窗体的Load()事件中调用FlatBar()

Call FlatBar(myTB)

3. 运行,您的工具条一定COOL起来了。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有