(Borland)
function CurrentUserName:String; var u: array[0..127] of Char; sz:DWord; begin sz:=SizeOf(u); GetUserName(u,sz); Result:=u; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(CurrentUsername); end;
Ważne artykuły
S’amuser et perdre du poids
Convertir BMP a JPG