Como fechar todos os aplicativos e reiniciar a máquina?

Bom pessoal, meu problema é seguinte:

Pretendo(exemplo) fazer um botao, e que, ao clica-lo, ele fecha todos os programas abertos e reinicie o computador, sem que faça nenhum tipo de pergunta.

eu uso a seguinte linha de comando:

--------->
[b:07985a030c]procedure TForm1.Reiniciar1Click(Sender: TObject);
begin
ExitWindowsEx(EWX_REBOOT+EWX_FORCE, 0);
end;[/b:07985a030c]---------/

ele fecha tudo, mas nao reinicia.

obs. eu uso o win98(para desenvolver(delphi6)) e preciso das rotinas para win98 e winXp.

agradeço desde já.

oTTo Husckows :shock: