帮帮我，我想做一个关机程序//在线

form1的KeyPreview设为Trueprocedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  showmessage(IntToStr(key));
end;