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

scanshifton) then sendkeyup(vk_shift);
      if bitset(scancode, vkkeyscanctrlon) then sendkeyup(vk_control);
      if bitset(scancode, vkkeyscanalton) then sendkeyup(vk_menu);
      sleep(15); 
    end;
  end;

end;

procedure hotkey(hwnd: integer; state: boolean);
begin

  if state then
  begin
    atom := globalfindatom(str_hotkey);

    if atom = 0 then atom := globaladdatom(str_hotkey);

    registerhotkey(hwnd, atom, 0, vk_f10);
  end
  else begin
    if atom <> 0 then
    begin
      unregisterhotkey(hwnd, atom);
      globaldeleteatom(atom);
      atom := 0;
    end;
  end;
end;

function wndproc(hwnd: integer; umsg: cardinal;
  wparam, lparam: integer): lresult; stdcall;
var
  hdata: integer;
  keystr: string;
  positio