Администрирование в программах

[earl]

<!--QuoteBegin-RAVen42+Apr 19 2005, 11:22--><div class='quotetop'>QUOTE(RAVen42 @ Apr 19 2005, 11:22)</div><div class='quotemain'><!--QuoteEBegin-->...как узнать из проги под каким пользователем она запускается???...
<!--QuoteEnd--></div><!--QuoteEEnd-->
Используй тогда стандартную процедуру

Код: выделить все

Procedure TForm1.BitBtn1Click(Sender: TObject);
Var UserName : Array[0..127] Of Char;
   NameSize : Cardinal;
Begin
NameSize := 127;
GetUserName(UserName, NameSize);
Label1.Caption := StrPas(UserName);
End;

[RAVen42]

earl Вот спсибо за такую весчь.. я дажеть не знал про существования такой процедуры. Теперь многое становиться значитьлно проще. <!--emo&;)-->[img]style_emoticons/<#EMO_DIR#>/wink.gif[/img]<!--endemo-->