modexfile.bas

为个人用户开发的车险秘书系统

Attribute VB_Name = "ModExFile"
'******************************************
'*Author:杨飞
'*Email:[e-mail]
'使用：

'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)
'Dim sysinfo As SYSTEM_INFO
'Dim secs As Long
'Dim bytes As Long
'Dim buffs As String
'Dim X As String, cpus As String

'X = GetSystemMetrics(SM_CXSCREEN)
'dispx = "显示器分辨率：" + Str$(X)
'X = GetSystemMetrics(SM_CYSCREEN)
'dispy = Str$(X)
'abouts = ShellAbout(Me.hWnd, MDIForm1.Caption, _
'   Chr$(13) & Chr$(10) & MDIForm1.Caption & "V1.0  版权所有[C] 2004-2005 杨 飞" _
'   & Chr$(13) & Chr$(10) & space1 & Chr$(13) & Chr$(10) _
'    & space2 & Chr$(13) & Chr$(10) & cpus + "??" + dispx + _
'     "*" + dispy, icons)
'******************************************

'*关于窗口(about)
 Public Declare Function GetWindowWord Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Integer
 Public 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

 Public Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hinst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
 Public 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
 Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

 Public Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
 Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Public Const GWL_EXSTYLE = (-20)
Public Const GWL_STYLE = (-16)
Public Const GWL_WNDPROC = (-4)
Public Const GWL_HINSTANCE = (-6)
Public 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
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1

'*关于窗口(about)结束