[Code]
// 检查 .NET Framework 4.8
function IsNetFramework48Installed(): Boolean;
var
    RegKey: String;
    Release: Cardinal;
begin
    Result := False;
    RegKey := 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full';
    
    if RegKeyExists(HKLM, RegKey) then
    begin
        if RegQueryDWordValue(HKLM, RegKey, 'Release', Release) then
        begin
            // Release >= 528040 表示已安装 .NET Framework 4.8
            Result := Release >= 528040;
        end;
    end;
end;

// 检查 WebView2 Runtime
function IsWebView2Installed(): Boolean;
var
    RegKey: String;
begin
    Result := False;
    // 检查 32 位注册表
    RegKey := 'SOFTWARE\WOW6432Node\Microsoft\EdgeUpdate\Clients\{F3017226-FE2A-4295-8BDF-00C3A9A7E4C5}';
    if RegKeyExists(HKLM, RegKey) then
    begin
        Result := True;
        Exit;
    end;
    
    // 检查 64 位注册表
    RegKey := 'SOFTWARE\Microsoft\EdgeUpdate\Clients\{F3017226-FE2A-4295-8BDF-00C3A9A7E4C5}';
    if RegKeyExists(HKLM, RegKey) then
    begin
        Result := True;
    end;
end;

// 检查 VC++ Runtime
function IsVCRedistInstalled(): Boolean;
var
    RegKey: String;
begin
    Result := False;
    // 检查最新版本的 VC++ Runtime (14.0)
    RegKey := 'SOFTWARE\Microsoft\VisualStudio\14.0\VC\Runtimes\x64';
    if RegKeyExists(HKLM, RegKey) then
    begin
        Result := True;
        Exit;
    end;
    
    // 32位系统检查
    RegKey := 'SOFTWARE\Microsoft\VisualStudio\14.0\VC\Runtimes\x86';
    if RegKeyExists(HKLM, RegKey) then
    begin
        Result := True;
    end;
end;

// 在安装前检查所有依赖
function InitializeSetup(): Boolean;
var
    ErrorMsg: String;
    MissingDependencies: Boolean;
begin
    Result := True;
    MissingDependencies := False;
    ErrorMsg := '请安装以下缺失的组件：' + #13#10#13#10;
    
    if not IsNetFramework48Installed() then
    begin
        ErrorMsg := ErrorMsg + '- .NET Framework 4.8' + #13#10;
        MissingDependencies := True;
    end;
    
    if not IsWebView2Installed() then
    begin
        ErrorMsg := ErrorMsg + '- WebView2 Runtime' + #13#10;
        MissingDependencies := True;
    end;
    
    if not IsVCRedistInstalled() then
    begin
        ErrorMsg := ErrorMsg + '- Visual C++ Runtime' + #13#10;
        MissingDependencies := True;
    end;
    
    if MissingDependencies then
    begin
        ErrorMsg := ErrorMsg + #13#10 + '是否继续安装？';
        if MsgBox(ErrorMsg, mbConfirmation, MB_YESNO) = IDNO then
        begin
            Result := False;
        end;
    end;
end;

之前C#中集成浏览器用的是CefSharp，但是后来发现生成后的包太大了，搜了下发现微软Edge WebView2也完全满足需求，遂准备替换，替换过程也很顺利，Win10下直接通过Nuget安装依赖就可以了，结果Win7下无法运行，记录下解决过程。

版本问题

Edge在109大版本号后就不支持Win7了，所以对应的WebView2的Runtime也停留在了109这个版本，如果在win7下使用，则edge及webview2 runtime版本不能超过109，并且两者版本号要一致。

旧版本下载

首先去微软官网去找的，结果109版本安装不上，提示未知安装错误后就什么都没了，没办法去网络上找了一圈，还真找到了，文章地址：https://www.0z.gs/memo/2351.html，通过文章里面的地址下载即可。

安装

自解压文件解压后，首先运行exe文件，安装edge，安装完成后，运行bat文件安装WebView2 Runtime，安装完成后，打开控制面板检查是否存在edge和runtime两个程序即可。

搞定。

今天在一个全新的Win7下安装Net Framework 4.8的时候出现了一个问题，

错误提示：

已处理证书链,但是在不受信任提供程序信任的根证书中终止

搜了些资料发现需要安装一个补丁，记录一下。

安装Windows6.1-KB2813430补丁

32位系统补丁下载地址：
https://www.microsoft.com/zh-CN/download/details.aspx?id=39110

64位系统补丁下载地址：
https://www.microsoft.com/zh-CN/download/details.aspx?id=39115

据说从4.6版本到4.8都可以，没具体尝试，4.8下可以解决。

[DllImport("wininet.dll", CharSet = CharSet.Auto, SetLastError = true)]
static extern bool InternetGetCookieEx(string pchURL, string pchCookieName, StringBuilder pchCookieData, ref int pcchCookieData, int dwFlags, object lpReserved);

private static string GetCookieString(string url)
{
    int datasize = 256;
    StringBuilder cookieData = new StringBuilder(datasize);
    if (!InternetGetCookieEx(url, null, cookieData, ref datasize, 0x00002000, null))
    {
        if (datasize < 0)
            return null;
        cookieData = new StringBuilder(datasize);
        if (!InternetGetCookieEx(url, null, cookieData, ref datasize, 0x00002000, null))
            return null;
    }
    return cookieData.ToString();
}