Как узнать имя компьютера?

Previous  Top  Next

    
 

 

 

Code:

Function ReadComputerName:string;

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

 

var

i:DWORD;

p:PChar;

begin

i:=255;

GetMem(p, i);

GetComputerName(p, i);

Result:=String(p);

FreeMem(p);

end;

 

 

 

©Drkb::01715

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)

Взято с Vingrad.ru http://forum.vingrad.ru

 


 

Code:

{ **** UBPFD *********** by delphibase.endimus.com ****

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

 

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

Автор:       Gua, gua@ukr.net, ICQ:141585495, Simferopol

Copyright:   Gua

Дата:        23 июля 2002 г.

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

 

function GetLocalName: string;

var

WSAData: TWSAData;

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

begin

WSAStartup($101, WSAData);

GetHostname(namebuf, sizeof(namebuf));

Result := NameBuf;

WSACleanup;

end;

 

©Drkb::01716

Взято с сайта: http://www.swissdelphicenter.ch