Mandar a ejecutar programas en micros diferentes?

[ecfisa]

Hola Anel.

Para obtener los datos del procesador usando el registro de windows:

Código Delphi [-]
uses Registry;

function DatosProcesador: TStrings;
const
   CPUKEY = '\HARDWARE\DESCRIPTION\System\CentralProcessor';
var
  i: Integer;
  TS1: TStrings;
begin
  TS1:= TStringList.Create;
  try
    with TRegistry.Create do
    try
      RootKey:= HKEY_LOCAL_MACHINE;
      if OpenKey(CPUKEY, False) then
      begin
        GetKeyNames(TS1);
        Result:= TStringList.Create;
        for i:= 0 to TS1.Count -1 do
          if OpenKey(CPUKEY + '\' + TS1[i], False) then
          begin
            Result.Add('Núcleo: '+IntToStr(i));
            Result.Add('Nombre: '+ReadString('ProcessorNameString'));
            Result.Add('Identificador: '+ReadString('Identifier'));
            Result.Add('Fabricante: '+ReadString('VendorIdentifier'));
            Result.Add('Velocidad Mhz: '+IntToStr(ReadInteger('~Mhz')));
            Result.Add(' ');
          end;
      end;
    finally
      Free;
    end;
  finally
    TS1.Free;
  end;
end;

Llamada de ejemplo:

Código Delphi [-]
  ListBox1.Items:= DatosProcesador;

Un saludo.