InnoSetup - 有沒有辦法爲Internet Explorer手動創建Cookie？

Question

基本上IE爲網站www.stackoverflow.com記住使用JavaScript cookies，但是無論如何都是手動在InnoSetup中代表stackoverflow.com創建一個相同的Cookie？

的Javascript的cookie：

function setCookie(cname,cvalue,exdays) { 
    var d = new Date(); 
    d.setTime(d.getTime()+(exdays*24*60*60*1000)); 
    var expires = "expires="+d.toGMTString(); 
    document.cookie = cname + "=" + cvalue + "; " + expires; 
} 
function getCookie(cname) { 
    var name = cname + "="; 
    var ca = document.cookie.split(';'); 
    for(var i=0; i<ca.length; i++) { 
    var c = ca[i].trim(); 
    if (c.indexOf(name)==0) return c.substring(name.length,c.length); 
    } 
    return ""; 
} 

function checkCookie(user) { 
    var user=getCookie("username"); 
    if (user!="") { 
    alert("Welcome again " + user); 
    } else { 
    user='bandwidth - set to off for example'; 
    setCookie("username",user,30); 
    } 
} 

注：因爲沒有辦法，如果安裝或沒有我的插件從IE檢測。我想到了，我必須要處理cookies。但不是IE，我的插件必須在第一次安裝時創建該cookie。

編輯：參考

http://msdn.microsoft.com/en-us/library/windows/desktop/aa385107%28v=vs.85%29.aspx

Answer 1

要創建可以使用InternetSetCookie函數指定的URL相關的cookie。爲了檢索指定URL的cookie，您可以使用InternetGetCookie函數。下面是他們的翻譯，其中展示瞭如何創建和讀取cookie（真正的代碼實現討論錯誤消息，或者我會保留的包裝函數;以此代碼爲例，展示如何使用這些API函數）：

[Setup] 
AppName=My Program 
AppVersion=1.5 
DefaultDirName={pf}\My Program 

[Code] 
#ifdef UNICODE 
    #define AW "W" 
#else 
    #define AW "A" 
#endif 

const 
    ERROR_INSUFFICIENT_BUFFER = 122; 
    ERROR_NO_MORE_ITEMS = 259; 

function InternetSetCookie(lpszUrl: string; lpszCookieName: string; 
    lpszCookieData: string): BOOL; 
    external 'InternetSetCookie{#AW}@wininet.dll stdcall'; 
function InternetGetCookie(lpszUrl: string; lpszCookieName: string; 
    lpszCookieData: string; var lpdwSize: DWORD): BOOL; 
    external 'InternetGetCookie{#AW}@wininet.dll stdcall'; 

function TryCreateCookie(const URL, Name, Data: string): Boolean; 
begin 
    // try to create a specified cookie 
    Result := InternetSetCookie(URL, Name, Data); 
    // if the function call failed, we can optionally report the reason why 
    if not Result then 
    MsgBox('Cookie creation failed!' + #13#10 + 
     SysErrorMessage(DLLGetLastError), mbError, MB_OK); 
end; 

function TryRetrieveCookie(const URL, Name: string; out Data: string): Boolean; 
var 
    S: string; 
    BufferSize: DWORD; 
begin 
    // initialize function result 
    Result := False; 
    // initialize buffer size to 0 to query needed buffer size 
    BufferSize := 0; 
    // first call is to determine whether there's a requested cookie, or if so, 
    // to retrieve the needed buffer size 
    if not InternetGetCookie(URL, Name, #0, BufferSize) then 
    begin 
    // the function failed as expected, so let's inspect the reason 
    case DLLGetLastError of 
     // if the reason for failure was the insufficient buffer, it means that 
     // there's a cookie matching the request and that we have just received 
     // the required buffer size 
     ERROR_INSUFFICIENT_BUFFER: 
     begin 
     // initialize buffer size by the previously returned size 
     SetLength(S, BufferSize div SizeOf(Char)); 
     BufferSize := Length(S); 
     // and call the function again, now with the initialized buffer; this 
     // time it should succeed; if it is so, then... 
     if InternetGetCookie(URL, Name, S, BufferSize) then 
     begin 
      // everything went fine, so let's return success state and assign a 
      // retrieved value to the output parameter 
      Result := True; 
      Data := S; 
     end 
     else 
      // the second function call failed; that should not happen... 
      MsgBox('Cookie retrieval failed!' + #13#10 + 
      SysErrorMessage(DLLGetLastError), mbError, MB_OK); 
     end; 
     // this code is returned when there's no cookie found 
     ERROR_NO_MORE_ITEMS: 
     begin 
     // no cookie matching the criteria was found; the return value of this 
     // function has already been initialized to False but it's upon you to 
     // react on this fact somehow, if needed 
     end; 
    else 
     // the first function call failed for unexpected reason 
     MsgBox('Cookie search failed!' + #13#10 + 
     SysErrorMessage(DLLGetLastError), mbError, MB_OK); 
    end; 
    end;  
end; 

procedure InitializeWizard; 
var 
    CookieData: string; 
begin 
    // try to create cookie 
    TryCreateCookie('http://example.com', 'MyCookie', 
    'TestData=1234; expires=Wed,31-Dec-2014 23:59:59 GMT'); 
    // try to retrieve cookie 
    if TryRetrieveCookie('http://example.com', 'MyCookie', CookieData) then 
    MsgBox(CookieData, mbInformation, MB_OK); 
end;