CPU-Frequenzbestimmung bei Core Duo

[C.Schoch]

Vieleicht gehts hiermit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender : TObject);
var
  i : integer;
  dwSAffinity, dwDummy, dwPHandle : DWORD;
begin
dwPHandle := OpenProcess(PROCESS_QUERY_INFORMATION, true, GetCurrentProcessId);  // Prozesshandle holen
if dwHandle <> INVALID_HANDLE_Value then
begin
  if GetProcessAffinityMask(dwPHandle, dwDummy, dwSAffinity) then  // System Prozessoren holen
  begin
  for i := 0 to 31 do // dwSAffinity ausmaskieren und Prozessor dem Process zuweisen
  begin
    if (dwSAffinity shr i and 1) = 1 then
    begin
      if SetProcessAffinityMask(dwPHandle, i + 1) then
      begin
      //RDTSC durchführung 
      end;    
    end;
  end
end;

Ich hoffe es klappt ist nur so heruntergeschrieben.