Скачать: CL | DM;

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

← →
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;

---

← →
Anatoly Podgoretsky ©   (2002-04-11 11:48) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c