让inno启动时必须联网才能启动安装程序

Share

1. 
   
2. function InternetCheckConnection (lpszUrl: string; dwFlags: integer; dwReserved: integer): boolean;
   
3.   external 'InternetCheckConnectionW@wininet.dll stdcall';
   
4. 
   
5. function InitializeSetup (): Boolean;
   
6. begin
   
7. if InternetCheckConnection('http://www.hanzify.org/', 1, 0) then
   
8.   result:= true
   
9. else
   
10.   begin
    
11.   result:= false;
    
12.     MsgBox('你还没有与互联网连接，安装程序无法继续！', mbInformation, MB_OK);
    
13.   end;
    
14. end;
    
15. 
    
16. 
    
17. ANSI 和 Unicode 版都通用的代码是：
    
18. 
    
19. #ifdef UNICODE  
    
20.   #define A "W"
    
21. #else  
    
22.   #define A "A"
    
23. #endif
    
24. 
    
25. function InternetCheckConnection (lpszUrl: string; dwFlags: integer; dwReserved: integer): boolean;
    
26.   external 'InternetCheckConnection{#A}@wininet.dll stdcall';
    
27. 
    
28. function InitializeSetup (): Boolean;
    
29. begin
    
30. if InternetCheckConnection('http://www.hanzify.org/', 1, 0) then
    
31.   result:= true
    
32. else
    
33.   begin
    
34.   result:= false;
    
35.     MsgBox('你还没有与互联网连接，安装程序无法继续！', mbInformation, MB_OK);
    
36.   end;
    
37. end;
    

复制代码