请问在Windows2000下如何使用settimer函数？

Question

以下代码可以在Windows98里运行，为何在2000里不行？//Timer回调函数
procedure Time1pro(hWnd:Longint;uMsg:UINT;idEvent:UINT;Time:DWORD);
begin
  Sendmail.SendEMail;
end;settimer(Handle,1,1000,@Time1pro); //定义Timer

Answer 1

加一个关键字stdcallprocedure Time1pro(hWnd:Longint;uMsg:UINT;idEvent:UINT;Time:DWORD);stdcall;

Answer 2

同意楼上的，需要加上关键字stdcall

Answer 3

呵呵~~~回调函数在SDK中有CALLBACK宏定义。而在Delphi中没有宏的概念。但是实际上也不过是将该函数作为STDCALL。回调函数和标准 Win32 SDK采用的stdcall调用约定，而Delphi默认使用register，当然不一样啦，所以你加个stdcall就可以使用SetTimer了。