如何得到本机计算机名

Tensionli 2003-11-08 06:50:56
请教:DELPHI生成的可执行程序在WIN98下如何可以得到本机的计算机名.
...全文
74 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
Tensionli 2003-11-19
  • 打赏
  • 举报
回复
感谢高手指导
txmjs 2003-11-09
  • 打赏
  • 举报
回复
学习....
saien 2003-11-08
  • 打赏
  • 举报
回复
楼上确实历害.
aiirii 2003-11-08
  • 打赏
  • 举报
回复
var
CNameBuffer: PChar; fl_loaded: Boolean;
CLen: ^DWord; ComputerName: string;
begin
GetMem(CNameBuffer, 255);
New(CLen);
CLen^ := 255;
fl_loaded := GetComputerName(CNameBuffer, CLen^);
if fl_loaded then
ComputerName := StrPas(CNameBuffer)
else
ComputerName := 'Unkown';
label2.caption := ComputerName;
FreeMem(CNameBuffer, 255);
Dispose(CLen);
end;

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