Win95系统API函数大揭秘
言之，如下格式：
fCreateShellLink(Destinationpath， Shortcutname, SourcepathAppName, "")
如下代码在“桌面”上为“d:\path\appname.exe”应用程序建立名为"Shortcut Title"的快捷方
式。
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String,
ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String)
As Long
Private Sub Form_Click()
lResult = fCreateShellLink(".\WINDOWS\DESKTOP", "Shortcut Title", "d:\path\appname.exe",
"")
End Sub
技巧：
如果想在“桌面”上建立快捷方式，则建立目标目录应该为“.\WINDOWS\DESKTOP”; 如果想在
“开始”菜单中建立快捷方式，则建立目标目录应该为“.\WINDOWS\Start Menu”; 如果想在“程
序”菜单中建立快捷方式，则建立目标目录应该为相应的“.C:\WINDOWS\Start Menu\Programs”中，
以此类推。
? 确定内存
我们经常要访问Windows管理的内存。对应用程序性能影响最大的因素是可用的内存容量，访问系
统内存在处理类似于位图文件之类的大文件时非常有用，因为程序通过交换文件（Swap）的方法，可以
获得比实际可用内存更大的内存。知道内存如何分配后，就可以读入内存值并操作大型数字文件。可以
用丰富的Win32 API函数确定Windows 的全局内存并操作数据文件，这些对于确定程序能否正常工作非
常有用。
dwLength 数据结构的长度
dwMemoryLoad 内存使用百分比
dwTotalPhys 实际内存总字节数
dwAvailPhys 可用的实际内存字节数
dwTotalPageFile 分页文件总字节数
dwAvailPageFile 分页文件可用字节数
dwTotalVirtual 虚拟内存的总字节数
dwAvailVirtual 可用的虚拟内存字节数
加入代码如下的模块：
Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
窗体中加入如下代码：
Private Sub Form_Click()
Dim m As MEMORYSTATUS
m.dwLength = Len(m)
GlobalMemoryStatus m
Print "数据结构的长度", m.dwLength
Print "内存使用百分比", m.dwMemoryLoad
Print "实际内存总字节数 ", m.dwTotalPhys
Print "可用的实际内存字节数", m.dwAvailPhys
Print "分页文件总字节数", m.dwTotalPageFile
Print "分页文件可用字节数", m.dwAvailPageFile
Print "虚拟内存的总字节数", m.dwTotalVirtual
Print "可用的虚拟内存字节数", m.dwAvailVirtual
End Sub
? 读写注册表
Win95及NT的注册表数据库(Registry)是系统中非常重要的组成部分，它设置了Win95及NT的参数，
包括用户信息、系统硬件配置和
fCreateShellLink(Destinationpath， Shortcutname, SourcepathAppName, "")
如下代码在“桌面”上为“d:\path\appname.exe”应用程序建立名为"Shortcut Title"的快捷方
式。
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String,
ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String)
As Long
Private Sub Form_Click()
lResult = fCreateShellLink(".\WINDOWS\DESKTOP", "Shortcut Title", "d:\path\appname.exe",
"")
End Sub
技巧：
如果想在“桌面”上建立快捷方式，则建立目标目录应该为“.\WINDOWS\DESKTOP”; 如果想在
“开始”菜单中建立快捷方式，则建立目标目录应该为“.\WINDOWS\Start Menu”; 如果想在“程
序”菜单中建立快捷方式，则建立目标目录应该为相应的“.C:\WINDOWS\Start Menu\Programs”中，
以此类推。
? 确定内存
我们经常要访问Windows管理的内存。对应用程序性能影响最大的因素是可用的内存容量，访问系
统内存在处理类似于位图文件之类的大文件时非常有用，因为程序通过交换文件（Swap）的方法，可以
获得比实际可用内存更大的内存。知道内存如何分配后，就可以读入内存值并操作大型数字文件。可以
用丰富的Win32 API函数确定Windows 的全局内存并操作数据文件，这些对于确定程序能否正常工作非
常有用。
dwLength 数据结构的长度
dwMemoryLoad 内存使用百分比
dwTotalPhys 实际内存总字节数
dwAvailPhys 可用的实际内存字节数
dwTotalPageFile 分页文件总字节数
dwAvailPageFile 分页文件可用字节数
dwTotalVirtual 虚拟内存的总字节数
dwAvailVirtual 可用的虚拟内存字节数
加入代码如下的模块：
Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
窗体中加入如下代码：
Private Sub Form_Click()
Dim m As MEMORYSTATUS
m.dwLength = Len(m)
GlobalMemoryStatus m
Print "数据结构的长度", m.dwLength
Print "内存使用百分比", m.dwMemoryLoad
Print "实际内存总字节数 ", m.dwTotalPhys
Print "可用的实际内存字节数", m.dwAvailPhys
Print "分页文件总字节数", m.dwTotalPageFile
Print "分页文件可用字节数", m.dwAvailPageFile
Print "虚拟内存的总字节数", m.dwTotalVirtual
Print "可用的虚拟内存字节数", m.dwAvailVirtual
End Sub
? 读写注册表
Win95及NT的注册表数据库(Registry)是系统中非常重要的组成部分，它设置了Win95及NT的参数，
包括用户信息、系统硬件配置和