Nombre equipo y usuario

[pjmedina]

hola a tod@s
como puedo saber el nombre del equipo que ejecuta el programa y el usuario de windows que lo ha ejecutado???


gracias

[[Bicho]]

Hola,

éste es un tema muy recurrente. Si usas el buscador de los foros, encontrarás múltitud de hilos donde se ha tratado el tema.
En la sección de trucos tambien puedes encontrar alguno que te sirva, como éste y este

Saludos

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

Supongo que necesitas GetUserName y GetComputerName.

Código Delphi [-]
var
  dw : Dword;
  Buffer:array[0..MAX_PATH] of char;
begin
  dw := MAX_PATH;
  // usuario
  if GetUserName(Buffer, dw) then begin
    Self.FUserName := Buffer;
  end;
  // máquina
  dw := MAX_PATH;
  if GetComputerName(Buffer, dw) then begin
    Self.FComputerName := Buffer;
  end

EDITO: Se me adelantaron...

[pjmedina]

Muchas gracias a los dos por contestarme tan rapido.

Saludos