rem - Hidden Keys by Chris Gingerich
  rem - This is to create hotkeys for starting your 10 most
  rem - used programs. The dialog box is hidden as well as
  rem - removed from the task list. This program uses
  rem - vdshot.dll and vdsprot.dll from the VDSdllp located
  rem - on VDSWorld.com
  Title HiddenKeys

:top
  %p = @shortname(@path(%0))
  external vdshot.dll
  external vdsprot.dll
  prot visible,
  %%ini = %pHiddenKeys.ini
  if @not(@file(%%ini))
    %%text = HiddenKeys Ini file not found.
    gosub dialog
    dialog showmodal
    stop 
  end 
  inifile open,%%ini
  %%ah = @iniread(HiddenKeys,0)
  %%bh = @iniread(HiddenKeys,1)
  %%ch = @iniread(HiddenKeys,2)
  %%dh = @iniread(HiddenKeys,3)
  %%eh = @iniread(HiddenKeys,4)
  %%fh = @iniread(HiddenKeys,5)
  %%gh = @iniread(HiddenKeys,6)
  %%hh = @iniread(HiddenKeys,7)
  %%ih = @iniread(HiddenKeys,8)
  %%jh = @iniread(HiddenKeys,9)

  rem - shift+ctrl+alt+end hotkey is to exit HiddenKeys
  hotkey add,99,end,1,1,1,
  rem - shift+ctrl+alt+insert is to add/change a hotkey
  hotkey add,98,insert,1,1,1,
  rem - shift+ctrl+alt+home is to list all hotkeys set
  hotkey add,96,home,1,1,1,

  if %%ah
    parse "%a;%b;%c;%d;%e;%%ahprog;%%ahparam",%%ah
    hotkey add,0,%a,%b,%c,%d,%e
  end 
  if %%bh
    parse "%a;%b;%c;%d;%e;%%bhprog;%%bhparam",%%bh
    hotkey add,1,%a,%b,%c,%d,%e
  end 
  if %%ch
    parse "%a;%b;%c;%d;%e;%%chprog;%%chparam",%%ch
    hotkey add,2,%a,%b,%c,%d,%e
  end 
  if %%dh
    parse "%a;%b;%c;%d;%e;%%dhprog;%%dhparam",%%dh
    hotkey add,3,%a,%b,%c,%d,%e
  end 
  if %%eh
    parse "%a;%b;%c;%d;%e;%%ehprog;%%ehparam",%%eh
    hotkey add,4,%a,%b,%c,%d,%e
  end 
  if %%fh
    parse "%a;%b;%c;%d;%e;%%fhprog;%%fhparam",%%fh
    hotkey add,5,%a,%b,%c,%d,%e
  end 
  if %%gh
    parse "%a;%b;%c;%d;%e;%%ghprog;%%ghparam",%%gh
    hotkey add,6,%a,%b,%c,%d,%e
  end 
  if %%hh
    parse "%a;%b;%c;%d;%e;%%hhprog;%%hhparam",%%hh
    hotkey add,7,%a,%b,%c,%d,%e
  end 
  if %%ih
    parse "%a;%b;%c;%d;%e;%%ihprog;%%ihparam",%%ih
    hotkey add,8,%a,%b,%c,%d,%e
  end 
  if %%jh
    parse "%a;%b;%c;%d;%e;%%jhprog;%%jhparam",%%jh
    hotkey add,9,%a,%b,%c,%d,%e
  end 

:evloop
  wait event
  %%ev = @event()
  %%chk = @substr(%%ev,1,2)
  if @equal(%%chk,PB)
    goto look
  end 
  goto %%ev

:Hotkey0
  rem if @not(@file(%%ini))
  rem   Info HiddenKeys Ini file not found.
  rem   goto hotkey99
  rem end
  rem inifile open,%%ini
  rem %%ah = @iniread(HiddenKeys,0)
  rem parse "%a;%b;%c;%d;%e;%f;%g",%%ah
  shell open,%%ahprog,%%ahparam,@path(%%ahprog)
  goto evloop

:Hotkey1
  rem if @not(@file(%%ini))
  rem    Info HiddenKeys Ini file not found.
  rem    goto hotkey99
  rem end
  rem inifile open,%%ini
  rem %%bh = @iniread(HiddenKeys,1)
  rem parse "%a;%b;%c;%d;%e;%f;%g",%%bh
  shell open,%%bhprog,%%bhparam,@path(%%bhprog)
  goto evloop

