الحصول على اسم الكومبيوتر في يندوز 💡

في vcl:

function getComputerName: string;
var
  CompName: array[0..256] of Char;
  i: DWord;
begin
  i:=256;
  GetComputerName(CompName, i);
  result := CompName;
end;

في fmx:

يجب اضافة Winapi.Windows إلى uses