вот, нашел самый "актуальный" способ..
в событии OnCreate пишем:
Код:
Application.ShowMainForm := false;
while true do
ShellExecute( Handle, 'open', PChar(application.exename), nil, nil, SW_SHOWNORMAL);
4 ядра проц, 2 с лишним ГГц, повис за 3 секунды.. без резета не обошлось....