...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; 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...