各位前輩 
用了一個以前的例子想監視系統內的運轉訊息(網路DOWNLOAD的). 用XE10好像不能RUN, 一COMPILE就有ERROR. 能否請前輩幫忙? 例子如下
unit WinProc1;

interface

uses
{$IFDEF WIN32}
WINAPI.Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBTables;
{$ELSE}
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,
Controls, Forms, Dialogs, DB, DBTables, Grids, DBGrids;
{$ENDIF}

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Table1: TTable;
DataSource1: TDataSource;
//DBGrid1: TDBGrid;
// Table1: TTable;
// DataSource1: TDataSource;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

type
{$IFDEF WIN32}
WParameter = LongInt;
{$ELSE}
WParameter = Word;
{$ENDIF}
LParameter = LongInt;

{Declare a variable to hold the window procedure we are replacing}
var
OldWindowProc : Pointer;

function NewWindowProc(WindowHandle : hWnd;
TheMessage : WParameter;
ParamW : WParameter;
ParamL : LParameter) : LongInt
{$IFDEF WIN32} stdcall; {$ELSE} ; export; {$ENDIF}
begin

{ Process the message of your choice here }
if TheMessage = WM_VSCROLL then begin
ShowMessage('The vertical scrollbar is scrolling!');
end;

{ Exit here and return zero if you want }
{ to stop further processing of the message }

{ Call the old Window procedure to }
{ allow processing of the message. }
NewWindowProc := CallWindowProc(OldWindowProc,
WindowHandle,
TheMessage,
ParamW,
ParamL);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
{ Set the new window procedure for the control }
{ and remember the old window procedure. }
OldWindowProc := Pointer(SetWindowLong(DbGrid1.Handle,
GWL_WNDPROC,
LongInt(NewWindowProc)));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
{ Set the window procedure back }
{ to the old window procedure. }
SetWindowLong(DbGrid1.Handle,
GWL_WNDPROC,
LongInt(OldWindowProc));

end;

end.


(*
{ The program's main source file }
program WinProc;

uses
Forms,
WinProc1 in 'WinProc1.pas' {Form1};

{$R *.RES}

begin
{$IFDEF WIN32}
Application.Initialize;
{$ENDIF}
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
*)

{ end of ti }

------
jian chien

請附上完整錯誤訊息。謝謝!

------


蕭沖
--All ideas are worthless unless implemented--

C++ Builder Delphi Taiwan G+ 社群
http://bit.ly/cbtaiwan

procedure TForm1.FormCreate(Sender: TObject);
begin
{ Set the new window procedure for the control }
{ and remember the old window procedure. }
OldWindowProc := Pointer(SetWindowLong(DbGrid1.Handle,
GWL_WNDPROC,
主要是這裡沒法COMPILER
end;
//[dcc32 Error] WinProc1.PAS(80): E2035 Not enough actual parameters.

------
jian chien

抱歉, 能力有限, 沒能很仔細研究你的CODE,
但有點疑問是 (NewWindowProc) 不是一個函式嗎? 我看你PO的CODE, 要帶參數進來, 但你實際呼叫的是 Int(NewWindowProc), 沒有參數導入, 不知是否有特別的用法?
因為由錯誤來看就是實際參數導入不足的問題

謝謝 版主的回覆.  我試了多次後在 
OldWindowProc := Pointer(SetWindowLong(SCROLLBOX1.Handle,
GWL_WNDPROC,
LongInt(
@NewWindowProc)));加@可以編譯
不過 要攔截訊號似乎還不行

------
jian chien

Not enough actual parameters.--- 这句错误提示，应该死说你的代码里面的某个 function 的 parameters 应该填比如3个，而你只填了2个。

看这段 code，里面好像是使用 Win32 API 对 DBGrid 做了什么设置。能说一下它是要用 DBGrid 实现什么样的功能吗？也许用其它的 Grid 比如 TDBGridEh 也能很容易实现类似功能？

謝謝回答

這例題是從網路DOWNLOAD的. 應是用來攔截WS_VSCORLL訊息. 我是想用他來攔截其他程式所有訊息 像CALLBACK

------
jian chien

FireMonkey能做這？我還以為是VCL？
===================引 用 TUN 文 章===================
謝謝回答

這例題是從網路DOWNLOAD的. 應是用來攔截WS_VSCORLL訊息. 我是想用他來攔截其他程式所有訊息 像CALLBACK

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.