調(diào)用API函數(shù)設(shè)計ABOUT窗口

2019-11-18 17:32:53

字體：大中小

供稿：網(wǎng)友

Windows98系統(tǒng)的許多軟件中都包含一個windows風(fēng)格的about窗口，它向用戶反映了當前系統(tǒng)的一些基本信息，其中顯示有關(guān)windows及其應(yīng)用軟件的版本、版權(quán)和系統(tǒng)的工作狀態(tài)等信息。筆者用VB6.0通過調(diào)用API函數(shù)設(shè)計應(yīng)用系統(tǒng)的ABOUT窗口。

1．建立含有如下控件的窗體：

控件NAMECAPTION
窗體FORM1用VB6.0設(shè)計ABOUT窗口命令按鈕COMMAND1關(guān)于銷售管理系統(tǒng)

2．程序清單：

PRivateDeclareFunctionGetWindowWordLib"user32"
(ByValhwndAsLong,ByValnIndexAsLong)AsInteger

PrivateDeclareFunctionShellAboutLib
"shell32.dll"Alias"ShellAboutA"(ByValhwndAsLong,
ByValszAppAsString,ByValszOtherStuffAsString,
ByValhIconAsLong)AsLong

PrivateDeclareFunctionExtractIconLib
"shell32.dll"Alias"ExtractIconA"(ByValhinstAsLong,
ByVallpszExeFileNameAsString,ByValnIconIndexAs
Long)AsLongPrivateDeclareFunctionGetDiskFreeSpace
Lib"kernel32"Alias"GetDiskFreeSpaceA"(ByVal
lpRootPathNameAsString,lpSectorsPerClusterAsLong,
lpBytesPerSectorAsLong,lpNumberOfFreeClustersAs
Long,lpTotalNumberOfClustersAsLong)AsLongPrivate
DeclareFunctionGetDriveTypeLib"kernel32"Alias
"GetDriveTypeA"(ByValnDriveAsString)AsLong

PrivateDeclareSubGetSystemInfoLib"kernel32"
(lpSystemInfoAsSYSTEM_INFO)PrivateDeclareFunction
GetSystemMetricsLib"user32"(ByValnIndexAsLong)As
Long

PrivateConstGWL_EXSTYLE=(-20)
PrivateConstGWL_STYLE=(-16)
PrivateConstGWL_WNDPROC=(-4)
PrivateConstGWL_HINSTANCE=(-6)
PrivateTypeSYSTEM_INFO
dwOemIDAsLong
dwPageSizeAsLong
lpMinimumapplicationAddressAsLong
lpMaximumApplicationAddressAsLong
dwActiveProcessorMaskAsLong
dwNumberOrfProcessorsAsLong
dwProcessorTypeAsLong
dwAllocationGranularityAsLong
dwReservedAsLong
EndType
PrivateConstSM_CXSCREEN=0
PrivateConstSM_CYSCREEN=1

PrivateSubCommand1_Click()
DimhinstAsLong
DimiconsAsLong
DimaboutsAsLong
DimdispxAsString
DimdispyAsString
DimcpsAsString
Dimspace1AsString
Dimspace2AsString
hinst=GetWindowWord(Me.hwnd,GWL_HINSTANCE)
icons=ExtractIcon(hinst,"d:fpw26foxprow.exe",0)
DimsysinfoAsSYSTEM_INFO
Dimcls1AsLong
Dimcls2AsLong
DimsecsAsLong
DimbytesAsLong
DimbuffsAsString
buff="C:"
x=GetDriveType(buffs)
x=GetDiskFreeSpace(buffs,secs,bytes,cls1,cls2)
cls1=cls1*secs*bytes
cls2=cls2*secs*bytes
space1="C驅(qū)動器總共容量：" Format$(cls2/1024,"#,#") "千字節(jié)"
space2="C驅(qū)動器可用容量：
" Format$(cls1/1024,"#,#") "千字節(jié)"
x=GetSystemMetrics(SM_CXSCREEN)
dispx="顯示器分辨率：" Str$(x)
x=GetSystemMetrics(SM_CYSCREEN)
dispy=Str$(x)
CallGetSystemInfo(sysinfo)
SelectCasesysinfo.dwProcessorType
Case386
cpus="處理器類型:386"
Case486
cpus="處理器類型:486"
Case586
cpus="處理器類型:586"
EndSelect
abouts=ShellAbout(Me.hwnd,"演示程序",
"銷售管理系統(tǒng)V2.0版權(quán)所有[C]1998-1999蔡可訓(xùn)"
&Chr$(13)&Chr$(10)&space1&Chr$(13)&Chr$(10)
&space2&Chr$(13)&Chr$(10)&cpus "" dispx
"*" dispy,icons)
EndSub

----以上程序在WINDOWS98,VISUALBASIC6.0FORWINDOWS環(huán)境下運行通過.用戶可以將其加入應(yīng)用系統(tǒng)的ABOUT菜單項，通過菜單項調(diào)用它，效果更好->

上一篇：給應(yīng)用程序添加“日積月累”對話框

下一篇：VB中實現(xiàn)菜單分割