得到计算机名

var
  name : string;
  size : Cardinal;
begin
  size := 256;
SetLength(name,256);
GetComputerName(pchar(name),size);
Edit1.Text := name;
//handll's
 
posted @ 2009-07-27 11:47  Handll  阅读(225)  评论(0)    收藏  举报