obtener info de pc
como podria obtener info de la pc como usuario, nombre de la pc, memoria, so etc desde codigo en delphi para llenar un db
gracias !!
gracias !!
function NombrePC : 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;
//y luego seria por ej:
showmessage(nombrepc);
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;
//y luego seria por ej:
showmessage(nombrepc);
