Текущий архив: 2004.11.21;
Скачать: CL | DM;
Вниз
Имя компьютера Найти похожие ветки
← →
Anton123 © (2004-11-05 16:15) [0]Просьба подскажите процедуру для получения имени компьютера!
Процедура GetComputerName требует буфер хранения этого имени а мне это не интересно! Просьба подсказать другие варианты. Заранее спасибо!
← →
Reindeer Moss Eater © (2004-11-05 16:17) [1]Вот вариант без буфера:
ComputerName := "";
← →
Sphinx (2004-11-05 16:19) [2]> Процедура GetComputerName требует буфер хранения этого имени
> а мне это не интересно!
Тогда может стоит программировать на Ассемблере? А то на Делфи тоже как-то неинтерестно. :)
← →
ssk © (2004-11-05 16:24) [3]что-то вроде этого:
function ComputerName: string;
var
a: array[0..255] of char;
s: string;
begin
s := "";
GetComputerName(a, 255);
s := a;
Result := s;
end;
← →
Rem © (2004-11-05 16:25) [4]2 Anton123
Подавляющее число прочитавших Ваш вопрос знают ответ. Но им не интересно отвечать. Мне, кстати, тоже.
← →
NAlexey © (2004-11-05 16:36) [5]>ssk © (05.11.04 16:24) [3]
А зачем в методе переменная "s"?
← →
ssk © (2004-11-05 16:56) [6]>А зачем в методе переменная "s"?
перестраховка между присваиванием результата и PChar. может и неправильно, но я всегда так делаю. кстати, тот код не работает. а этот рабочий.function ComputerName: string;
var
a: array[0..255] of char;
k: Cardinal;
begin
k := 255;
GetComputerName(a, k);
Result := a;
end;
← →
icebeerg © (2004-11-05 17:27) [7]
> ssk © (05.11.04 16:56) [6]
А если так - GetComputerName(a, SizeOf(a));?
← →
Ученик (2004-11-05 22:09) [8]GetEnvironmentVariable("COMPUTERNAME")
Страницы: 1 вся ветка
Текущий архив: 2004.11.21;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.034 c
