Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.092 c
6-1094823677
redlord
2004-09-10 17:41
2004.11.21
как изменить время отведенное на подключение сокету ?


14-1099890398
ms
2004-11-08 08:06
2004.11.21
Задачка по информатике


14-1099855294
Piter
2004-11-07 22:21
2004.11.21
А дайте простенькую программу на C#


1-1100072581
vint45
2004-11-10 10:43
2004.11.21
Имя столбца в Ехсеl


4-1097576029
drew
2004-10-12 14:13
2004.11.21
Здраствуйте, подскажите как можно программно заблокировать WinXP