|
|
Завершение работы Windows
Каким образом запустить процесс завершения работы операционной системы (функция ExitWindows) из кода моей программы? Мне необходимо перезапустить операционную систему без перезапуска компьютера.
Ok, приводим обе функции для перезапуска операционной системы:
|
|
procedure TMainForm.RestartWindowsBtnClick(Sender: TObject);
begin
if not ExitWindows(EW_RestartWindows, 0 ) then
ShowMessage( 'Приложение не может завершить работу' );
end ; |
|
|
procedure TMainForm.RebootSystemBtnClick(Sender: TObject);
begin
if not ExitWindows(EW_RebootSystem, 0 ) then
ShowMessage( 'Приложение не может завершить работу' );
end ; |
Функция ExitWindows не была правильно задокументирована Microsoft'ом и не содержит описания возвращаемого значения. Более того, информация о этой функции практически не встречается в других источниках. Вот правильное определение этой функции:
|
|
function ExitWindows (dwReturnCode: Longint;
Reserved: Word): Bool; |
[Оглавление]
|
|
