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

class="u9">, nil);

        hfont := createfont(12, 0, 0, 0, 0, 0, 0, 0,
          default_charset, 0, 0, 0, 0, '宋体');

        if hfont <> 0 then
        begin
          sendmessage(hedit, wm_setfont, hfont, 0);
          sendmessage(hcheckbox, wm_setfont, hfont, 0);
        end;

      end;

    wm_hotkey:
      begin
        openclipboard(hwnd);
        hdata := getclipboarddata(cf_text);

        if hdata <> 0 then
        begin
          keystr := strpas(pchar(globallock(hdata)));
          position := pos('-', keystr);

          while position > 0 do
          begin
          
            if sendmessage(hcheckbox, bm_getcheck, 0, 0) <> 0 then
              keystr[position