PHP DM Gate v0.9 » Имя компьютера <span class="vd">[D7, WinXP]</span>

TKN (30.03.10 11:46) [0]

Добрый день !
Когда-то написал такой код , чтобы узнать имя компьютера :

var COMP:String;
begin
COMP := GetComputerName;
end;

Терперь пытаюсь так написать - выдает ошибку - не актуальный параметр .
Возможно в Uses надо прописать какую-то библиотеку или что-то еще . Пытался повторить , не получается .

<Цитата>
Anatoly Podgoretsky © (30.03.10 11:50) [1]

> TKN (30.03.2010 11:46:00) [0]

Не надо самопальных переводов, приводи все как есть.
А код на помойку, это не рабочий код

<Цитата>
Омлет © (30.03.10 11:54) [2]

> не актуальный параметр

Не хватает параметров. Смотри заголовок функции:

function GetComputerName(lpBuffer: PChar; var nSize: DWORD): BOOL;

<Цитата>
Омлет © (30.03.10 11:55) [3]

Наверное, раньше у тебя где-то была такая функция:

function GetComputerName: string;
var
buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
Size: Cardinal;
begin
Size := MAX_COMPUTERNAME_LENGTH + 1;
Windows.GetComputerName(@buffer, Size);
Result := StrPas(buffer);
end;

<Цитата>