obtener info de pc

Orellana Diego
10 de Septiembre del 2003
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 !!

migconc
10 de Septiembre del 2003
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);