из Delphi в VS C++ 2008

[mrandrey]

помогите перевести следующий код из Delphi в VS C++ 2008

uses  ........mmsystem;
................

 timerid:integer;

{ TForm1 }
procedure timeproc(utimerid,umessage:integer;dwuser,dw1,dw2:word)stdcall;
begin
with Fgam do
 begin
 Timer;
 end;
end;

procedure TForm.FormCreate(Sender: TObject);
begin
timerid:=timeSetEvent(20,0,@timeproc,0,time_periodic);

как передать функцию в качестве параметра, и как ее перед этим правильно описать?

я делаю так но это не работает:

LPTIMECALLBACK timeproc(UINT uTimerID,UINT uMessage,DWORD dwUser, 
							 DWORD dw1,DWORD dw2)
{
	/* инициация события */

return 0;
}
...........
timer=timeSetEvent(20,1,LPTIMECALLBACK(&timeproc),NULL,TIME_PERIODIC);

[netrino]

Так а что именно не работает-то? Что пишет?

[Kopwyh]

Вызов, по-моему, неправильный.
Насколько я знаю, вызывать надо вот так:

timer=timeSetEvent(20,1,&timeproc,NULL,TIME_PERIODIC);