Ссылка на процедуру из dpr которая в pas

[Alex Cones]

В UNTLoad:

Procedure CreateClass(Var WindowClass : TWndClass);
 Begin
  With WindowClass Do
  Begin
   Style := CS_PARENTDC;
   hIcon := LoadIcon(ApplHandle, MAKEINTRESOURCE('MAINICON'));
   lpfnWndProc := @WindowProc;
   hInstance := ApplHandle;
   hbrBackground := COLOR_BTNFACE + 1;
   lpszClassName := 'TAliusForm';
   hCursor := LoadCursor(0, IDC_ARROW);
  End;
 End;

В DPR:

Function WindowProc(hwnd, msg, wparam, lparam: longint): longint; stdcall;
Begin
  Result := DefWindowProc(hwnd, msg, wparam, lparam);
  Case Msg Of

  WM_DESTROY: ShutDown;
  End;
End;

Есть связь UNT > DPR; Ошибка на

   lpfnWndProc := @WindowProc;

Так как нет связи DPR > UNT.
Как передать указатель на функу?

[raxp]

объяви в <untload.pas>:

  Function WindowProc(HWND,{Ïðîöåäóðà îáðàáîòêè ñîîáùåíèé  }
                    Msg,
                    wParam,
                    lParam: Longint): Longint; Stdcall;

implementation

Function WindowProc(HWND,{Ïðîöåäóðà îáðàáîòêè ñîîáùåíèé  }
                    Msg,
                    wParam,
                    lParam: Longint): Longint; Stdcall;
 Begin
   Result := DefWindowProc(HWND, Msg, wParam, lParam);
   Case Msg Of

   WM_MOUSEMOVE: LightForButtons;   {Ïðîöåäóðà ïîäñâåòêè êíîïîê   }
   WM_DESTROY  : ShutDown;          {Çàâåðøåíèÿ ïðîãðàììû         }
   End;
 End;

End.

[Alex Cones]

Всем спасибо, за внимание, решил так:

Procedure CreateClass(Proc : Pointer; Var WindowClass : TWndClass);
 Begin
  With WindowClass Do
  Begin
   Style := CS_PARENTDC;
   hIcon := LoadIcon(ApplHandle, MAKEINTRESOURCE('MAINICON'));
   lpfnWndProc := Proc;
   hInstance := ApplHandle;
   hbrBackground := COLOR_BTNFACE + 1;
   lpszClassName := 'TAliusForm';
   hCursor := LoadCursor(0, IDC_ARROW);
  End;
 End;

 CreateClass(@WindowProc, WinClass);

2raxp. Чето не понял...

[raxp]

имел ввиду, лучше поменять местами... ну так тоже ок