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

n: byte;
  rc: trect;

begin
  result := 0;
  case umsg of
    wm_ctlcolorstatic:
      begin
        if lparam = hedit then
        begin
          setbkcolor(wparam, $ffffff);
          result := getstockobject(white_brush);
        end;
      end;

    wm_create:
      begin
        hotkey(hwnd, true);
        getclientrect(hwnd, rc);
        hedit := createwindowex(ws_ex_clientedge, 'edit', str_tips,
          ws_border or ws_child or ws_visible or es_readonly or es_multiline or
          ws_vscroll,
          0, 30, rc.right, rc.bottom - 30, hwnd, 0, hinst, nil);

        hcheckbox := createwindowex(0, 'button', str_checkbox, ws_visible or
          ws_child or bs_autocheckbox,
          10, 10, 300, 20, hwnd, id_checkbox, hinst