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

">] := char(vk_tab)
            else
              delete(keystr, position, sizeof(keystr[position]));

            position := pos('-', keystr);
          end;

          mysendkeys(pchar(keystr));
          globalunlock(hdata);
        end;
        closeclipboard;

      end;

    wm_destroy:
      begin
        if hfont <> 0 then
          deleteobject(hfont);

        hotkey(hwnd, false);
        postquitmessage(0);
      end;

  else
    result := defwindowproc(hwnd, umsg, wparam, lparam);
  end;


end;


begin
  hmutex := createmutex(nil, true, str_product);

  if getlasterror = error_already_exists then
  begin
    htmpwnd := findwindow(str_internalname, nil);
    if htmpwnd <> 0 then
    begin
      if isiconic(htmpwnd) then
        showwindow