如何取得本機用戶名稱 |
尚未結案
|
linken
一般會員 發表:23 回覆:37 積分:22 註冊:2004-11-24 發送簡訊給我 |
|
deity
尊榮會員 發表:90 回覆:876 積分:678 註冊:2003-05-09 發送簡訊給我 |
您好:方法很多,可参考, procedure TForm1.Button2Click(Sender: TObject); begin showmessage(ComputerName); end; function ComputerName : String; var CNameBuffer : PChar; fl_loaded : Boolean; CLen : ^DWord; begin GetMem(CNameBuffer,255); New(CLen); CLen^:= 255; fl_loaded := GetComputerName(CNameBuffer,CLen^); if fl_loaded then ComputerName := StrPas(CNameBuffer) else ComputerName := 'Unkown'; FreeMem(CNameBuffer,255); Dispose(CLen); end; 或 http://delphi.ktop.com.tw/quicksearch.exe/quicksearch?SearchStr=getComputerName 善用查询功能,有很多新的发现 > <> ============================ 为什么经过多年以后,得失的过程如此冷漠 ============================ > |
bc
一般會員 發表:1 回覆:6 積分:1 註冊:2004-08-18 發送簡訊給我 |
uses WinSock; procedure TForm1.Button1Click(Sender: TObject); var wVersionRequested:word; wsaData:TWSADATA; putHostname:Pchar; lenHostname,Ws,We,gh:Integer; PgetHostname:PHostEnt; begin wVersionRequested:=2; lenHostname:=100; Ws:=WSAStartup(wVersionRequested,wsaData); gh:=gethostname(putHostname,lenHostname); We:=WSACleanup(); ShowMessage(string(putHostname)); end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |