一个利用api的小技巧!

Question

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
//加入shellapi单元
//判断机器是否正常启动.
    case getsystemmetrics(SM_CLEANBOOT) of        0: showmessage('正常启动');
        1: showmessage('安全模式');
        2: showmessage(' 安全模式并有网络功能');    end;
end;

Answer 1

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
//一个制作小彩蛋的思路    判断是否为shift+F4
  begin
       if (ssshift in shift) and (ord(key)=115) then
       showmessage('fdsfdsf');
end;