function CompName:string;
var nSize:Cardinal;
begin
		nSize:=MAX_COMPUTERNAME_LENGTH+1;
		SetLength(Result,nSize);
		GetComputerName(@Result[1],nSize);
		SetLength(Result,nSize);
end;