var 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