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

Советы » Компьютер » Получение локального имени компьютера

{ **** 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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com