delphi获得电脑登陆名

【文件属性】：

文件名称：delphi获得电脑登陆名

文件大小：418B

文件格式：TXT

更新时间：2014-05-12 02:49:31

delphi获得电脑登陆名

Function GetLocalName:String; Var UserName : PChar; Size : Dword; Begin Getmem(UserName ,255); Size:=255; if Windows.GetUserName(UserName,Size) = False then begin Freemem(UserName); GetLocalName := ''; Exit; end; GetLocalName := UserName ; Freemem(UserName); end; //然后输入以下命令就可以了 edit1.Text:= GetLocalName;