Inno Steup 程序保质期

Share

1. [Setup]
   
2. AppName=DateTimeStop
   
3. AppVerName=DateTimeStop
   
4. Uninstallable=false
   
5. UpdateUninstallLogAppName=false
   
6. DisableDirPage=true
   
7. DisableProgramGroupPage=true
   
8. DefaultDirName={pf}\DateTimeStop
   
9. DisableStartupPrompt=true
   
10. 
    
11. [_ISTool]
    
12. EnableISX=true
    
13. 
    
14. 
    
15. [Code]|
    
16. type
    
17.   TSystemTime = record
    
18.     wYear : Word;
    
19.     wMonth : Word;
    
20.     wDayOfWeek : Word;
    
21.     wDay : Word;
    
22.     wHour : Word;
    
23.     wMinute : Word;
    
24.     wSecond : Word;
    
25.     wMilliseconds : Word;
    
26.   end;
    
27. 
    
28. 
    
29. procedure GetLocalTime(var lpSystemTime: TSystemTime); external
    
30. 'GetLocalTime@kernel32.dll';
    
31. 
    
32. //
    
33. // compare dt1 and dt2, return false id dt1 is lower than dt2
    
34. // thanks to Bruno Gellweiler that provide a working function :)
    
35. 
    
36. 
    
37. function IsOKDateTime( dt1, dt2: TSystemTime ) : Boolean;
    
38. begin
    
39.     Result := true;
    
40.     if dt2.wYear < dt1.wYear then
    
41.         result := false
    
42.     else if dt2.wYear = dt1.wYear then
    
43.         if dt2.wMonth < dt1.wMonth then
    
44.             result := false
    
45.         else if dt2.wMonth = dt1.wMonth then
    
46.             if dt2.wDay < dt1.wDay then
    
47.                 result := false ;
    
48. end;
    
49. 
    
50. function InitializeSetup: Boolean;
    
51. var
    
52.   lt, datelimit: TSystemTime;
    
53.   s, crlf: string;
    
54. 
    
55. begin
    
56. 
    
57.   crlf := #13#10;
    
58. 
    
59.   // 超过2003.05.01之后，该程序禁止安装
    
60.   datelimit.wYear := 2003;
    
61.   datelimit.wMonth := 5;
    
62.   datelimit.wDay := 1;
    
63. 
    
64.   GetLocalTime(lt);
    
65. 
    
66.   Result := IsOKDateTime( lt, datelimit );
    
67. 
    
68.   s := '该程序保质期已过，不允许安装';
    
69. 
    
70.   if not Result then
    
71.    // just to show datetime infos
    
72.    MsgBox( s , mbError, MB_OK );
    
73. 
    
74. end;

复制代码