QueryPerformanceCounter

Maybe the one microsecond timestamp is too long for your program. You can access the Windows API Performance Counter using code such as shown below. Note that this API may not be as reliable as you might hope. For more information see http://www.virtualdub.org/blog/pivot/entry.php?id=106

pascal

unit Unit1; 
{$mode objfpc}{$H+}
interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, Windows;

type
  { TForm1 }
  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 var
  Form1: TForm1; 
implementation

{ TForm1 }

procedure TForm1.FormClick(Sender: TObject);
var
  PerformanceCounter: int64;
  PerformanceFrequency: int64;
begin
  if QueryPerformanceFrequency(PerformanceFrequency)
    and QueryPerformanceCounter(PerformanceCounter)
    then ShowMessage('Freq:' + IntToStr(PerformanceFrequency)
       + ', Counter:' + IntToStr(PerformanceCounter))
    else ShowMessage('Sorry, performance counters not supported.');
end;

initialization

{$I unit1.lrs}

end.

From the Free Pascal wiki, page "QueryPerformanceCounter", as it stood on 2020-02-23 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.

Revision 1, last changed by WikiArchive 11-4-2026.

Talk about this page

Nobody has opened a bench for this page yet. Sign in to open one.