T toy_rong Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-11 #1 怎样得到运行程序的电脑的名称，系统是win98或者win2000
T TYZhang Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-11 #2 // returns Local Computer Name function ComputerName : string; Var Name:array[0..16] of Char; I:Cardinal; begin Result:=''; I:=16; GetComputerName(Name,I); Result:=Name; end;
// returns Local Computer Name function ComputerName : string; Var Name:array[0..16] of Char; I:Cardinal; begin Result:=''; I:=16; GetComputerName(Name,I); Result:=Name; end;
