Inno Setup:如何通过鼠标右键粘贴序列号并粘贴

procedure InitializeWizard;
begin
  RegisterHotKey(0, 1, MOD_CONTROL or MOD_SHIFT, Ord('V'));
end;

procedure HotKeyHandler(var Msg: TMessage);
var
  ClipboardText: string;
begin
  if Msg.WParam = 1 then
  begin
    if Clipboard.HasFormat(CF_TEXT) then
    begin
      ClipboardText := Clipboard.AsText;
      // 在此处执行粘贴操作，将ClipboardText粘贴到指定位置
    end;
  end;
end;

const
  WH_KEYBOARD_LL = 13;

type
  PKBDLLHookStruct = ^TKBDLLHookStruct;
  TKBDLLHookStruct = packed record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: DWORD;
  end;

var
  HookHandle: HHOOK;

function LowLevelKeyboardProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  HookStruct: PKBDLLHookStruct;
begin
  if nCode = HC_ACTION then
  begin
    HookStruct := PKBDLLHookStruct(lParam);
    if (HookStruct^.vkCode = Ord('V')) and (GetAsyncKeyState(VK_CONTROL) < 0) and (GetAsyncKeyState(VK_SHIFT) < 0) then
    begin
      HotKeyHandler(TMessage.Create);
    end;
  end;
  Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
end;

procedure InitializeWizard;
begin
  HookHandle := SetWindowsHookEx(WH_KEYBOARD_LL, @LowLevelKeyboardProc, HInstance, 0);
  RegisterHotKey(0, 1, MOD_CONTROL or MOD_SHIFT, Ord('V'));
end;

procedure DeinitializeSetup;
begin
  UnhookWindowsHookEx(HookHandle);
end;