[alexteam]

NativeAPI.pas
advApiHook.pas

var
  ShowMessageOld: procedure (const Msg: string);

procedure ShowMessageNew(const Msg: string);
begin
  if Msg<>'Unregistered version of FastScript.' then
    ShowMessageOld(Msg);
end;

begin
HookCode(@ShowMessage,@ShowMessageNew,@ShowMessageOld);
//blablabla
UnhookCode(@ShowMessageOld);
end.