:Hotkey2
  rem if @not(@file(%%ini))
  rem    Info HiddenKeys Ini file not found.
  rem    goto hotkey99
  rem end
  rem inifile open,%%ini
  rem %%ch = @iniread(HiddenKeys,2)
  rem parse "%a;%b;%c;%d;%e;%f;%g",%%ch
  shell open,%%chprog,%%chparam,@path(%%chprog)
  goto evloop

:Hotkey3
  rem if @not(@file(%%ini))
  rem    Info HiddenKeys Ini file not found.
  rem    goto hotkey99
  rem end
  rem inifile open,%%ini
  rem %%dh = @iniread(HiddenKeys,3)
  rem parse "%a;%b;%c;%d;%e;%f;%g",%%dh
  shell open,%%dhprog,%%dhparam,@path(%%dhprog)
  goto evloop

:Hotkey4
  rem if @not(@file(%%ini))
  rem    Info HiddenKeys Ini file not found.
  rem    goto hotkey99
  rem end
  rem inifile open,%%ini
  rem %%eh = @iniread(HiddenKeys,4)
  rem parse "%a;%b;%c;%d;%e;%f;%g",%%eh
  shell open,%%ehprog,%%ehparam,@path(%%ehprog)
  goto evloop

:Hotkey5
  rem if @not(@file(%%ini))
  rem    Info HiddenKeys Ini file not found.
  rem    goto hotkey99
  rem end
  rem inifile open,%%ini
  rem %%fh = @iniread(HiddenKeys,5)
  rem parse "%a;%b;%c;%d;%e;%f;%g",%%fh
  shell open,%%fhprog,%%fhparam,@path(%%fhprog)
  goto evloop

:Hotkey6
  rem if @not(@file(%%ini))
  rem    Info HiddenKeys Ini file not found.
  rem    goto hotkey99
  rem end
  rem inifile open,%%ini
  rem %%gh = @iniread(HiddenKeys,6)
  rem parse "%a;%b;%c;%d;%e;%f;%g",%%gh
  shell open,%%ghprog,%%ghparam,@path(%%ghprog)
  goto evloop

:Hotkey7
  rem if @not(@file(%%ini))
  rem    Info HiddenKeys Ini file not found.
  rem    goto hotkey99
  rem end
  rem inifile open,%%ini
  rem %%hh = @iniread(HiddenKeys,7)
  rem parse "%a;%b;%c;%d;%e;%f;%g",%%hh
  shell open,%%hhprog,%%hhparam,@path(%%hhprog)
  goto evloop

:Hotkey8
  rem if @not(@file(%%ini))
  rem    Info HiddenKeys Ini file not found.
  rem    goto hotkey99
  rem end
  rem inifile open,%%ini
  rem %%ih = @iniread(HiddenKeys,8)
  rem parse "%a;%b;%c;%d;%e;%f;%g",%%ih
  shell open,%%ihprog,%%ihparam,@path(%%ihprog)
  goto evloop

:Hotkey9
  rem if @not(@file(%%ini))
  rem    warn HiddenKeys Ini file not found.
  rem    goto hotkey99
  rem end
  rem inifile open,%%ini
  rem %%jh = @iniread(HiddenKeys,9)
  rem parse "%a;%b;%c;%d;%e;%f;%g",%%jh
  shell open,%%jhprog,%%jhparam,@path(%%jhprog)
  goto evloop

:close
:Hotkey99
  %%text = HiddenKeys is unloaded!
  gosub dialog
  dialog showmodal
  gosub remkeys
  stop 

:HotKey98
  if %%open
    dialog show
  else 
    %%open = 1
    DIALOG CREATE,HiddenKeys Setup,-1,0,452,300,ontop,Class HKSETUP,nosys
    DIALOG ADD,GROUP,GROUP1,2,2,222,270,Program
    DIALOG ADD,EDIT,p0,22,8,180,19
    DIALOG ADD,BUTTON,pb0,22,190,30,18,...
    DIALOG ADD,EDIT,p1,47,8,180,19
    DIALOG ADD,BUTTON,pb1,47,190,30,18,...
    DIALOG ADD,EDIT,p2,72,8,180,19
    DIALOG ADD,BUTTON,pb2,72,190,30,18,...
    DIALOG ADD,EDIT,p3,97,8,180,19
    DIALOG ADD,BUTTON,pb3,97,190,30,18,...
    DIALOG ADD,EDIT,p4,122,8,180,19
    DIALOG ADD,BUTTON,pb4,122,190,30,18,...
    DIALOG ADD,EDIT,p5,147,8,180,19
    DIALOG ADD,BUTTON,pb5,147,190,30,18,...
    DIALOG ADD,EDIT,p6,172,8,180,19
    DIALOG ADD,BUTTON,pb6,172,190,30,18,...
    DIALOG ADD,EDIT,p7,197,8,180,19
    DIALOG ADD,BUTTON,pb7,197,190,30,18,...
    DIALOG ADD,EDIT,p8,222,8,180,19
    DIALOG ADD,BUTTON,pb8,222,190,30,18,...
    DIALOG ADD,EDIT,p9,247,8,180,19
    DIALOG ADD,BUTTON,pb9,247,190,30,18,...
    DIALOG ADD,GROUP,GROUP2,2,294,34,270,Shift
    DIALOG ADD,CHECK,shift0,22,304,18,18
    DIALOG ADD,CHECK,shift1,47,304,18,18
    DIALOG ADD,CHECK,shift2,72,304,18,18
    DIALOG ADD,CHECK,shift3,97,304,18,18
    DIALOG ADD,CHECK,shift4,122,304,18,18
    DIALOG ADD,CHECK,shift5,147,304,18,18
    DIALOG ADD,CHECK,shift6,172,304,18,18
    DIALOG ADD,CHECK,shift7,197,304,18,18
    DIALOG ADD,CHECK,shift8,222,304,18,18
    DIALOG ADD,CHECK,shift9,247,304,18,18
    DIALOG ADD,GROUP,GROUP3,2,262,30,270,Ctrl
    DIALOG ADD,CHECK,Ctrl0,22,270,18,18
    DIALOG ADD,CHECK,Ctrl1,47,270,18,18
    DIALOG ADD,CHECK,Ctrl2,72,270,18,18
    DIALOG ADD,CHECK,Ctrl3,97,270,18,18
    DIALOG ADD,CHECK,Ctrl4,122,270,18,18
    DIALOG ADD,CHECK,Ctrl5,147,270,18,18
    DIALOG ADD,CHECK,Ctrl6,172,270,18,18
    DIALOG ADD,CHECK,Ctrl7,197,270,18,18
    DIALOG ADD,CHECK,Ctrl8,222,270,18,18
    DIALOG ADD,CHECK,Ctrl9,247,270,18,18
    DIALOG ADD,GROUP,GROUP4,2,226,32,270,Alt
    DIALOG ADD,CHECK,Alt0,22,236,18,18
    DIALOG ADD,CHECK,Alt1,47,236,18,18
    DIALOG ADD,CHECK,Alt2,72,236,18,18
    DIALOG ADD,CHECK,Alt3,97,236,18,18
    DIALOG ADD,CHECK,Alt4,122,236,18,18
    DIALOG ADD,CHECK,Alt5,147,236,18,18
    DIALOG ADD,CHECK,Alt6,172,236,18,18
    DIALOG ADD,CHECK,Alt7,197,236,18,18
    DIALOG ADD,CHECK,Alt8,222,236,18,18
    DIALOG ADD,CHECK,Alt9,247,236,18,18
    DIALOG ADD,GROUP,GROUP5,2,328,34,270,Win
    DIALOG ADD,CHECK,Win0,22,338,18,18
    DIALOG ADD,CHECK,Win1,47,338,18,18
    DIALOG ADD,CHECK,Win2,72,338,18,18
    DIALOG ADD,CHECK,Win3,97,338,18,18
    DIALOG ADD,CHECK,Win4,122,338,18,18
    DIALOG ADD,CHECK,Win5,147,338,18,18
    DIALOG ADD,CHECK,Win6,172,338,18,18
    DIALOG ADD,CHECK,Win7,197,338,18,18
    DIALOG ADD,CHECK,Win8,222,338,18,18
    DIALOG ADD,CHECK,Win9,247,338,18,18
    DIALOG ADD,GROUP,GROUP6,2,364,84,270,Key
    DIALOG ADD,COMBO,key0,20,370,72,21
    DIALOG ADD,COMBO,key1,45,370,72,21
    DIALOG ADD,COMBO,key2,70,370,72,21
    DIALOG ADD,COMBO,key3,95,370,72,21
    DIALOG ADD,COMBO,key4,120,370,72,21
    DIALOG ADD,COMBO,key5,145,370,72,21
    DIALOG ADD,COMBO,key6,170,370,72,21
    DIALOG ADD,COMBO,key7,195,370,72,21
    DIALOG ADD,COMBO,key8,220,370,72,21
    DIALOG ADD,COMBO,key9,245,370,72,21
    DIALOG ADD,BUTTON,ok,274,310,64,24,Ok
    DIALOG ADD,BUTTON,cancel,274,384,64,24,Cancel
    DIALOG SHOW
    List add,key0,Pause
    List add,key0,Cancel
    List add,key0,Back
    List add,key0,Tab
    List add,key0,Clear
    List add,key0,Return
    List add,key0,Pause
    List add,key0,Capital
    List add,key0,Escape
    List add,key0,Space
    List add,key0,Prior
    List add,key0,Next
    List add,key0,End
    List add,key0,Home
    List add,key0,Left
    List add,key0,Up
    List add,key0,Right
    List add,key0,Down
    List add,key0,Select
    List add,key0,Execute
    List add,key0,Snapshot
    List add,key0,Insert
    List add,key0,Delete
    List add,key0,Help
    List add,key0,0
    List add,key0,1
    List add,key0,2
    List add,key0,3
    List add,key0,4
    List add,key0,5
    List add,key0,6
    List add,key0,7
    List add,key0,8
    List add,key0,9
    List add,key0,A
    List add,key0,B
    List add,key0,C
    List add,key0,D
    List add,key0,E
    List add,key0,F
    List add,key0,G
    List add,key0,H
    List add,key0,I
    List add,key0,J
    List add,key0,K
    List add,key0,L
    List add,key0,M
    List add,key0,N
    List add,key0,O
    List add,key0,P
    List add,key0,Q
    List add,key0,R
    List add,key0,S
    List add,key0,T
    List add,key0,U
    List add,key0,V
    List add,key0,W
    List add,key0,X
    List add,key0,Y
    List add,key0,Z
    List add,key0,Numpad0
    List add,key0,Numpad1
    List add,key0,Numpad2
    List add,key0,Numpad3
    List add,key0,Numpad4
    List add,key0,Numpad5
    List add,key0,Numpad6
    List add,key0,Numpad7
    List add,key0,Numpad8
    List add,key0,Numpad9
    List add,key0,Multiply
    List add,key0,Add
    List add,key0,Separator
    List add,key0,Subtract
    List add,key0,Decimal
    List add,key0,Divide
    List add,key0,F1
    List add,key0,F2
    List add,key0,F3
    List add,key0,F4
    List add,key0,F5
    List add,key0,F6
    List add,key0,F7
    List add,key0,F8
    List add,key0,F9
    List add,key0,F10
    List add,key0,F11
    List add,key0,F12
    List add,key0,F13
    List add,key0,F14
    List add,key0,F15
    List add,key0,F16
    List add,key0,F17
    List add,key0,F18
    List add,key0,F19
    List add,key0,F20
    List add,key0,Numlock
    List add,key0,Scroll
    list assign,key1,key0
    list assign,key2,key0
    list assign,key3,key0
    list assign,key4,key0
    list assign,key5,key0
    list assign,key6,key0
    list assign,key7,key0
    list assign,key8,key0
    list assign,key9,key0

    if %%ah
      parse "%a;%b;%c;%d;%e;%%ahprog;%%ahparam",%%ah
      dialog set,p0,%%ahprog
      dialog set,alt0,%b
      dialog set,ctrl0,%c
      dialog set,shift0,%d
      dialog set,win0,%e
      dialog set,key0,%a
    end 
    if %%bh
      parse "%a;%b;%c;%d;%e;%%bhprog;%%bhparam",%%bh
      dialog set,p1,%%bhprog
      dialog set,alt1,%b
      dialog set,ctrl1,%c
      dialog set,shift1,%d
      dialog set,win1,%e
      dialog set,key1,%a
    end 
    if %%ch
      parse "%a;%b;%c;%d;%e;%%chprog;%%chparam",%%ch
      dialog set,p2,%%chprog
      dialog set,alt2,%b
      dialog set,ctrl2,%c
      dialog set,shift2,%d
      dialog set,win2,%e
      dialog set,key2,%a
    end 
    if %%dh
      parse "%a;%b;%c;%d;%e;%%dhprog;%%dhparam",%%dh
      dialog set,p3,%%dhprog
      dialog set,alt3,%b
      dialog set,ctrl3,%c
      dialog set,shift3,%d
      dialog set,win3,%e
      dialog set,key3,%a
    end 
    if %%eh
      parse "%a;%b;%c;%d;%e;%%ehprog;%%ehparam",%%eh
      dialog set,p4,%%ehprog
      dialog set,alt4,%b
      dialog set,ctrl4,%c
      dialog set,shift4,%d
      dialog set,win4,%e
      dialog set,key4,%a
    end 
    if %%fh
      parse "%a;%b;%c;%d;%e;%%fhprog;%%fhparam",%%fh
      dialog set,p5,%%fhprog
      dialog set,alt5,%b
      dialog set,ctrl5,%c
      dialog set,shift5,%d
      dialog set,win5,%e
      dialog set,key5,%a
    end 
    if %%gh
      parse "%a;%b;%c;%d;%e;%%ghprog;%%ghparam",%%gh
      dialog set,p6,%%ghprog
      dialog set,alt6,%b
      dialog set,ctrl6,%c
      dialog set,shift6,%d
      dialog set,win6,%e
      dialog set,key6,%a
    end 
    if %%hh
      parse "%a;%b;%c;%d;%e;%%hhprog;%%hhparam",%%hh
      dialog set,p7,%%hhprog
      dialog set,alt7,%b
      dialog set,ctrl7,%c
      dialog set,shift7,%d
      dialog set,win7,%e
      dialog set,key7,%a
    end 
    if %%ih
      parse "%a;%b;%c;%d;%e;%%ihprog;%%ihparam",%%ih
      dialog set,p8,%%ihprog
      dialog set,alt8,%b
      dialog set,ctrl8,%c
      dialog set,shift8,%d
      dialog set,win8,%e
      dialog set,key8,%a
    end 
    if %%jh
      parse "%a;%b;%c;%d;%e;%%jhprog;%%jhparam",%%jh
      dialog set,p9,%%jhprog
      dialog set,alt9,%b
      dialog set,ctrl9,%c
      dialog set,shift9,%d
      dialog set,win9,%e
      dialog set,key9,%a
    end 
  end 
  goto evloop

