2016-11-07 33 views

回答

1

要打開一個Pascal腳本的web瀏覽器中使用這樣的功能:

procedure OpenBrowser(Url: string); 
var 
    ErrorCode: Integer; 
begin 
    ShellExec('open', Url, '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode); 
end; 

要觸發它,當安裝程序關閉後,您可以使用CurStepChanged(ssDone) event

procedure CurStepChanged(CurStep: TSetupStep); 
begin 
    if CurStep = ssDone then 
    begin 
    OpenBrowser('https://www.example.com/'); 
    end; 
end; 

同樣對於卸載程序,請使用CurUninstallStepChanged(usDone) event

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); 
begin 
    if CurUninstallStep = usDone then 
    begin 
    OpenBrowser('https://www.example.com/'); 
    end; 
end; 
+0

非常感謝! – DDoS