怎样获得本机的计算机名称? 如题,谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var CNameBuffer : PChar; fl_loaded : Boolean; CLen : ^DWord;begin GetMem(CNameBuffer,255); New(CLen); CLen^:= 255; fl_loaded := GetComputerName(CNameBuffer,CLen^); if fl_loaded then ComputerName := StrPas(CNameBuffer) else ComputerName := 'Unkown'; FreeMem(CNameBuffer,255); Dispose(CLen);end;摘自《葵花宝典》 cxgrid从表单选 delphi 怎么控制udp发送广播包 请教一个问题,在CHART上怎样保存曲线!,谢谢大家了!!! 怎样把WebBrowser1浏览的网页生成为一幅图片 原是三层项目的,现在想改成两层结构,不想用Scktsrvr.exe和TSocketConnect控件这样的TCP控件.. 求点击题头排序的TListView控件 指针调用,特急! 当网线断开时,程序如何判断网络已经断开? 重在WNDPROC的用法呀 if和else这样写为什么有问题呀?谢谢 一个关于API函数的问题(很急!!!!) helpme 如何pick屏幕中任一点的RGB?
CNameBuffer : PChar;
fl_loaded : Boolean;
CLen : ^DWord;begin GetMem(CNameBuffer,255);
New(CLen);
CLen^:= 255; fl_loaded := GetComputerName(CNameBuffer,CLen^); if fl_loaded then
ComputerName := StrPas(CNameBuffer)
else
ComputerName := 'Unkown'; FreeMem(CNameBuffer,255);
Dispose(CLen);end;
摘自《葵花宝典》