Delphi使用INDY获取计算机名和IP


在Indy Misc组里有一个IdIPWatch组件可以很简单的获取本机的计算机名和IP地址。
procedure TForm1.Button1Click(Sender: TObject);
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Buffer: DWORD;
  sComputerName: string;
begin
  Buffer := MAX_COMPUTERNAME_LENGTH + 1;
  if GetComputerName(@ComputerName, Buffer) then
  begin
    sComputerName := ComputerName;
  end
  else
  begin
    sComputerName := '';
  end;
  Panel1.Caption := sComputerName;
  Panel2.Caption := IdIPWatch1.LocalIP;
end;


上一篇: Delphi使用NB30单元获取NetBIOS
下一篇: delphi 打开记事本并写入内容
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