24.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 189 行 · 第 1/2 页

Win95系统API函数大揭秘       作者：何发武 
      　　Win95以其崭新精致的外观、简便快捷的操作方式，让你尽享操作平台之乐趣。而
同属Microsoft公司的Visual Basic不仅仅是一门计算机语言,还是一个集应用程序开发、测试
、查错功能于一体的功能强大的集成式开发环境, 全球有数百万的程序员受益于此。Visual 
Basic一个强大的特性是它具有调用驻留在动态链接库(DLL)文件中的函数功能，其中包括由W
indows提供和使用的所有函数。对几百个函数以及DLL所包含的其它函数的存取将Visual Bas
ic的功能进行了大大的扩充，其功能远远超出其它语言。 你可以在你的应用程序中利用WIND
OWS API提供的数百个API接口函数进行扩充,加速应用程序的建立，减少程序开发的重复性。 
      　　所谓API就是“应用程序接口”(Application Programing Interface)，是一些用
C语言编写并由操作系统自身调用的函数。Windows API函数由许多“动态链接库”(DLL)组成
。在Windows 95中，核心的Windows API DLL有以下这些：       　　gdi32.dll--------图形显示界面的API； 
      　　kernel32.dll-----处理低级任务（比如内存和任务管理）的API； 
      　　user32.dll-------处理窗口和消息（Visual Basic程序员能把其中一些当作事件访问）的API。 
      　　还不断有新的API出现，来处理新的操作系统扩展，比如E-MAIL、联网和新的外设。 
      　　由于Windows API函数不是Visual Basic内部函数，所以在使用它们之前必须正式
地加以声明。要想得到正确格式化的函数声明，可以访问WINAPI目录下的文件WIN32API.TXT。 
      　　本文只对Win95系统API函数和Win95内置功能的调用问题进行介绍。例如，我们可
以直接调用标准化的“重新启动”、“磁盘格式化”、调用并更改标准的“关于”窗口、查看
“属性”、 设置墙纸、 建立快捷键、确定内存、读写注册表、在建立状态栏图标等。       　　重新启动 
      　　有些应用程序安装完毕后要求重新启动一次系统以使设置生效，这可利用ExitWindowsEx函数实现（代码如下）。 
      　　Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As L
ong, ByVal dwReserved As Long) As Long       　　Private Sub Command1_Click() 
      　　ExitWindowsEx &H43, 0       　　End Sub       　　磁盘格式化 
      　　当鼠标右键单击“3.5软盘A”并选择“格式化”时，则弹出标准的“磁盘格式化
”窗口。我们也可以在应用程序中利用函数轻松调用Windows 95中标准的“磁盘格式化”窗口，以实现对磁盘相应的操作功能，该函数代码如下： 
      　　Private Sub Form_Click()       　　FormatFloppy       　　End Sub 
      　　模块代码见程序1：       　　Public Const WM_CLOSE = &H10 
      　　Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lp
ClassName As Any, ByVal lpWindowName As Any) As Long 
      　　Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsD
irectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long 
      　　Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal 
hWndInsertAfter As Long, ByVal X As Long, ByVal y As Long, ByVal cx As Long, ByVa
l cy As Long, ByVal wFlags As Long) As Long 
      　　Declare Function GetDesktopWindow Lib "user32" () As Long 
      　　Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long
) As Long 
      　　Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRec
t As RECT) As Long 
      　　Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
      　 Type RECT       　　 Left As Long       　　 Top As Long 
      　　 Right As Long       　　 Bottom As Long       　　End Type 
      　　Type POINTAPI       　　 X As Long       　　 y As Long       　　End Type 
      　　Const SWP_NOSIZE = &H1       　　Const SWP_NOZORDER = &H4 
      　　Public Sub FormatFloppy() 
      　　Dim sBuffer As String, Windir As String, Procs As String, X 
      　 　Dim lResult As Long       　　 sBuffer = String$(255, 0) 
      　　lResult = GetWindowsDirectory(sBuffer, Len(sBuffer)) 
      　 　Windir = Trim(sBuffer) 
      　　 Procs = Left(Windir, lResult) & "\rundll32.exe shell32.dll,SHFormatDr
