Capturar Daots

[Marcela]

Necesito capturar el nombre del equipo y el nombre del usuario de Windows, para colocarlo en la ventana principal del aplicativo.

Gracias

[jhonny]

Esta funcion de trucomania te servira...
para capturar el nombre del usuario "dueño" del equipo...


function GetUserName : String;
var
pcUser : PChar;
dwUSize : DWORD;
begin
dwUSize := 21;
GetMem( pcUser, dwUSize );
try
if Windows.GetUserName( pcUser, dwUSize ) then
Result := pcUser
finally
FreeMem( pcUser );
end;
end;

Esta para capturar el usuario que inicio la sesion NT:

-Añade 'Registry' en el uses de tu Form
-Pon un TLabel (Label1) y un TButton (Button1)
-Y pon este código en el OnClick de Button1:


procedure TForm1.Button1Click(Sender: TObject);
var
Registro: TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_LOCAL_MACHINE;
Registro.OpenKey( 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon', False );
Label1.Caption := Registro.ReadString( 'DefaultUserName' );
Registro.CloseKey;
Registro.Destroy;
end;

[jhonny]

Y esta ultima para saber el nombre del equipo...


function GetComputerName : String;
var
pcComputer : PChar;
dwCSize : DWORD;
begin
dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
GetMem( pcComputer, dwCSize );
try
if Windows.GetComputerName( pcComputer, dwCSize ) then
Result := pcComputer;
finally
FreeMem( pcComputer );
end;
end;

Ejemplo de llamada:


Label2.Caption:=GetComputerName;

Espero te sirva pa algo :D:D

[Marcela]

Les agradesco muchisimo su colaboración, funciono a la perfección, gracias.

Marcela.:p