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

@arafikov · Регистрация: 17.01.2011

Студворк — интернет-сервис помощи студентам

Подскажите, как узнать имя компьютера, на котором
запущена программа Delphi? На VBA это выглядит так:

Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
'
' Возвращает имя компьютера
'
Public Function GetComputerName() As String
Const MAX_COMUTERNAME = 99
Dim lpBuffer As String * MAX_COMUTERNAME
Dim lenString As Long
lenString = MAX_COMUTERNAME
Call GetComputerNameA(lpBuffer, lenString)
GetComputerName = Left$(lpBuffer, lenString)
End Function

К сожалению с Windows API в Delphi у меня проблемы.

@vpanasenko · 29.04.2012, 11:05

Если проблемы, зачем тогда лезешь туда ? Функция называется точно также. Это из оперы "Хэндл Рабочего стола".. GetComputerName

Новые блоги и статьи Все статьи Все блоги /
Тестирование Pull Request в Kubernetes с vCluster Mr. Docker 19.07.2025 Часто сталкиваюсь с серьезной дилемой при настройке тестовых окружений для проверки Pull Request в Kubernetes. С одной стороны, каждый PR требует изолированной среды — только так можно гарантировать,. . .	Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить _Ivana 18.07.2025 p2UhJNMGY94	Десять Middleware Node.js для эффективного кодинга Reangularity 18.07.2025 Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .	Context и глубины Android mobDevWorks 18.07.2025 В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .	Результаты исследования от команды MCM (июль 2025 г.) Programma_Boinc 18.07.2025 Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .
ИИ-чатбот на React с OpenAI и LangChain.js Reangularity 17.07.2025 React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .	Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .

@arafikov 0 / 0 / 0 Регистрация: 17.01.2011 Сообщений: 30

	Как узнать имя компьютера? 25.04.2012, 21:42. Показов 4062. Ответов 1 Метки нет (Все метки) Подскажите, как узнать имя компьютера, на котором запущена программа Delphi? На VBA это выглядит так: Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, ByRef nSize As Long) As Long ' ' Возвращает имя компьютера ' Public Function GetComputerName() As String Const MAX_COMUTERNAME = 99 Dim lpBuffer As String * MAX_COMUTERNAME Dim lenString As Long lenString = MAX_COMUTERNAME Call GetComputerNameA(lpBuffer, lenString) GetComputerName = Left$(lpBuffer, lenString) End Function К сожалению с Windows API в Delphi у меня проблемы. 0

@vpanasenko 1 / 1 / 7 Регистрация: 28.06.2011 Сообщений: 342
	29.04.2012, 11:05
	Если проблемы, зачем тогда лезешь туда ? Функция называется точно также. Это из оперы "Хэндл Рабочего стола".. GetComputerName 0

Опции темы