Как узнать имя компьютера? |
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