| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать имя компьютера и логин пользователя?? [D6, Win2k]
DikobraZ © (2002-03-27 10:29:00)Ну вот собственно и все...
Glonia Zbanov (2002-03-27 15:04:00) [1]то было для Delphi3 это для Delphi6:
var
i :Dword;
s :AnsiString;
begin
i := 255;
SetLength(s,255);
GetUserName(PChar(s),i);
@andrew (2002-03-27 14:18:00) [2]А также, если есть замечательные компонентики от LMD, то там есть некий LMDInformationLabel, который может не только это, но и всякое другое сообщить полезное.
Glonia Zbanov (2002-03-27 12:44:00) [3]function DGetUserName:string;
var
s :string;
i :integer;
begin
i := 255;
s := Repl( " ", i);
GetUserName( PChar(s), i);
Result := Trim(s);
end;
Виктор Щербаков (2002-03-27 10:31:00) [4]GetComputerName
GetUserName
| |
