“序列号输入助手”源代码[2]

sp;100;
  str_internalname = 'sninputapplication';
  str_checkbox = '将“-”（杠号）转为跳格键（tab）。';
  str_hotkey = 'myhotkey_orochihuang_2005.6.18';
  str_product = '序列号输入助手 v0.1';
  str_tips = (#13#10 +
    '使用说明：' + #13#10 +
    '1、复制序列号。'#13#10 +
    '2、将光标定位到序列号输入处。'#13#10 +
    '3、按f10键。'#13#10 + #13#10 +
    '“将‘-’（杠号）转为跳格键（tab）”功能说明：' + #13#10 +
    '　　因为有一些程序当输完一段序列号后，不会自动跳往下一格继续输入，导致把全部注册码输入在一个序列号段里，' +
    '遇到这个种情况的话勾选它就对啦！' + #13#10 + #13#10 +
    '作者：黄展宏' + #13#10 +
    'email：orochi_huang@126.com');


procedure mysendkeys(keys: pchar);
  procedure sendkeydown(vkey: byte);
  var scancode: byte;
  begin
    scancode := lo(mapvirtualkey(vkey, 0));
    keybd_event(vkey, scancode, 0, 0);
  end;

  procedure sendkeyup(vkey: byte);
  var scancode: byte;
  begin
    scancode := lo(mapvirtualkey(vkey, 0));
    keybd_event(vkey, scancode, keyeventf_keyup, 0);
  end;

  function bitset