Ver Mensaje Individual
  #9  
Antiguo 30-12-2008
Roilo Roilo is offline
Miembro
 
Registrado: nov 2005
Ubicación: Mayarí, Cuba
Posts: 143
Reputación: 19
Roilo Va por buen camino
...para determinar la RAM:
Código Delphi [-]
RAM:=trunc(dwTotalPhys/1048576);
label7.caption := floatToStr(RAM)+' MB De Memoria RAM.';

Para determinar procesador (no estoy satisfecho, pero algo hace)
Código Delphi [-]
with TRegistry.Create do   
 try
     RootKey:= HKEY_LOCAL_MACHINE; // <-- La clave root
     if OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0',FALSE) then
     begin
       if    ReadString('ProcessorNameString')<>'' then
        begin
         label8.Caption :=ReadString('ProcessorNameString');
        closekey;
       end
        else
       label8.Caption := 'CPU sin determinar...';
    end;
  finally
     Free;
   end;


Gracias por colaborar...
__________________
...que la libertad sólo existe cuando no es de nadie.

Última edición por Roilo fecha: 30-12-2008 a las 19:13:35.
Responder Con Cita