هل تريد معرفت اسم جهازك

بسم الله الرحمن الرحيم

اخوتي الأعزاء

هل تريدون معرفت اسم الجهاز

اذا فاليكم هذا الكود :

function GetComputerName : String;

var

Name : PChar;

Size : DWORD;

begin

Size := MAX_COMPUTERNAME_LENGTH + 1;

GetMem(Name, Size);

try

GetComputerName(Name, Size);

Result := Trim(StrPas(Name));

finally

FreeMem(Name, Size);

end;

end;

وتقبلوا اطيب تحياتي اخوكم SUM