Получение локального имени компьютераDelphi , ОС и Железо , КомпьютерПолучение локального имени компьютера
Автор: Gua { **** 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; Here's the translation of the text into Russian: Зависимости Функция требует библиотеки Winsock, которая предоставляет набор функций для работы с сетевыми протоколами. Автор и информация о праве авторства Автор - Гуа, правообладатель - он. Дата создания - 23 июля 2002 года. Определение функции Функция Переменные Две переменные объявлены:
Тело функции Функция состоит из трех основных шагов:
Альтернативное решение Хотя это код функционирует, стоит отметить, что использование Winsock может не быть самым современным или эффективным способом получения локального имени компьютера. Более современный подход будет использовать функцию
Код использует функцию Описывая функцию GetLocalName, которая получает локальное имя компьютера с помощью библиотеки Winsock и возвращает его как строку. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |