<!--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;