Создание высокочастотного таймера с нуля.

[VintProg]

Такой вот вопрос как создать высокочастотный таймер с нуля средствами Delphi, а то нужен для движка игр, чтобы можно было установить время вызова процедуры в 1 мили секунду, вот как такое сотворить??? Помогите
пожалуйста!

[raxp]

...мультимедийный ...TimeSetEvent(10, 0, @TimeCallBack, 0, TIME_PERIODIC), но не обольщайтесь, windows не система реального времени и гарантируемая точность составляет 10мс/

[VintProg]

Еще где то слыхал что надо использовать эти функции:
QueryPerformanceCounter
QueryPerformanceFrequency
GetTickCount
А что они значат не знаю???

[raxp]

тырк 1 2 3

[JTG]

http://programmersforum.ru/attachmen...chmentid=14233

[VintProg]

Почему не выполняются два таймера???

unit Timer_Engine;
//VintProg --------------------------------------
//Êóñîê Äâèæêà:
//Âûñîêî÷àñòîòíûå òàéìåðû  2010 ãîä

interface

uses
 Windows, Classes;

Type
 TTimerHigh = record
   Procedure_call : pointer;
   Interval       : Int64;
  end;

PTimerHigh = ^TTimerHigh;

var
 Timer_List       : TList   = nil;
 Pause_ALL_Timers : boolean = false;

function GetHighTick : Int64;
function Timers_Counts : integer;
procedure INIT_Timer_Engine;
procedure MAIN_UPDATE_PROCESS_TIMERS;
function Timer_Create(Procedure_call : pointer; Interval : Int64): Pointer;

implementation

uses
 Unit1;

//---------------- Èíèöèàëèçàöèÿ Äâèæêà Òàéìåðîâ -------------------------------
//==============================================================================
procedure INIT_Timer_Engine;
begin
  Timer_List := TList.Create;
end;
//------------------------------------------------------------------------------

//------------------------------------------------------------------------------
function  GetHighTick : Int64;
var
 x : Int64;

begin
 QueryPerformanceCounter(x);
 result := x;
end;
//------------------------------------------------------------------------------


//---------- Ãëàâíàÿ îáðîáîòêà âñåõ òàéìåðîâ -----------------------------------
//---------- Çàíîñèòñÿ â ïîòîê >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
//==============================================================================
procedure MAIN_UPDATE_PROCESS_TIMERS;
var
 TimerHigh : PTimerHigh;
 i : integer;
 x : Int64;
 procedure_ : procedure;

begin

 if Pause_ALL_Timers = true then
    exit;   


x := GetHighTick; //1000

while Pause_ALL_Timers = false do
   begin
   i := 0;

             
 while i < Timer_List.Count do
    begin
     TimerHigh := Timer_List.Items[i];


       if (GetHighTick - X) >= TimerHigh.Interval then
          begin
            procedure_  := TimerHigh.Procedure_call;
            procedure_;
            x := GetHighTick; //1000
          end;

     Inc(i);
    end;

      
  end;


end;
//------------------------------------------------------------------------------
//==============================================================================


//-----------------------------
function Timers_Counts : integer;
begin
  Result := Timer_List.Count;
end;



//------------ Ñîçäàíèå òàéìåðà ------------------------------------------------
function Timer_Create(Procedure_call : pointer; Interval : Int64): Pointer;
var
 TimerHigh : PTimerHigh;

Begin
 New(TimerHigh);
  TimerHigh^.Procedure_call := Procedure_call;
   TimerHigh^.Interval := Interval;
    Timer_List.Add(TimerHigh);
end;
//------------------------------------------------------------------------------





end.