ive"       　　 Call CenterDialog("Format - 3? Floppy (A:)") 
      　　 X = Shell(Procs, 1) 
      　　 Call CenterDialog("Format - 3? Floppy (A:)") 
      　　k = LockWindowUpdate(0)       　　End Sub 
      　　Public Sub CenterDialog(WinText As String)       　　 DoEvents 
      　　 On Error Resume Next       　　Dim D3 As Long 
      　　D3 = LockWindowUpdate(GetDesktopWindow())       　　Dim wdth% 
      　　Dim hght%       　Dim Scrwdth%       　 　Dim Scrhght% 
      　 　Dim lpDlgRect As RECT       　 　Dim lpdskrect As RECT 
      　 　Dim hTaskBar As Long       　hTaskBar = FindWindow(0&, WinText) 
      　 　 Call GetWindowRect(hTaskBar, lpDlgRect) 
      　 　 wdth% = lpDlgRect.Right - lpDlgRect.Left 
      　 　 hght% = lpDlgRect.Bottom - lpDlgRect.Top 
      　 　 Call GetWindowRect(GetDesktopWindow(), lpdskrect) 
      　 　 Scrwdth% = lpdskrect.Right - lpdskrect.Left 
      　 　 Scrhght% = lpdskrect.Bottom - lpdskrect.Top 
      　 　 X% = (Scrwdth% - wdth%) / 2       　 　 y% = (Scrhght% - hght%) / 2 
      　 　 Call SetWindowPos(hTaskBar, 0, X%, y%, 0, 0, SWP_NOZORDER Or SWP_NOS
IZE)       　　DoEvents       　　End Sub （程序1）       　　调用“关于”窗口 
      　　在“帮助”菜单选择“关于XXX”会弹出标准“关于”窗口，利用ShellAbout函数
不但可以调用标准“关于”窗口，还可以随意更改其中内容。函数代码见程序3。       　　ShellAbout声明如下： 
      　　Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAbou
tA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByV
al hIcon As Long) As Long       　　Private Sub Form_Load() 
      　　Call ShellAbout(hWnd, “何发武工作室！”,“调用标准的关于窗口”& vbCrL
f & “电子与电脑是我们的良师益友”, 0)       　　End Sub 
      　　HWnd设置窗口句柄，szApp设置窗口的"Caption"，szOtherStuff在“版权所有”和“使用权”之间的空白处增加额外说明。 
      　　你还可以通过对注册表信息“动手术”来改变系统的“版权信息”运行REGEDIT，
为此可依次点击HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Versio
n，就会找到你计算机中“关于”版本的通用设置，这时你可以把Version的内容改为你想要的设置，如“何发武工作室”等。       　　查看“属性” 
      　　Win95中增加了一个全新的概念----“属性”。每个对象都拥有自己的“属性”。
在“属性”窗口里是关于对象的详细描述，对于不同的对象“属性”窗口的说明是不同的。我
们可以用ShellExecuteEX函数直接调用“属性”标准窗口。程序4功能相当于当鼠标右键单击
根目录下的autoexec.bat并选择“属性”时弹出的标准的“属性”窗口。       　　窗体代码如下： 
      　Private Sub FORM_Click()         　 Dim r As Long 
      　　 Dim FileName As String       　　 FileName = "c:\autoexec.bat" 
      　　 r = ShowProperties(FileName, Me.hwnd) 
      　　 If r <= 32 Then MsgBox "Error"       　 End Sub       　　模块代码见程序2。 
      　　Option Explicit       　　Type SHELLEXECUTEINFO       　　 cbSize As Long 
      　　 fMask As Long       　　 hwnd As Long       　　 lpVerb As String 
      　　 lpFile As String       　　 lpParameters As String 
      　　 lpDirectory As String       　　 nShow As Long       　　 hInstApp As Long 
      　　lpIDList As Long       　　lpClass As String       　　hkeyClass As Long 
      　　dwHotKey As Long       　　hIcon As Long       　　hProcess As Long 
      　　End Type       　　Public Const SEE_MASK_INVOKEIDLIST = &HC