Текущий архив: 2003.03.20;
Скачать: CL | DM;

Вниз

Как определить имя компьютера и описание компьютера ?   Найти похожие ветки 

← →
SeNtiMeL ©   (2003-03-07 00:09) [0]

Как определить имя компьютера и описание компьютера ?
Я знаю, что вроде это
GetComputerName, но у меня нехватает знаний по WinApi, чтобы использовать ее, справка ничего не дает....

---

← →
Anatoly Podgoretsky ©   (2003-03-07 01:43) [1]

Тогда не используй, если уж это сложно.

---

← →
Intell ©   (2003-03-07 06:07) [2]

Если нужны вопросы по ресурсам компа, то свистни по мылу -
sergein@nojabrsk.ru
пришлю тебе хороший учебник - там есть и имя пользователя, и ресурсы, и т.п.

---

← →
крот ©   (2003-03-07 06:10) [3]


function GetLocalName(): string;
var
Buffer: Array[0..MAX_COMPUTERNAME_LENGTH];
size: cardinal;
begin
size = MAX_COMPUTERNAME_LENGTH + 1;
if GetComputerName(Buffer, size) then
SetString(Result, Buffer, size);
else
Result := "Local Host";
end;


---

← →
SeNtiMeL ©   (2003-03-07 18:30) [4]

Спасибо....

---

← →
SeNtiMeL ©   (2003-03-07 18:41) [5]

да, в коде маленькая ошибка:
Buffer: Array[0..MAX_COMPUTERNAME_LENGTH];
а нужно:
Buffer: Array[0..MAX_COMPUTERNAME_LENGTH] of Char;

---

Страницы: 1 вся ветка

Текущий архив: 2003.03.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c