Oh, das habe ich übersehen, als ich es hier rein kopiert habe.
Delphi-Quellcode:
function CallBack(alert, param: Integer; pTransfer, pUser: Pointer): Integer; stdcall;
implementation
{$R *.dfm}
function CallBack(alert, param: Integer; pTransfer, pUser: Pointer): Integer;
begin
beep;
end;