首先，在模組中引用api函式getusername。
public declare function getusername lib "advapi32.dll" alias "getusernamea" (byval lpbuffer as string, nsize as long) as long然後在窗體中載入一下就可以了：
private sub form_load()
dim sbuffer as string '快取
dim lsize as long
sbuffer = space$(255) '給sbuffer預留255位元組的空間，是起緩衝的作用
lsize = len(sbuffer) 'sbuffer串的長度, api字串做引數，需要提前確定其大小
call getusername(sbuffer, lsize) '讀取使用者名稱到sbuffer中
if lsize > 0 then '如果使用者名稱長度大於0
msgbox left$(sbuffer, lsize) '取使用者名稱
else
msgbox vbnullstring '為空字串
end if
end sub
delphi獲取當前計算機所有碟符
getdrivetype 路徑 判斷乙個磁碟驅動器的型別 返回乙個整數 0 驅動器型別不確定 1 系統目錄不存在 2 drive removable 是可移動驅動器 3 drive fixed 是固定驅動器 4 drive remote 是網路驅動器 5 drive cdrom 是cd rom驅動器...
C 程式設計實現獲取當前計算機的名字
利用windows系統自帶的kernel32.dll檔案，然後將其引入到自己的專案中來，就可以輕鬆實現獲取計算機全名了，好了直接上 using system using system.collections.generic using system.linq using system.text us...
python獲取當前計算機cpu數量的方法
這裡實際上返回的是計算www.cppcns.com機的cpotjasu核心數，比如cpu是雙核的，則返回2，如果雙四核otjascpu，則返回8 from multiprocessing import cpu count print cpu count 本機是四核電腦，程式設計客棧返回結果 4 本文...