Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

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

 
TKN   (2010-03-30 11:46) [0]

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

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

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


 
Anatoly Podgoretsky ©   (2010-03-30 11:50) [1]

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

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


 
Омлет ©   (2010-03-30 11:54) [2]

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

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

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


 
Омлет ©   (2010-03-30 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;



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

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

Наверх




Память: 0.47 MB
Время: 0.047 c
15-1272143249
Германн
2010-04-25 01:07
2010.08.27
Не могу поверить!


15-1269253044
Правильный$Вася
2010-03-22 13:17
2010.08.27
автоматический перевод часов в системе


2-1265831068
сало-масло-колбаса
2010-02-10 22:44
2010.08.27
Как отобразить не свызанные записи в таблице


2-1268835906
user99834
2010-03-17 17:25
2010.08.27
Преобразовать BMP в JPEG, сжать и записать в TMemoryStream


10-1166561371
TStas
2006-12-19 23:49
2010.08.27
Как получить число страниц в вордовском файле?