Если надоели месаги с рекламой, отсылаемые через net send то

while h=0 do h:=Findwindow(nil,'служба сообщений Windows');
Sendmessage(h, SC_Close);

и все это в бесконечном цикле.

Синтаксис точно не помню