Как определить имя пользователя

← →
dymon (2002-04-11 10:28) [0]

Вопрос конечно простой, но что-то не могу нигде найти. Пишу программку-скрипт для входа в сеть и маппирования дисков. Должна срабатывать в зависимости от того, под каким именем пользователь зашел в сеть. Наверное это где-то в переменных среды. Как это имя получить в свою программу. Подскажить плз.

← →
else (2002-04-11 10:48) [1]

s:string
l:=10;// все равно.

setlength(s,l);
if not GetUserName(pchar(s),l) then begin
setlength(s,l);
GetUserName(pchar(s),l);
end;

← →
dymon (2002-04-11 11:40) [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;

При условии, что до входа в сеть есть имя

Как определить имя пользователя Найти похожие ветки