由VB轉Delphi問題 |
|
答題得分者是：jest0024
|
|
apple12
一般會員   發表：28 回覆：23 積分：10 註冊：2003-05-10 發送簡訊給我 |
誠請各位高手指教，以下由VB轉為Delphi，已參照相關文章，但Call fWndProc會有Access Violation。 VB:
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _
(ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public lpPrevWndProc As Long
Public Const GWL_WNDPROC = (-4) Private Sub Form_Load()
modVPX.lpPrevWndProc = modVPX.SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf WndProc)
...
End Sub Public Function WndProc(ByVal hWnd As Long, ByVal hMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
...
WndProc = CallWindowProc(lpPrevWndProc, hWnd, hMsg, wParam, lParam)
End Function Delphi: Function CallWindowProc (lpPrevWndFunc, hWnd, MSG, wParam , lParam : Longint) : Longint; stdcall; external 'user32' name 'CallWindowProcA';
Function SetWindowLong (hWnd, nIndex, dwNewLong : Longint) : Longint; stdcall; external 'user32' name 'SetWindowLongA'; Function fWndProc( hWnd, hMsg, wParam , lParam : Longint) : Longint; procedure TfrmMain.FormCreate(Sender: TObject);
var w_winproc, w_fporc : Longint;
begin
wHandle := self.Handle;
w_winproc := GWL_WNDPROC;
w_fporc := LongInt(@fWndProc);
lpPrevWndProc := SetWindowLong(wHandle, w_winproc, w_fporc);
end; Function fWndProc(hWnd, hMsg, wParam , lParam : Longint) : Longint;
begin
...
fWndProc := CallWindowProc(lpPrevWndProc, hWnd, hMsg, wParam, lParam);
End;
|
|
jest0024
高階會員  發表：11 回覆：310 積分：224 註冊：2002-11-24 發送簡訊給我 |
引言: 誠請各位高手指教，以下由VB轉為Delphi，已參照相關文章，但Call fWndProc會有Access Violation。 VB: Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" _ (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public lpPrevWndProc As Long Public Const GWL_WNDPROC = (-4) Private Sub Form_Load() modVPX.lpPrevWndProc = modVPX.SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf WndProc) ... End Sub Public Function WndProc(ByVal hWnd As Long, ByVal hMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long ... WndProc = CallWindowProc(lpPrevWndProc, hWnd, hMsg, wParam, lParam) End Function Delphi: Function CallWindowProc (lpPrevWndFunc, hWnd, MSG, wParam , lParam : Longint) : Longint; stdcall; external 'user32' name 'CallWindowProcA'; Function SetWindowLong (hWnd, nIndex, dwNewLong : Longint) : Longint; stdcall; external 'user32' name 'SetWindowLongA'; ^---Delphi已經幫你宣告了!Windows單元內 Function fWndProc( hWnd, hMsg, wParam , lParam : Longint) : Longint;stdcall; procedure TfrmMain.FormCreate(Sender: TObject); var w_winproc, w_fporc : Longint; begin wHandle := self.Handle; w_winproc := GWL_WNDPROC; w_fporc := LongInt(@fWndProc); lpPrevWndProc := SetWindowLong(wHandle, w_winproc, w_fporc); end; Function fWndProc(hWnd, hMsg, wParam , lParam : Longint) : Longint; begin ... fWndProc := CallWindowProc(lpPrevWndProc, hWnd, hMsg, wParam, lParam); End;發表人 - jest0024 於 2005/06/11 00:00:21 |
|
apple12
一般會員 發表：28 回覆：23 積分：10 註冊：2003-05-10 發送簡訊給我 |
發表時間：2005-06-10 22:02:58
IP:219.77.xxx.xxx 未訂閱
系統時間：2024-04-26 3:46:03
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |