調用API函數設計ABOUT窗口
Windows98 系統的許多軟件中都包含一個windows 風格的about 窗口，它向用戶反映了當前系統的一些基本信息，其中顯示有關windows 及其應用軟件的版本、版權和系統的工作狀態等信息。筆者用VB 6.0 通過調 用API 函數設計應用系統的ABOUT 窗口。
1、建立含有如下控件的窗體：
控件 NAME CAPTION
窗體 FORM1 用VB6.0 設計ABOUT 窗口
命令按鈕 COMMAND1 關于銷售管理系統
2、程序清單：
space1 = "C驅動器總共容量：
" + Format$(cls2/1024, "#, #") + "千字節"
space2 = "C驅動器可用容量：
" + Format$(cls1/1024, "#, #") + "千字節"
x = GetSystemMetrics(SM_CXSCREEN)
dispx = "顯示器分辨率：" + Str$(x)
cpus = "處理器類型:386"
Case 486
cpus = "處理器類型:486"
Case 586
cpus = "處理器類型:586"
End Select
abouts = ShellAbout(Me.hwnd, "演示程序",
"銷售管理系統V2.0版權所有[C]1998-1999蔡可訓"
---- 以上程序在Windows98,VISUAL BASIC 6.0 FOR WINDOWS 環境下運行通過. 用戶可以將其加入應用系統的ABOUT 菜單項，通過菜單項調用它，效果更好。
1、建立含有如下控件的窗體：
控件 NAME CAPTION
窗體 FORM1 用VB6.0 設計ABOUT 窗口
命令按鈕 COMMAND1 關于銷售管理系統
2、程序清單：
| ---- Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer ---- Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long ---- Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hinst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long ---- Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO) Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Const GWL_EXSTYLE = (-20) Private Const GWL_STYLE = (-16) Private Const GWL_WNDPROC = (-4) Private Const GWL_HINSTANCE = (-6) Private Type SYSTEM_INFO dwOemID As Long dwPageSize As Long lpMinimumApplicationAddress As Long lpMaximumApplicationAddress As Long dwActiveProcessorMask As Long dwNumberOrfProcessors As Long dwProcessorType As Long dwAllocationGranularity As Long dwReserved As Long End Type Private Const SM_CXSCREEN = 0 Private Const SM_CYSCREEN = 1 Private Sub Command1_Click() Dim hinst As Long Dim icons As Long Dim abouts As Long Dim dispx As String Dim dispy As String Dim cps As String Dim space1 As String Dim space2 As String hinst = GetWindowWord(Me.hwnd, GWL_HINSTANCE) icons = ExtractIcon(hinst, "d:fpw26foxprow.exe", 0) Dim sysinfo As SYSTEM_INFO Dim cls1 As Long Dim cls2 As Long Dim secs As Long Dim bytes As Long Dim buffs As String buff = "C:" x = GetDriveType(buffs) x = GetDiskFreeSpace(buffs, secs, bytes, cls1, cls2) cls1 = cls1 * secs * bytes cls2 = cls2 * secs * bytes |
space1 = "C驅動器總共容量：
" + Format$(cls2/1024, "#, #") + "千字節"
space2 = "C驅動器可用容量：
" + Format$(cls1/1024, "#, #") + "千字節"
x = GetSystemMetrics(SM_CXSCREEN)
dispx = "顯示器分辨率：" + Str$(x)
| x = GetSystemMetrics(SM_CYSCREEN) dispy = Str$(x) Call GetSystemInfo(sysinfo) Select Case sysinfo.dwProcessorType Case 386 |
cpus = "處理器類型:386"
Case 486
cpus = "處理器類型:486"
Case 586
cpus = "處理器類型:586"
End Select
abouts = ShellAbout(Me.hwnd, "演示程序",
"銷售管理系統V2.0版權所有[C]1998-1999蔡可訓"
| & Chr$(13) & Chr$(10) & space1 & Chr$(13) & Chr$(10) & space2 & Chr$(13) & Chr$(10) & cpus + " " + dispx + "*" + dispy , icons) End Sub |
---- 以上程序在Windows98,VISUAL BASIC 6.0 FOR WINDOWS 環境下運行通過. 用戶可以將其加入應用系統的ABOUT 菜單項，通過菜單項調用它，效果更好。