NativeAPI.pas
advApiHook.pas
delphi Код:
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.