利用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;