Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Работа с адресами



Вернуться к списку функций
 Получение локального имени компьютера

 Прислал: Gua (Simferopol) ( 23 июля 2002 г. )
©  Gua
 Зависимости:
Winsock

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Получение локального имени компьютера

Зависимости: 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;


Вернуться к списку функций

Наверх ▲