Текущий архив: 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.034 c
