如何捕捉到用户是按着 Shift 点某.Exe 程序的?

如题,要实现这样一个功能,如果是直接点击应用程序,则运行程序,如果是按着Shift再点应用程序,则出现配置窗口,请问如何实现?

解决方案 »

  1.   

    Shell扩展，具体我没写过。google下看！
      

  2.   

    你是要在被点击的EXE中检测吗？没听说过系统有这样的机制
      

  3.   

    算了,我还是放弃吧.另一软件就是这样做的,按住Shift点进.EXE的时候,连接是另外一个数据库,从中查询到的是另外一些数据,不点Shift里进去,则是一个正常的数据库.我想,做过财务软件(涉及报税)的都知道是什么意思吧.
      

  4.   

    procedure TForm1.FormCreate(Sender: TObject);
    var
      ks : TKeyboardState;
    begin
      GetKeyboardState(ks);
      if Odd(ks[VK_SHIFT]) then
        Self.Caption := '按下SHIFT键'
      else
        Self.Caption := '没有按下SHIFT';
    end;