private declare function getversionex lib "kernel32" alias "getversionexa" (lpversioninformation as osversioninfo) as long
private type osversioninfo
dwosversioninfosize as long
dwmajorversion as long
dwminorversion as long
dwbuildnumber as long
dwplatformid as long
szcsdversion as string * 128 ' maintenance string for pss usage
end type
private sub form_load()
me.show
dim xx as osversioninfo
'在正式呼叫函式之前,必須先將這個結構的dwosversioninfosize欄位設為結構的大小(148)
xx.dwosversioninfosize = 148
getversionex xx
print xx.dwbuildnumber
print xx.dwmajorversion
print xx.dwminorversion
print xx.dwosversioninfosize
print xx.dwplatformid
print xx.szcsdversion
end sub
可根據print值很好的做判斷
另附windows版本和ie版本以及32位和64位作業系統資訊
VB呼叫系統API的宣告
有些windows api並沒有vb的封裝,這個時候需要手工在呼叫之前進行宣告,通過declare實現。具體可以參看msdn。通常我是記不住語法的,簡單而絕對正確的做法就是查詢微軟官方提供宣告。在windows中可以找到這麼乙個檔案win32api.txt.如果用了google的桌面搜尋的話,找這個...
利用API函式獲取系統資訊
我們所編寫的每乙個程式,都會有乙個執行環境的最低需求。如何獲取使用者機器的配置資訊呢?其實,我們可以利用api函式輕鬆實現。我們利用visual c 嚮導生成乙個單文件介面的視窗程式框架。生成乙個新的對話方塊,這個對話方塊用於顯示我們所取得的機器的配置資訊。為這個對話方塊生成乙個新類,命名為csys...
linux stat系統呼叫,獲取檔案資訊。
stat 函式原型 int stat const char path,struct stat buf struct stat 說明 struct stat stat結構體中的st mode 則定義了下列數種情況 s ifsock 0140000 scoket s iflnk 0120000 符號連線...