Как скрыть процес в Task Maneger

Почему-то не работает, подскажите плиз..


WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
HINSTANCE hInstKernel;
DWORD (__stdcall *pRegisterServiceProcess)(DWORD,DWORD);
hInstKernel=LoadLibrary("KERNEL32.DLL");
if(hInstKernel)
{
pRegisterServiceProcess=(DWORD (__stdcall *)(DWORD,DWORD))GetProcAddress(hInstKernel,"RegisterServiceProcess");
if(pRegisterServiceProcess)
{
pRegisterServiceProcess(NULL,1);
}
FreeLibrary(hInstKernel);
}

Application->Initialize();
SetWindowLong(Application->Handle, GWL_EXSTYLE, GetWindowLong(Application->Handle, GWL_EXSTYLE) | WS_EX_TOOLWINDOW);
Application->CreateForm(__classid(TForm1), &Form1);
Application->ShowMainForm = false;
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}