利用windows api 函數取得機器名稱(附帶原碼).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 21 行

利用Windows Api 函數取得機器名稱(附帶原碼) (2001年3月15日) 

网友更新  分类:Win API   作者:ERP2  推荐:erp2   阅读次数:253  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

FUNCTION MACNAME:STRING;
VAR Buffer: PChar;Size:Cardinal;
begin
size:=18;
GetMem(Buffer,size);
GetComputerName(Buffer,size);
result:=UPPERCASE(pchar(Buffer));
freemem(Buffer);
END;