| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Имя компьютера [D7, WinXP]
TKN © (2010-03-30 11:46:00)Добрый день !
Когда-то написал такой код , чтобы узнать имя компьютера :
var COMP:String;
begin
COMP := GetComputerName;
end;
Терперь пытаюсь так написать - выдает ошибку - не актуальный параметр .
Возможно в Uses надо прописать какую-то библиотеку или что-то еще . Пытался повторить , не получается .
Омлет (2010-03-30 11:55:00) [1]Наверное, раньше у тебя где-то была такая функция:
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;
Омлет (2010-03-30 11:54:00) [2]> не актуальный параметр
Не хватает параметров. Смотри заголовок функции:
function GetComputerName(lpBuffer: PChar; var nSize: DWORD): BOOL;
Anatoly Podgoretsky (2010-03-30 11:50:00) [3]> TKN (30.03.2010 11:46:00) [0]
Не надо самопальных переводов, приводи все как есть.
А код на помойку, это не рабочий код
| |
