waveinopen的callback_function怎么用呀？

Question

waveinopen的callback_function怎么用呀？

Answer 1

uses MMSystem;procedure waveInProc(hwi: HWAVEIN; uMsg: UINT; dwInstance, dwParam1, dwParam2: DWORD);
begin
//
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  waveInOpen(……, Integer(@waveInProc),……);
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————