| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Имя компьютера

Anton123 ©   (2004-11-05 16:15:00) 

Просьба подскажите процедуру для получения имени компьютера!
Процедура GetComputerName требует буфер хранения этого имени а мне это не интересно! Просьба подсказать другие варианты. Заранее спасибо!

---

Ученик   (2004-11-05 22:09:00) [1]

GetEnvironmentVariable('COMPUTERNAME')

---

icebeerg   (2004-11-05 17:27:00) [2]

> ssk ©   (05.11.04 16:56) [6]

А если так - GetComputerName(a, SizeOf(a));?

---

ssk   (2004-11-05 16:56:00) [3]

>А зачем в методе переменная "s"?

перестраховка между присваиванием результата и PChar. может и неправильно, но я всегда так делаю. кстати, тот код не работает. а этот рабочий.

function ComputerName: string;
var
 a: array[0..255] of char;
 k: Cardinal;
begin
 k := 255;
 GetComputerName(a, k);
 Result := a;
end;

---

NAlexey   (2004-11-05 16:36:00) [4]

>ssk ©   (05.11.04 16:24) [3]
А зачем в методе переменная "s"?

---

Rem   (2004-11-05 16:25:00) [5]

2 Anton123
 Подавляющее число прочитавших Ваш вопрос знают ответ. Но им не интересно отвечать. Мне, кстати, тоже.

---

ssk   (2004-11-05 16:24:00) [6]

что-то вроде этого:

function ComputerName: string;
var
 a: array[0..255] of char;
 s: string;
begin
 s := '';
 GetComputerName(a, 255);
 s := a;
 Result := s;
end;

---

Sphinx   (2004-11-05 16:19:00) [7]

> Процедура GetComputerName требует буфер хранения этого имени
> а мне это не интересно!

Тогда может стоит программировать на Ассемблере? А то на Делфи тоже как-то неинтерестно. :)

---

Reindeer Moss Eater   (2004-11-05 16:17:00) [8]

Вот вариант без буфера:
ComputerName := '';

---

Наверх