DwinsHs for Inno Setup：如何添加请求的 apikey HTTP 头？

要在DwinsHs for Inno Setup中添加请求的apikey HTTP头，您可以使用Inno Setup的WinHttpRequest对象来发送HTTP请求并设置请求头。以下是一个示例代码，演示如何添加apikey请求头：

[Code]
// 导入WinHttpRequest库
#ifdef UNICODE
  #define AW "W"
#else
  #define AW "A"
#endif
const
  DLL_WINHTTP = 'winhttp.dll';
function WinHttpOpen(pwszUserAgent: WideString; dwAccessType, pwszProxyName,
  pwszProxyBypass: WideString; dwFlags: DWORD): THandle;
  external DLL_WINHTTP name 'WinHttpOpen';
function WinHttpConnect(hSession: THandle; pswzServerName: WideString;
  nServerPort: INTERNET_PORT; dwReserved: DWORD): THandle;
  external DLL_WINHTTP name 'WinHttpConnect';
function WinHttpOpenRequest(hConnect: THandle; pwszVerb, pwszObjectName,
  pwszVersion, pwszReferrer: WideString; ppwszAcceptTypes: Pointer;
  dwFlags: DWORD): THandle;
  external DLL_WINHTTP name 'WinHttpOpenRequest';
function WinHttpSendRequest(hRequest: THandle; pwszHeaders: WideString;
  dwHeadersLength: DWORD; lpOptional: Pointer; dwOptionalLength,
  dwTotalLength, dwContext: DWORD_PTR): BOOL;
  external DLL_WINHTTP name 'WinHttpSendRequest';
function WinHttpReceiveResponse(hRequest: THandle;
  lpReserved: Pointer): BOOL;
  external DLL_WINHTTP name 'WinHttpReceiveResponse';
function WinHttpQueryHeaders(hRequest: THandle; dwInfoLevel: DWORD;
  pwszName: WideString; lpBuffer: Pointer; var lpdwBufferLength,
  lpdwIndex: DWORD): BOOL;
  external DLL_WINHTTP name 'WinHttpQueryHeaders';
function WinHttpReadData(hRequest: THandle; lpBuffer: Pointer;
  dwNumberOfBytesToRead: DWORD; var lpdwNumberOfBytesRead: DWORD): BOOL;
  external DLL_WINHTTP name 'WinHttpReadData';
function WinHttpCloseHandle(hObject: THandle): BOOL;
  external DLL_WINHTTP name 'WinHttpCloseHandle';

// 发送HTTP请求
function SendHttpRequest(const AUrl, AHeaders: string; out AResponse: string): Boolean;
var
  Handle, Connect, Request: THandle;
  Buffer: array[0..4095] of Byte;
  BytesRead, ContentLength: DWORD;
begin
  Result := False;

  // 初始化WinHttp
  Handle := WinHttpOpen('Inno Setup', 0, '', '', 0);
  if Handle = 0 then
    Exit;

  try
    // 连接服务器
    Connect := WinHttpConnect(Handle, AUrl, INTERNET_DEFAULT_HTTP_PORT, 0);
    if Connect = 0 then
      Exit;

    try
      // 创建请求
      Request := WinHttpOpenRequest(Connect, 'GET', AUrl, 'HTTP/1.1', '', nil, 0);
      if Request = 0 then
        Exit;

      try
        // 设置请求头
        if not WinHttpSendRequest(Request, AHeaders, Length(AHeaders), nil, 0, 0, 0) then
          Exit;

        // 等待响应
        if not WinHttpReceiveResponse(Request, nil) then
          Exit;

        // 读取响应内容
        ContentLength := 0;
        if not WinHttpQueryHeaders(Request, WINHTTP_QUERY_CONTENT_LENGTH or WINHTTP_QUERY_FLAG_NUMBER,
          nil, @ContentLength, nil, nil) then
          Exit;

        AResponse := '';
        while ContentLength > 0 do
        begin
          BytesRead := 0;
          if not WinHttpReadData(Request, @Buffer, SizeOf(Buffer), BytesRead) then
            Exit;

          if BytesRead = 0 then
            Break;

          AResponse := AResponse + StrPas(PAnsiChar(@Buffer));
          Dec(ContentLength, BytesRead);
        end;

        Result := True;
      finally
        WinHttpCloseHandle(Request);
      end;
    finally
      WinHttpCloseHandle(Connect);
    end;
  finally
    WinHttpCloseHandle(Handle);
  end;
end;

// 示例使用
procedure InitializeWizard();
var
  Url: string;
  Headers: string;
  Response: string;
begin
  Url := 'https://api.example.com/endpoint';
  Headers := 'Content-Type: application/json'#13#10 +
             'apikey: YOUR_API_KEY';

  if SendHttpRequest(Url