得到计算机名
var
??name?:?string;
??size?:?Cardinal;
begin
??size?:=?256;
SetLength(name,256);
GetComputerName(pchar(name),size);
Edit1.Text?:=?name;
//handll's
?
??name?:?string;
??size?:?Cardinal;
begin
??size?:=?256;
SetLength(name,256);
GetComputerName(pchar(name),size);
Edit1.Text?:=?name;
//handll's
?
轉載于:https://www.cnblogs.com/Handll/archive/2009/07/27/1531906.html
總結
- 上一篇: ACE入门
- 下一篇: 如何用DELPHI实现把WORD、EXC