Code:

Function ReadComputerName:string;

{©Drkb v.3, ®Vit (Vitaly Nevzorov) }

 

var

i:DWORD;

p:PChar;

begin

i:=255;

GetMem(p, i);

GetComputerName(p, i);

Result:=String(p);

FreeMem(p);

end;

 

 

Code:

{ **** UBPFD ***************

>> Получение локального имени компьютера

 

Зависимости: Winsock

Автор:       Gua, Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра., Copyright:   Gua

***************************************************** }

 

function GetLocalName: string;

var

WSAData: TWSAData;

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

begin

WSAStartup($101, WSAData);

GetHostname(namebuf, sizeof(namebuf));

Result := NameBuf;

WSACleanup;

end;

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить