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 (http://www.clubdelphi.com/foros/search.php), 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 (http://www.clubdelphi.com/trucos/index.php?id=4&scroll=0&scrollb=0) y este (http://www.clubdelphi.com/trucos/index.php?id=176&scroll=0&scrollb=0)

Saludos

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

Supongo que necesitas GetUserName y GetComputerName.


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...:o :o

[pjmedina]

Muchas gracias a los dos por contestarme tan rapido.

Saludos