Ver Mensaje Individual
  #1  
Antiguo 09-11-2005
friendspark friendspark is offline
Miembro
 
Registrado: nov 2005
Posts: 32
Reputación: 0
friendspark Va por buen camino
duda con funciones Tregistry

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;
   //procesador: String;
   val:TStringList;
   i:Integer;
   g:String;
 
 begin
   { TODO -oUser -cConsole Main : Insert code here }
   reg:= TRegistry.Create;
   try
     val:=TStringList.Create;
     try
       reg.RootKey := HKEY_LOCAL_MACHINE;
       if not Reg.OpenKey('HARDWARE\DESCRIPTION\System\CentralProcessor\0', FALSE) then
         {Esta funcion necesita un parametro que indica
         si se debe crear la clave en caso de no existir }
         ShowMessage('Error opening key')
       else
       begin
         reg.GetValueNames(val);
         for i:=0 to val.Count-1 do
         begin
           //ShowMessage(Reg.ReadString(Val.Strings[i]));
           g:= val.Strings[i];
           writeln(g);
         end;
       end;
     finally
       val.Free;
     end;
   finally
     reg.CloseKey;
     reg.Free;
   end;
   readln(g);
 end.

Última edición por dec fecha: 09-11-2005 a las 20:49:36. Razón: ¡¡Encerrad el código fuente entre las etiquetas [DELPHI] ... [/DELPHI]!!
Responder Con Cita