como insertar un icono en el menu de programas

[Neftali [Germán.Estévez]]

Empezado por edgusano

Pero quisiera que me dieras la mano, con eso de saber cual es el usuario activo?.

Coloca un botón en un form y utiliza el siguiente código:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
 
  //-------------------------------------------------------------
  function CurrentUserName:String;
  var
    u: array[0..127] of Char;
    szWord;
  begin
    sz:=SizeOf(u);
    GetUserName(u,sz);
    Result:=u;
  end;
  //-------------------------------------------------------------
begin
  ShowMessage(CurrentUsername);
end;

[edgusano]

ok.

Muchas gracias Neftalí.