var lpSystemInfo : _SYSTEM_INFO; begin GetSystemInfo(lpSystemInfo); ShowMessage(IntToStr(lpSystemInfo.dwProcessorType)); end;
var lpBuffer : array[0..255] of char; Size : Cardinal; begin GetComputerName(lpBuffer,Size); ShowMessage(Copy(lpBuffer,1,Size)); end;