请教关于回调函数的问题？

Question

type
  TCallBackFunction = procedure(YourParamList);stdcall;

Answer 1

呵呵，你定义为一个函数指针就可以了，如TFarProc
type 
  TCallBackFunction = TFarProc;
或
  TCallBackFunction = function (aParam: Integer): Integer;Function EnumMyDevices(EnumProc : TCallBackFunction; param : Integer): integer; StdCall;External 'API.DLL';EnumProc可定义如：function  EnumProc(aParam: Integer): Integer;

Answer 2

呵呵，对了，忘了Stdcall了，这可是不能少的。
TCallBackFunction = function (aParam: Integer): Integer; stdcall;
和
function  EnumProc(aParam: Integer): Integer;stdall;

Answer 3

谢谢以上各位！
我想在Form一出现时就要给上面的ComboBox赋值，是不是在FormCreate里调用？还有，当我在FormCreate里调用时：
EnumMyDevices(EnumProc, 0);
我的EnumProc应该放在哪儿定义呢，那我应该放在哪儿定义呢，放在哪里才可以在这里调用呢？具体如何定义？
再次感谢各位！

Answer 4

呵呵，
1。可以在FormCreate中给ComboBox赋值，也可以在OnShow中
2。EnumProc可以在直接OnCreate事件的上面定义，如下：function  EnumProc(aParam: Integer): Integer;stdall;
begin
  .....
  Result := 0;
end;procedure TForm1.OnCreate(Sender: TObject);
begin
  ......
  EnumMyDevices(EnumProc, 0);
end;