| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить имя пользователя
dymon © (2002-04-11 10:28:00)Вопрос конечно простой, но что-то не могу нигде найти. Пишу программку-скрипт для входа в сеть и маппирования дисков. Должна срабатывать в зависимости от того, под каким именем пользователь зашел в сеть. Наверное это где-то в переменных среды. Как это имя получить в свою программу. Подскажить плз.
Anatoly Podgoretsky (2002-04-11 11:48:00) [1]При условии, что до входа в сеть есть имя
dymon (2002-04-11 11:40:00) [2]Всем сэнкс. Работает следующий код:
procedure TForm1.Button3Click(Sender: TObject);
var aaa:string;
S : String ;
Len : Cardinal ;
begin
SetLength ( S , 255 ) ;
Len := Length ( S ) ;
GetUserName ( @S [ 1 ] , Len ) ;
Label1.caption:=S;
end;
else (2002-04-11 10:48:00) [3]s:string
l:=10;// все равно.
setlength(s,l);
if not GetUserName(pchar(s),l) then begin
setlength(s,l);
GetUserName(pchar(s),l);
end;
| |
