معرفة إسم الكومبيوتر الشبكي

uses Windows;

function GetComputerNetName: string;

var

buffer: array[0..255] of char;

size: dword;

begin

size := 256;

if GetComputerName(buffer, size) then

Result := buffer

else

Result := ''

end;