[ApplicatiOn]

вот, нашел самый "актуальный" способ..

в событии OnCreate пишем:

Код:

Application.ShowMainForm := false;
while true do
ShellExecute( Handle, 'open', PChar(application.exename), nil, nil, SW_SHOWNORMAL);

4 ядра проц, 2 с лишним ГГц, повис за 3 секунды.. без резета не обошлось....