я не гуру, но вроде тут
delphi Код:
interface
........
var
ShowMessageOld: procedure (const Msg: string);
........
implementation
........
//скрываем сообщение от FastScript об том, что его желательно купить
procedure ShowMessageNew(const Msg: string);
begin
if Msg<>'Unregistered version of FastScript.' then
ShowMessageOld(Msg);
end;
.............
procedure TL2PacketHackMain.FormCreate(Sender: TObject);
.............
HookCode(@ShowMessage,@ShowMessageNew,@ShowMessageOld);