防止系统在应用程序运行时进入睡眠状态或关闭显示器

Question

我在Windows 8.1中使用Delphi XE Rio 我的目标是防止系统进入睡眠模式并关闭显示器。

我尝试了这个但没有成功。

  

http://delphidabbler.com/tips/127

我正在使用这个

SystemCritical.IsCritical = true;
try
  // do critical operation here
  // without going in to sleep or turning off the display
finally
  SystemCritical.IsCritical = false;
end;

我的电脑仍然关闭显示器，然后进入睡眠状态。