貝殼兒的寶貝匣子

有一天,可愛的小狗狗問媽媽:幸福是什麼? 狗媽媽說:幸福其實就是你的尾巴. 小狗狗拼命咬自己的尾巴,但是它都咬不到 "媽媽,為什麼我抓不住我的幸福?" "傻孩子,抬起頭去走,幸福就會跟著你的!"
posts - 7, comments - 1, trackbacks - 0, articles - 0
  IT博客 :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理

獲得電腦名稱的函數

Posted on 2005-11-14 08:54 貝殼兒 阅读(177) 评论(0)  编辑 收藏 引用 所属分类: Delphi编程
function GetPCName:AnsiString;
var CNameBuffer:PChar;
    fl_loaded:Boolean;
    CLen:^DWord;
    SResult:AnsiString;
begin
GetMem(CNameBuffer,255);
New(CLen);
CLen^:= 255;
fl_loaded := GetComputerName(CNameBuffer,CLen^);
if fl_loaded then
   SResult:= StrPas(CNameBuffer)
else
   SResult:= 'Unkown';
FreeMem(CNameBuffer,255);
Dispose(CLen);
Result:=SResult;
end;
只有注册用户登录后才能发表评论。