![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Логин
Змей © (2004-11-08 00:43:00)как определить Логин компа?
KilkennyCat (2004-11-08 02:24:00) [1]
> GanibalLector © (08.11.04 02:10) [3]
имя компа не есть логин.
GanibalLector (2004-11-08 02:10:00) [2]Вероятно имелось в виду имя PC...тогда вот:
var
a: array[0..255] of char;
k: Cardinal;
begin
k := MAX_COMPUTERNAME_LENGTH + 1;
GetComputerName(a, k);
Caption := a;
end;
KilkennyCat (2004-11-08 00:50:00) [3]
> Anatoly Podgoretsky © (08.11.04 00:47) [1]
есть. если определить.
например так:
var
LoginCompa : string;
Anatoly Podgoretsky (2004-11-08 00:47:00) [4]Нет такого