Вызов функции по таймеру

[Lexicss]

Привет, народ! Вот тут упёрся в одну проблемку, может вы поможете разобрать и решить.
Работаю на Delphi 5 и вот наткнулся на такую ситуацию. Есть у меня одна функция и мне её надо вызвать спустя какой-то интервал времени, делаю это с помощью SetTimer. В чём странность? Так вот: в 98-ой винде работает всё нормально. В XP функция таймера срабатывает дважды, а в 2000-ой мало того что срабатывает функция дважды, так после второго завершения программа вылетает с исключением "Access violation", притом не важно что выполняется в функции(процедуре) вызываемой по таймеру.
Приведу приметивнейший пример

 
unit Main;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
procedure MyFunc(hWnd: THandle; uMsg: DWord; idEvent: DWord; dwTime: DWord);
implementation
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetTimer(0,0,5000,@MyFunc);
end;
procedure MyFunc(hWnd: THandle; uMsg: DWord; idEvent: DWord; dwTime: DWord);
begin
  if dwTime = 0
  then beep;
end;
end.

Проведя некоторые исследования, я заметил такую особенность, если число параметров в вызываемой функции не превышает 3, то такой ситуации не возникает(из ассемблерного кода видно, что если в функции большех трёх параметров, то 4-ый и последующие уже передаются не через регистры, а через стэк). Ещё одна особенность, если процедуру MyFunc вызывать с соглашение stdcall, то тоже всё нормально.
Очень важно узнать почему так? Может здесь какая-то несовместимость Delphi 5 и Windows 2000(и выше)?
И как тогда выкручиваться при использовании SetTimer в Delphi 5, так как программа должна быть универсальной и работать как под 98-ой, как под 2000-ой и др одинаково?

Как я понял : Моя процедура MyFunc является callback API-шной и следовательно нуждается в директиве stdcall. Если я понял что-то не так - поправьте, пожалуйста.
Но всё же остаётся открытым вопрос, почему в Windows 98 эта функция работатет нормально без stdcall, хоть в ней и больше 3-х параметров? Может ещё какие будут варианты объяснения кроме случайности? Если кто что толкового подскажет, буду признателен.

[JTG]

А что значит
if dwTime = 0 then beep; ???

dwTime
[in] Specifies the number of milliseconds that have elapsed since the system was started. This is the value returned by the GetTickCount function.

Когда он бипать-то будет тогда?

Вообще Х/З, попробуй передать ей хендл окна и timerID

[Wolfheart]

Дружище, ты создаешь таймер без родителя!
Пиши следующее:

const
TimerId = 1;

var
Time : Integer = 1000;

begin
SetTimer(Form1.Handle, TimerId, Time, @Func);
end;

И не забудь в своей callback-функции поставить stdcall.
Должно работать.

[Lexicss]

Сообщение от JTG

А что значит
if dwTime = 0 then beep; ???


Когда он бипать-то будет тогда?

Вообще Х/З, попробуй передать ей хендл окна и timerID

if dwTime = 0 then beep - это просто случайна строка кода, что бы функция пустой не была. на самом деле здесь должен быть листинг кода того что будет выполняться в функции, но я его не писал, это не нужно. TimerID тож в данном случае нет необходимости.


Насчёт stdcall. Да, всё работает, единственно меня интересует, почему? Потомучто моя MyFunc является API-шной функцией?

И ещё вопрос, почему в 98-ой винде всё работает нормально без stdcall?

[Wolfheart]

С точки зрения системы - обыкновенная функция, в которую передается набор параметров в определённой последовательности (последовательность указывается явно с помощью stdcall). Вообще, отправляю автора вопроса к чтению MS SDK по Callback-функциям.