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

Вниз

Имя компа   Найти похожие ветки 

← →
serko   (2005-02-04 21:18) [0]

Мастера помогите! Как можно определить сетевое имя компьютера?

---

← →
Vit@ly ©   (2005-02-04 21:38) [1]

Какого компьютера? Своего? Или компьютера в сети по IP?

---

← →
serko   (2005-02-04 21:44) [2]

Своего!

---

← →
GanibalLector ©   (2005-02-04 21:59) [3]

GetComputerName ?

---

← →
serko   (2005-02-04 22:49) [4]

А что там в скобках надо писать?

---

← →
Sour Smile   (2005-02-07 10:48) [5]

В скобках:
lpBuffer - указатель на буфер в которую функция поместит результат
nSize - размер этого буфера, а после возврата из функции в этой переменной будет реальная длина имени.
Вот паскалевская надстройка над API-функцией:

function ComputerName: String;
var
 buf: PChar;
 k: Cardinal;
begin
 k:=MAX_COMPUTERNAME_LENGTH+1;
 GetMem(buf, k);
 GetComputerName(buf, k);
 SetString(Result, buf, k);
 FreeMem(buf);
end;

---

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

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

Наверх

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