![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Имя компа [D6, Win95/98, WinXP]
serko © (2005-02-04 21:18:00)Мастера помогите! Как можно определить сетевое имя компьютера?
Sour Smile (2005-02-07 10:48:00) [1]В скобках:
lpBuffer - указатель на буфер в которую функция поместит результат
nSize - размер этого буфера, а после возврата из функции в этой переменной будет реальная длина имени.
Вот паскалевская надстройка над API-функцией:
functionComputerName: 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;
serko (2005-02-04 22:49:00) [2]А что там в скобках надо писать?
GanibalLector (2005-02-04 21:59:00) [3]GetComputerName ?
serko (2005-02-04 21:44:00) [4]Своего!
Vit@ly (2005-02-04 21:38:00) [5]Какого компьютера? Своего? Или компьютера в сети по IP?