CallNtPowerInformation

[Luckie]

Ich versuche gerade die Prozessortaktfrequenz mit Hilfe der API Funktion CallNtPowerInformation zu ermitteln. Leider schlägt das irgenwie fehl. Erst kommt "Nicht genügend Arbeitsspeicher" und dann kommt eine AV. Wo habe ich jetzt schon wieder den Denkfehler?

Delphi-Quellcode:

type
  PROCESSOR_POWER_INFORMATION = packed record
    Number: Cardinal;
    MaxMhz: Cardinal;
    CurrentMhz: Cardinal;
    MhzLimit: Cardinal;
    MaxIdleState: Cardinal;
    CurrentIdleState: Cardinal;
  end;
  PPROCESSOR_POWER_INFORMATION = ^PROCESSOR_POWER_INFORMATION;

function CallNtPowerInformation(InformationLevel: DWORD; InPutBuffer: Pointer; InputBufferSize: ULONG; OutPutBuffer:
  Pointer; OutPutBufferSize: ULONG): DWORD; external 'PowrProf.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
  ppi: PROCESSOR_POWER_INFORMATION;
  err: DWORD;
begin
  ZeroMemory(@ppi, sizeof(PROCESSOR_POWER_INFORMATION));
  err := CallNTPowerInformation(11, nil, 0, @ppi, sizeof(PROCESSOR_POWER_INFORMATION));
  if err = 0 then
    ShowMessage(IntToStr(ppi.CurrentMhz))
  else
    ShowMessage(SysErrorMessage(err));
end;

[Christian Seehase]

Moin Luckie,

wenn ich das richtig sehe fehlt die Angabe der Aufrufkonvention stdcall.

[Luckie]

Verdammt! Das passiert mir immer wieder bei solchen Sachen. Aber das Schlimme ist, ich vergesse jedesmal wieder woran es liegt. Was ich sagen wollte: Das wars, jetzt geht es.

Korrigierter Code:

Delphi-Quellcode:

type 
  PROCESSOR_POWER_INFORMATION = packed record 
    Number: Cardinal; 
    MaxMhz: Cardinal; 
    CurrentMhz: Cardinal; 
    MhzLimit: Cardinal; 
    MaxIdleState: Cardinal; 
    CurrentIdleState: Cardinal; 
  end; 
  PPROCESSOR_POWER_INFORMATION = ^PROCESSOR_POWER_INFORMATION; 

function CallNtPowerInformation(InformationLevel: DWORD; InPutBuffer: Pointer; InputBufferSize: ULONG; OutPutBuffer: 
  Pointer; OutPutBufferSize: ULONG): DWORD; stdcall; external 'PowrProf.dll';

procedure TForm1.Button1Click(Sender: TObject); 
var 
  ppi: PROCESSOR_POWER_INFORMATION; 
  err: DWORD; 
begin 
  ZeroMemory(@ppi, sizeof(PROCESSOR_POWER_INFORMATION)); 
  err := CallNTPowerInformation(11, nil, 0, @ppi, sizeof(PROCESSOR_POWER_INFORMATION)); 
  if err = 0 then 
    ShowMessage(IntToStr(ppi.CurrentMhz)) 
  else 
    ShowMessage(SysErrorMessage(err)); 
end;

[MagicAndre1981]

Warum ermittelst du die Taktfrequnz nicht über RDTSC selber?

[Luckie]

Weil ich es so probieren wollte. Ich bin in einem C Forum daüber gestolpert und da ist mir eingefallen, dass es hier immer wieder Diskrepanzen gab auf den verschiedenen Rechnern. Und warum selber machen, wenn es Windows genauso gut, wenn nicht sogar besser, kann?

BTW:
Requires Windows XP, Windows 2000 Professional, Windows Me, or Windows 98.
Requires Windows Server 2003 or Windows 2000 Server.
Also sogar lauffähig unter Windows ME und 98.

[MagicAndre1981]

Besser? Das will ich überhört haben. Windows ermittelt den Takt nur einmal, am Systemstart, dann steht zum Beispiel immer die Taktfrequenz in dem Systemeigenschaften. Aber mein Notebook geht bis 1,6GHz und nicht nur 600MHz wie Windows dies anzeigt. Zudem takte ich mit RMClock, mein Prozzi lastabhängig und dadurch ändert sich der Takt andauernd.

Deshalb lieber selber machen, das ist besser

André

[Luckie]

Delphi-Quellcode:

PROCESSOR_POWER_INFORMATION = packed record 
    Number: Cardinal; 
    MaxMhz: Cardinal; 
    CurrentMhz: Cardinal; // <-- !!!
    MhzLimit: Cardinal; 
    MaxIdleState: Cardinal; 
    CurrentIdleState: Cardinal; 
  end; 
  PPROCESSOR_POWER_INFORMATION = ^PROCESSOR_POWER_INFORMATION;

Guck dir mal das markierte Feld in dem Record an, das dürfte die aktuelle Taktfrequenz sein.

[MagicAndre1981]

Kannste mal bitte ein Testprogramm anhängen (mit exe, hab kein Delphi mehr installiert. Ich müsste erst eins in einer VM installieren) dann kann ich es mal testen.

[Luckie]

Wie der Herr wünschen.

[Matze]

Bingo Michael, das funktioniert.
Auch wenn ich mit Centrino Hardware Control die Taktrate verändere, der API-Aufruf ermittelt die aktuelle Taktrate jedesmal von neuem.