:look
  %%field = @substr(%%ev,3,3)
  %%file = @filedlg(*.*)
  if @ok()
    if %%file
      dialog set,p%%field,%%file
    end 
  end 
  goto evloop

:OkButton
  dialog hide
  if @not(@file(%%ini))
    %%text = HiddenKeys Ini file not found.
    gosub dialog
    dialog showmodal
    stop 
  end 
  inifile open,%%ini
  if @dlgtext(p0)
    inifile write,HiddenKeys,0,@dlgtext(key0)|@dlgtext(alt0)|@dlgtext(ctrl0)|@dlgtext(shift0)|@dlgtext(win0)|@dlgtext(p0)
  else 
    inifile write,HiddenKeys,0,
  end 
  if @dlgtext(p1)
    inifile write,HiddenKeys,1,@dlgtext(key1)|@dlgtext(alt1)|@dlgtext(ctrl1)|@dlgtext(shift1)|@dlgtext(win1)|@dlgtext(p1)
  else 
    inifile write,HiddenKeys,1,
  end 
  if @dlgtext(p2)
    inifile write,HiddenKeys,2,@dlgtext(key2)|@dlgtext(alt2)|@dlgtext(ctrl2)|@dlgtext(shift2)|@dlgtext(win2)|@dlgtext(p2)
  else 
    inifile write,HiddenKeys,2,
  end 
  if @dlgtext(p3)
    inifile write,HiddenKeys,3,@dlgtext(key3)|@dlgtext(alt3)|@dlgtext(ctrl3)|@dlgtext(shift3)|@dlgtext(win3)|@dlgtext(p3)
  else 
    inifile write,HiddenKeys,3,
  end 
  if @dlgtext(p4)
    inifile write,HiddenKeys,4,@dlgtext(key4)|@dlgtext(alt4)|@dlgtext(ctrl4)|@dlgtext(shift4)|@dlgtext(win4)|@dlgtext(p4)
  else 
    inifile write,HiddenKeys,4,
  end 
  if @dlgtext(p5)
    inifile write,HiddenKeys,5,@dlgtext(key5)|@dlgtext(alt5)|@dlgtext(ctrl5)|@dlgtext(shift5)|@dlgtext(win5)|@dlgtext(p5)
  else 
    inifile write,HiddenKeys,5,
  end 
  if @dlgtext(p6)
    inifile write,HiddenKeys,6,@dlgtext(key6)|@dlgtext(alt6)|@dlgtext(ctrl6)|@dlgtext(shift6)|@dlgtext(win6)|@dlgtext(p6)
  else 
    inifile write,HiddenKeys,6,
  end 
  if @dlgtext(p7)
    inifile write,HiddenKeys,7,@dlgtext(key7)|@dlgtext(alt7)|@dlgtext(ctrl7)|@dlgtext(shift7)|@dlgtext(win7)|@dlgtext(p7)
  else 
    inifile write,HiddenKeys,7,
  end 
  if @dlgtext(p8)
    inifile write,HiddenKeys,8,@dlgtext(key8)|@dlgtext(alt8)|@dlgtext(ctrl8)|@dlgtext(shift8)|@dlgtext(win8)|@dlgtext(p8)
  else 
    inifile write,HiddenKeys,8,
  end 
  if @dlgtext(p9)
    inifile write,HiddenKeys,9,@dlgtext(key9)|@dlgtext(alt9)|@dlgtext(ctrl9)|@dlgtext(shift9)|@dlgtext(win9)|@dlgtext(p9)
  else 
    inifile write,HiddenKeys,9,
  end 
  gosub remkeys
  run %0
  stop 

