Desligando Windows

[Kikonanet]

Pessoal,

Eu coloquei este procedimento para desligar o windows

// ExitWindowsEx(EWX_POWEROFF, 0)

Meu problema é que dependo do windows ele não desliga, reinicia...Queria saber se tem como ver a versão do windows e desligar de acordo com a versão?

Valeu

[ricardo_sdl]

Tenta esse aqui:

procedure TForm1.Button1Click(Sender: TObject);

begin

{Desliga o windows}

ExitWindowsEx(EWX_SHUTDOWN,0);

end;