object pascal; код программы выключающей комп в заданное время

[Vold.khv]

Решил сделать прогу выключающую комп в заданное время.
На форме пара лейблов, кнопка, и вот требуется задействовать команду\процедуру которая будет корректно завершать работу компа с завершением всех процесов и прочее... ну как обычное выключение.
На прасторах инета нашел такую процедеру

procedure ShutdownComputer;
var
  ph: THandle;
  tp, prevst: TTokenPrivileges;
  rl: DWORD;
begin
   OpenProcessToken( GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, ph );
   LookupPrivilegeValue( nil, 'SeShutdownPrivilege', tp.Privileges[0].Luid );
   tp.PrivilegeCount := 1;
   tp.Privileges[0].Attributes := 2;
   AdjustTokenPrivileges( ph, FALSE, tp, SizeOf( prevst ), prevst, rl );
   ExitWindowsEx( EWX_SHUTDOWN or EWX_POWEROFF, 0 );
end;

Хочу узнать насколько она корректно завершает работу компа и можно ли ее использовать в написании мною желаемого кода!?
Со всем остальным думаю справлюсь, заранее спс =)

[Stilet]

Хочу узнать насколько она корректно завершает работу компа

Тупо вырубает все программы принудительно. При этом могут быть потери данных.

Кстати в object pascal этот код работать не будет.

[Vold.khv]

Кстати в object pascal этот код работать не будет.

проверил - работает...
проверял в дельфи7

Тупо вырубает все программы принудительно. При этом могут быть потери данных.

а как нибудь ее улучшить\исправить можно? или мб есть альтернативные варианты?
(в голове крутится одна: SendMessage(FindWindow('Progman','P rogram Manager'),WM_CLOSE, 0, 0) - вызваем окно завершения работы и нужно дописать, по возможности, еще команду "онклик" на кнопку завершения работы )

[Vold.khv]

-------------------------------up-----------------------------