怎么实现定时关机用delphi实现如果鼠标键盘动作关机延时五分钟

可以使用Windows API函数ExitWindowsEx来实现定时关机，使用GetLastInputInfo函数获取鼠标键盘的最后一次操作时间，然后判断是否超过了设定的延时时间，如果超过了则执行关机操作。

以下是一个简单的实现示例：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetLastInputTime: DWORD;
var
  lii: LASTINPUTINFO;
begin
  lii.cbSize := SizeOf(lii);
  GetLastInputInfo(lii);
  Result := GetTickCount - lii.dwTime;
end;

procedure Shutdown(delay: Integer);
var
  t: DWORD;
begin
  t := GetLastInputTime;
  if t >= delay * 1000 then
    ExitWindowsEx(EWX_POWEROFF or EWX_FORCE, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  delay: Integer;
begin
  delay := StrToIntDef(Edit1.Text, 5);
  Label1.Caption := '系统将在 ' + IntToStr(delay) + ' 秒后关机';
  Sleep(delay * 1000);
  Shutdown(delay * 1000);
end;

end.

在按钮的Click事件中，获取延时时间，然后等待指定的延时时间后执行Shutdown函数。Shutdown函数中首先使用GetLastInputTime获取鼠标键盘的最后一次操作时间，然后判断是否超过了设定的延时时间，如果超过了则执行关机操作。EWX_POWEROFF表示关机，EWX_FORCE表示强制关闭所有应用程序。