Delphi Chromium Embedded

ceflib;


const
DefaultCookiesDir ='Cookies /';

实现
{$ R * .dfm}

procedure TForm1.Button2Click（Sender：TObject）;
var
CookieManager：ICefCookieManager;
CookiePath：String;
begin
CookiePath：= ExtractFilePath（Application.ExeName）+ DefaultCookiesDir +'User1';
CookieManager：= TCefCookieManagerRef.GetGlobalManager;
CookieManager.SetStoragePath（CookiesPath）;
Chromium1.Load（'www.vk.com'）;
end;