:CancelButton
  dialog hide
  goto evloop

:hotkey96
  Title Defined HiddenKeys
  if %%ah
    parse "%a;%b;%c;%d;%e;%%ahprog;%%ahparam",%%ah
    %%info = Key = %a Prog = %%ahprog","%%ahparam
  end 
  if %%bh
    parse "%a;%b;%c;%d;%e;%%bhprog;%%bhparam",%%bh
    %%info = %%info@cr()Key = %a Prog = %%bhprog","%%bhparam
  end 
  if %%ch
    parse "%a;%b;%c;%d;%e;%%chprog;%%chparam",%%ch
    %%info = %%info@cr()Key = %a Prog = %%chprog","%%chparam
  end 
  if %%dh
    parse "%a;%b;%c;%d;%e;%%dhprog;%%dhparam",%%dh
    %%info = %%info@cr()Key = %a Prog = %%dhprog","%%dhparam
  end 
  if %%eh
    parse "%a;%b;%c;%d;%e;%%ehprog;%%ehparam",%%eh
    %%info = %%info@cr()Key = %a Prog = %%ehprog","%%ehparam
  end 
  if %%fh
    parse "%a;%b;%c;%d;%e;%%fhprog;%%fhparam",%%fh
    %%info = %%info@cr()Key = %a Prog = %%fhprog","%%fhparam
  end 
  if %%gh
    parse "%a;%b;%c;%d;%e;%%ghprog;%%ghparam",%%gh
    %%info = %%info@cr()Key = %a Prog = %%ghprog","%%ghparam
  end 
  if %%hh
    parse "%a;%b;%c;%d;%e;%%hhprog;%%hhparam",%%hh
    %%info = %%info@cr()Key = %a Prog = %%hhprog","%%hhparam
  end 
  if %%ih
    parse "%a;%b;%c;%d;%e;%%ihprog;%%ihparam",%%ih
    %%info = %%info@cr()Key = %a Prog = %%ihprog","%%ihparam
  end 
  if %%jh
    parse "%a;%b;%c;%d;%e;%%jhprog;%%jhparam",%%jh
    %%info = %%info@cr()Key = %a Prog = %%jhprog","%%jhparam
  end 
  info %%info
  Title HiddenKeys
  goto evloop

:remkeys
  hotkey delete,99
  hotkey delete,98
  hotkey delete,97
  hotkey delete,96
  if %%ah
    hotkey delete,0
  end 
  if %%bh
    hotkey delete,1
  end 
  if %%ch
    hotkey delete,2
  end 
  if %%dh
    hotkey delete,3
  end 
  if %%eh
    hotkey delete,4
  end 
  if %%fh
    hotkey delete,5
  end 
  if %%gh
    hotkey delete,6
  end 
  if %%hh
    hotkey delete,7
  end 
  if %%ih
    hotkey delete,8
  end 
  if %%jh
    hotkey delete,9
  end 
  exit 

:dialog
  DIALOG CREATE,HiddenKeys,-1,0,260,70,ontop,nosys
  DIALOG ADD,BUTTON,BUTTON1,42,100,64,24,Ok
  DIALOG ADD,TEXT,TEXT1,8,10,,,%%text
  exit