Hola a todos. Este programa me muestra los ficheros de la carpeta que señalo en el root, pero lo que yo quiero es mostrar lo que hay dentro de esos ficheros. De tal forma que si miro en el fichero ProcessorNameString me diga las caracteristicas de mi procesador. He usado (no en esta version) el reg.ReadRegistry, me compila pero no me sale nada; puede que lo use mal.
Porfavor decidme que modificaciones debo hacer para entrar dentro de los ficheros que he almacenado en la variable "val".
Mi mision de todo esto es mostrar los principales datos de mi pc al ejecutar el programa por consola, si alguien tiene una version mejor me gustaria verla.
Muchas gracias.
Código Delphi
[-]
program Project1;
{$APPTYPE CONSOLE}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, Registry;
var
reg: TRegistry;
val:TStringList;
i:Integer;
g:String;
begin
reg:= TRegistry.Create;
try
val:=TStringList.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
if not Reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0', FALSE) then
ShowMessage('Error opening key')
else
begin
reg.GetValueNames(val);
for i:=0 to val.Count-1 do
begin
g:= val.Strings[i];
writeln(g);
end;
end;
finally
val.Free;
end;
finally
reg.CloseKey;
reg.Free;
end;
readln(g);
end.