kpakep: программа

Убиваем Sudoku

Сам себе удивляюсь какой же я злой!
Есть у меня один сотрудник , который вместо перекура ОЧЕНЬ любит играть в Судоку на компе. Решил его отучить от этой дурной привычки.
Слабал такую программку:

//–––––––––––––––––––––––––––––––––––––-
#include
#pragma hdrstop
#include "mainform.h"
//–––––––––––––––––––––––––––––––––––––-
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//–––––––––––––––––––––––––––––––––––––-
int killsudoku()
{
HWND hnd = FindWindow("TMainForm","Simple Sudoku - [без названия]");
if (hnd != NULL)
{
PostMessage(hnd, WM_QUIT, 0, 0);
HWND hndq,hhh1;
hndq = FindWindowEx(hnd,hhh1,"#32770","Simple Sudoku");
if (hnd != NULL)
{
PostMessage(hndq,WM_KEYDOWN,VK_RETURN,0);
PostMessage(hndq,WM_KEYUP,VK_RETURN,0);
}
} ;
return 0;
}
//–––––––––––––––––––––––––––––––––––––-
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//–––––––––––––––––––––––––––––––––––––-
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Application->CreateHandle();
ShowWindow(Application->Handle,SW_HIDE);
Application->ShowMainForm = TRUE;
while (TRUE)
{
Sleep(60000);
killsudoku();
}
}
//–––––––––––––––––––––––––––––––––––––-

Чтобы её не сразу нашли переименовал в svchost.exe (в процессах запускаемых виндой этих процессов несколько - поди разберись какой выгружать!).
И засунул в автозапуск чтоб грузилась вместе с виндой:
в реестре создал строковый ключ "Kill Sudoku" в разделе

HKLM_Software_Microsoft_Windows_CurrentVersion_Run

с указанием имени и полного пути к моей проге

D:_Setup_Ford_Prg_svchost.exe

(пишу здесь чтоб самому не забыть куда засунул).
ВСЁ!!!
Вечная память тебе Судоку!!!
(И всё же злой я.)

программа