CallNtPowerInformation

**Luckie**

Ich versuche gerade die Prozessortaktfrequenz mit Hilfe der API Funktion MSDN-Library durchsuchen

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?

zusammenfalten · markieren

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:

zusammenfalten · markieren

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**

markieren

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.

CallNtPowerInformation

CallNtPowerInformation

Re: CallNtPowerInformation

Re: CallNtPowerInformation

Re: CallNtPowerInformation

Re: CallNtPowerInformation

Re: CallNtPowerInformation

Re: CallNtPowerInformation

Re: CallNtPowerInformation

Re: CallNtPowerInformation

Re: CallNtPowerInformation

Forumregeln

Christian Seehase (Co-Admin) Registriert seit: 29. Mai 2002 Ort: Hamburg 11.105 Beiträge Delphi 11 Alexandria	#2 Re: CallNtPowerInformation 15. Feb 2006, 20:23 Moin Luckie, wenn ich das richtig sehe fehlt die Angabe der Aufrufkonvention stdcall. Tschüss Chris Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel. Der Klügere gibt solange nach bis er der Dumme ist
	Zitat

MagicAndre1981 Registriert seit: 4. Jun 2004 Ort: Nordhausen 2.214 Beiträge Delphi 7 Enterprise	#4 Re: CallNtPowerInformation 15. Feb 2006, 20:37 Warum ermittelst du die Taktfrequnz nicht über RDTSC selber? André "A programmer is just a tool which converts caffeine into code", daran wirds wohl liegen, dass ich Abends nie pennen kann Zitat von Luckie: Nicht nur dass ihr offtopic geworden seid, jetzt werdet ihr selber im Offtopic noch offtopic
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#10 Re: CallNtPowerInformation 15. Feb 2006, 21:09 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.
	Zitat