Функция обратного вызова и таймер на WinApi

[flug]

Здравствуйте уважаемые профи.
Помогите пожалуйста разобраться, вот простой пример кода:

var
  Form1: TForm1;
  TID:DWORD;
  i:integer;


implementation

{$R *.dfm}
procedure TimerProc(Handle:HWND;uMsg:DWORD;idEvent:DWORD;dwTime:DWORD);stdcall;
begin
inc(i);
form1.label1.Caption:=inttostr(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TID:=SetTimer(0,0,500,@TimerProc);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
KillTimer(0, TID);
end;

end.

Здесь я создаю таймер на WinApi и обратным вызовом выполняю процедуру procedure TimerProc, но вот в чём вопрос, можно ли как нибудь заставить выполняться эту процедуру не используя "@" в строке SetTimer(0,0,500,@TimerProc) наверняка же есть способ. Ну или можно ли как нибудь узнать 'Адpес экземпляpа пpоцедуpы' procedure TimerProc.

[SuperVisor]

Дело в том, что символ "@" (читается как ЭТ от английского AT) обозначает, что Вы передаете не процедуру, а указатель (адрес в памяти) на нее. Т.е. Вы передаете TPointer.
Обойтись? А для чего? Или, для чего Вам это нужно - правильнее спросить )
Можно, конечно, объявить переменную-указатель и сначала ей присвоить указатель на Вашу функцию, а после передавать в SetTimer, только какой от этого смысл? )

[flug]

SuperVisor
Да смысл есть, дело в том что я пользуюсь одной программой в которой встроен скриптовый язык основанный на урезанном паскале и строка SetTimer(0,0,500,@TimerProc); выдаёт ошибку, и тип pointer этой программе тоже не известен, но я видел как люди всёже реализовали таймер правда через dll и вот привожу куски кода:

type
  TProc=procedure(HandleW, msg, idEvent, TimeSys: LongWord);
var
  TID: LongWord;
  i:integer;

function WtProc(cb:TProc; paramcount:integer):longword;  stdcall; external 'cb.dll';


procedure TimerProc(Handle:HWND;uMsg:DWORD;idEvent:DWORD;dwTime:DWORD);
begin
inc(i);
label1.Caption:=inttostr(i);
end;


var
  pf: LongWord;
begin
  pf:=WtProc(@TimerProc, 4);
  TID:=SetTimer(0, 0, 200, pf);
end;

И вот мне не понятно, что же за преобразования происходит в function WtProc ведь она возвращает в переменную pf значение типа LongWord и SetTimer спокойно принимает переменную pf и всё работает.

[alexBlack]

Скорее всего SetTimer тоже объявлена по-другому. Что-то вроде:

function SetTimer(hWnd: HWND; nIDEvent, uElapse: UINT;
  lpTimerFunc: DWORD): UINT; stdcall; external 'user32.dll' name 'SetTimer';

procedure TForm3.Button1Click(Sender: TObject);
var W:DWORD;
begin
   W := Integer(Addr(TimerProc));
   TID := SetTimer(0,0, 500, W);
end;

или вообще свой SetTimer используется. А WtProc() скорее всего возвращает указатель на внутреннюю процедуру, которая и вызывает нашу.

И, кстати, почему, WtProc(@TimerProc, 4) можно, а SetTimer(@...) нельзя ?

[flug]

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

Скорее всего SetTimer тоже объявлена по-другому...

Да действительно объявлен по другому, извиняюсь что упустил.
вот как там было:

function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; stdcall; external 'user32.dll';

И, кстати, почему, WtProc(@TimerProc, 4) можно, а SetTimer(@...) нельзя ?

Сам не знаю, но факт остаётся фактом.

   W := Integer(Addr(TimerProc));

А вот это то что мне и требовалось, скорее всего в той сторонней dll и происходило такое преобразование.
Всё вопрос решён!!!!!!
Спасибо ОГРОМНОЕ всем, и особенно alexBlack!!!!!

p.s.
Всем жму на весы