機房收費系統之獲取當前計算機使用者名

首先，在模組中引用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 本文...