大家能说一下这个是什么意思吗?

type
  {$IFDEF WIN32}
  WParameter = LongInt;
  {$ELSE}
  WParameter = Word;
  {$ENDIF}
  LParameter = Longint;
var OldWindowProc:Pointer;function NewWindowProc(WindowHandle:hWnd;
                       TheMessage: WParameter;
                       ParamW:WParameter;
                       ParamL:LParameter):LongInt
{$IFDEF WIN32}stdcall;{$ELSE};export;{$ENDIF}   //这个是做什么的..
//为什么要加这个stdcall和export
begin
  if TheMessage = WM_VSCROLL then
  begin
    ShowMessage('The vertical Scrollbar is scrolling!');
  end;
  NewWindowProc:=CallWindowProc(OldWindowProc,WindowHandle,TheMessage,ParamW,ParamL);
end;
呵呵..没有分了..最后48分贡献出去了..