Programm per Tastenkombination aufrufen

[barf00s]

Delphi-Quellcode:

uses
  ShellApi; // ShellExecute

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    iHotKeyStrgT: integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
  public
  end;

implementation

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
  if Msg.HotKey = iHotKeyStrgT then
    ShellExecute(0, 'open', PChar(sDir + '\Programm.exe'), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.FormCreate(Sender: TObject);
const
  MOD_CONTROL = 2;
  VK_T = $54;

begin
  iHotKeyStrgT := GlobalAddAtom('Hotkey_StrgT'); // könnte man auch noch den programmnamen einbaun -> Application.Title bspsweise
  RegisterHotKey(Handle, iHotKeyStrgT, MOD_CONTROL, VK_T);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(Handle, iHotKeyStrgT);
  GlobalDeleteAtom(iHotKeyStrgT);
end;