//作者：陸島工作室 XOtec Studio
//組件庫：XOtecExpress。??

幾個在Delphi 中取本機的計算機名、IP地址、Windows登錄的用戶名的函數.

uses Windows, WinSock;

{?ComputerLocalIP?}

//取本機的?IP?地址

function?ComputerLocalIP:?string;
var
??ch:?array[1..32]?of?char;
??wsData:?TWSAData;
??myHost:?PHostEnt;
??i:?integer;
begin
??Result?:=?'';
??if?WSAstartup(2,wsData)<>0?then?Exit;?//?can’t?start?winsock
??try
????if?GetHostName(@ch[1],32)<>0?then?Exit;?//?getHostName?failed
??except
????Exit;
??end;
??myHost?:=?GetHostByName(@ch[1]);?//?GetHostName?error
??if?myHost=nil?then?exit;
??for?i:=1?to?4?do
??begin
????Result?:=?Result?+?IntToStr(Ord(myHost.h_addr^[i-1]));
????if?i<4?then
??????Result?:=?Result?+?'.';
??end;
end;

//取本機的計算機名

{?ComputerName?}

function?ComputerName:?string;
var
??FStr:?PChar;
??FSize:?Cardinal;
begin
??FSize?:=?255;
??GetMem(FStr,?FSize);
??Windows.GetComputerName(FStr,?FSize);
??Result?:=?FStr;
??FreeMem(FStr);
end;

//取Windows登錄用戶名

{?WinUserName?}

function?WinUserName:?string;
var
??FStr:?PChar;
??FSize:?Cardinal;
begin
??FSize?:=?255;
??GetMem(FStr,?FSize);
??GetUserName(FStr,?FSize);
??Result?:=?FStr;
??FreeMem(FStr);
end;

轉載于:https://www.cnblogs.com/iinsnian/archive/2008/06/06/1214992.html

總結

以上是生活随笔為你收集整理的Delphi 中取本机的计算机名、IP地址、Windows登录的用户名的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。