1:

HKEY_LOCAL_MASHINE\HARDWARE\					

1:

HKEY_LOCAL_MASHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

type

// ist bei D6 nicht in Windows.pas deklariert,
// daher hier.
 TProcessorPowerInformation = packed record
  Number: cardinal;
  MaxMhz: cardinal;
  CurrentMhz: cardinal;
  MhzLimit: cardinal;
  MaxIdleState: cardinal;
  CurrentIdleState: cardinal;
 end;
 AProcessorPowerInformation = packed array [word]of TProcessorPowerInformation;
 PAProcessorPowerInformation = ^AProcessorPowerInformation;
// muß hier deklariert werden, da in D& nicht in Windows.Pas enthalten
function CallNtPowerInformation(InformationLevel: DWORD; InPutBuffer: Pointer; InputBufferSize: ULONG; OutPutBuffer:
  Pointer; OutPutBufferSize: ULONG): DWORD; stdcall; external 'PowrProf.dll';



procedure TForm1.FormCreate(Sender: TObject);
var SI:TSystemInfo; // TSystemInfo ist in Windows.pas deklariert
    PInfo:PAProcessorPowerInformation;
    Status: integer;
    i:integer;
begin
 Memo1.lines.Clear;
 GetSystemInfo(SI);
 Memo1.Lines.Add ('Hardware information:');
 Memo1.Lines.Add (format ('OEM ID: %u',[SI.dwOEMId]));
 Memo1.Lines.Add (format ('Number of Processors: %u',[SI.dwNumberOfProcessors]));
 Memo1.Lines.Add (format ('Page Size: %u',[SI.dwPageSize]));
 Memo1.Lines.Add (format ('Processor Type: %u',[SI.dwProcessorType]));
 Memo1.Lines.Add (format ('Minimum application address: %x',[integer(SI.lpMinimumApplicationAddress)]));
 Memo1.Lines.Add (format ('Maximum application address: %x',[integer(SI.lpMaximumApplicationAddress)]));
 Memo1.Lines.Add (format ('Active Processor Mask: %u',[SI.dwActiveProcessorMask]));
 Memo1.Lines.Add ('');
 Memo1.Lines.Add ('Hardware information:');
 getmem (PInfo,SI.dwNumberOfProcessors*sizeof(TProcessorPowerInformation));
// ZeroMemory(PInfo, sizeof(TProcessorPowerInformation)*SI.dwNumberOfProcessors);
 Status := CallNTPowerInformation(11, nil, 0, pinfo, sizeof(TProcessorPowerInformation)*SI.dwNumberOfProcessors);
 for i:=0 to SI.dwNumberOfProcessors-1 do begin
  Memo1.Lines.Add (format ('Processor Number: %u',[PInfo^[i].Number]));
  Memo1.Lines.Add (format ('max MHz: %u',[PInfo^[i].MaxMhz]));
 end;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

typedef struct _SYSTEM_INFO {
  union {
    DWORD  dwOemId;
    struct {
      WORD wProcessorArchitecture;
      WORD wReserved;
    };
  };
  DWORD     dwPageSize;
  LPVOID    lpMinimumApplicationAddress;
  LPVOID    lpMaximumApplicationAddress;
  DWORD_PTR dwActiveProcessorMask;
  DWORD     dwNumberOfProcessors;
  DWORD     dwProcessorType;
  DWORD     dwAllocationGranularity;
  WORD      wProcessorLevel;
  WORD      wProcessorRevision;
} SYSTEM_INFO;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Function GetProzessorName: String;
Var Reg: TRegistry;
Begin
   Result := 'Unbekannter Prozessor';
   Reg := TRegistry.Create;
   Try
     Reg.RootKey := HKEY_LOCAL_MACHINE;
     Reg.OpenKey('Hardware\Description\System\CentralProcessor\0', False);
     Result := Reg.ReadString('ProcessorNameString');
   Finally
     Reg.free;
   End;
End;