Diff of /trunk/installer/teraterm.iss

OSDN > 찾기 소프트웨어 > Tera Term

 Browse Subversion Repository



/[ttssh2]/trunk/installer/teraterm.iss




Diff of /trunk/installer/teraterm.iss



 Parent Directory

|  Revision Log



|  Patch














revision 4352 by maya,
Mon Feb 28 09:10:09 2011 UTC




revision 4354 by maya,
Wed Mar  2 15:13:21 2011 UTC






#

Line 1 



Line 1 













1
 #define AppName "Tera Term"
 #define AppName "Tera Term"















2


 #define AppVer "4.69-RC1"


 #define AppVer "4.69-RC3"















3
 ;#define snapshot GetDateTimeString('yyyymmdd_hhnnss', '', '');
 ;#define snapshot GetDateTimeString('yyyymmdd_hhnnss', '', '');

















4
 
 

















5
 [Setup]
 [Setup]











#

Line 16 
 DefaultGroupName={#AppName}


Line 16 
 DefaultGroupName={#AppName}












16
 ShowLanguageDialog=yes
 ShowLanguageDialog=yes

















17
 AllowNoIcons=true
 AllowNoIcons=true

















18
 UninstallDisplayIcon={app}\ttermpro.exe
 UninstallDisplayIcon={app}\ttermpro.exe















19


 AppMutex=TeraTermProAppMutex, TeraTermProMacroAppMutex, TeraTermProKeycodeAppMutex, TeraTermMenuAppMutex, CygTermAppMutex, Global\TeraTermProAppMutex, Global\TeraTermProMacroAppMutex, Global\TeraTermProKeycodeAppMutex, Global\TeraTermMenuAppMutex, Global\CygTermAppMutex


 ;AppMutex=TeraTermProAppMutex, TeraTermProMacroAppMutex, TeraTermProKeycodeAppMutex, TeraTermMenuAppMutex, CygTermAppMutex, Global\TeraTermProAppMutex, Global\TeraTermProMacroAppMutex, Global\TeraTermProKeycodeAppMutex, Global\TeraTermMenuAppMutex, Global\CygTermAppMutex















20
 #ifndef snapshot
 #ifndef snapshot

















21
 OutputBaseFilename=teraterm-{#AppVer}
 OutputBaseFilename=teraterm-{#AppVer}

















22
 #else
 #else











#

Line 282 
 en.comp_TTXAlwaysOnTop=Always On Top can


Line 282 
 en.comp_TTXAlwaysOnTop=Always On Top can












282
 ja.comp_TTXAlwaysOnTop=常に最前面に表示できるようにする
 ja.comp_TTXAlwaysOnTop=常に最前面に表示できるようにする

















283
 en.comp_TTXRecurringCommand=Recurring Command can be used
 en.comp_TTXRecurringCommand=Recurring Command can be used

















284
 ja.comp_TTXRecurringCommand=定期的に文字列を送信する
 ja.comp_TTXRecurringCommand=定期的に文字列を送信する












285
 
 en.msg_AppRunningError=Setup has detected that Tera Term is currently running.%n%nPlease close all instances of it now, then click Next to continue.







286
 
 ja.msg_AppRunningError=セットアップは実行中の Tera Term を検出しました。%n%n開いているアプリケーションをすべて閉じてから「次へ」をクリックしてください。












287
 
 

















288
 [Code]
 [Code]

















289
 const
 const











#

Line 357 
 begin


Line 359 
 begin












359
 end;
 end;

















360
 }
 }

















361
 
 












362
 
 function CheckAppUsing(Filename:String) : integer;







363
 
 var







364
 
   TmpFileName : String;







365
 
 begin







366
 
   if FileExists(FileName) then







367
 
     begin







368
 
       TmpFileName := FileName + '.' + GetDateTimeString('yyyymmddhhnnss', #0, #0); // Tmp file ends with timestamp







369
 
       if FileCopy(FileName, TmpFileName, True) then







370
 
         if DeleteFile(FileName) then







371
 
           if RenameFile(TmpFileName, FileName) then







372
 
             Result := 0







373
 
           else







374
 
             Result := -1 // permission?







375
 
         else







376
 
           begin







377
 
             Result := 1; // failed to delete







378
 
             DeleteFile(TmpFileName);







379
 
           end







380
 
       else







381
 
         Result := -1 // permission?







382
 
     end







383
 
   else







384
 
     Result := 0;







385
 
 end;







386
 
 







387
 
 function CheckAppsUsing() : integer;







388
 
 var







389
 
   FileDir  : String;







390
 
   FileName : array[0..6] of String;







391
 
   i        : integer;







392
 
   flag     : boolean;







393
 
 begin







394
 
   FileDir := ExpandConstant('{app}');







395
 
   FileName[0] := FileDir + '\ttermpro.exe';







396
 
   FileName[1] := FileDir + '\ttpmacro.exe';







397
 
   FileName[2] := FileDir + '\keycode.exe';







398
 
   FileName[3] := FileDir + '\ttpmenu.exe';







399
 
   FileName[4] := FileDir + '\cygterm.exe';







400
 
   FileName[5] := FileDir + '\Collector.exe';







401
 
   FileName[6] := FileDir + '\Collector_org.exe';







402
 
   







403
 
   flag := True;







404
 
   for i := 0 to 6 do







405
 
   begin







406
 
     if flag = True then







407
 
     begin







408
 
       case CheckAppUsing(FileName[i]) of







409
 
         1:







410
 
           // failed to delete. in use.







411
 
           begin







412
 
             Result := 1;







413
 
             flag := False;







414
 
           end;







415
 
         -1:







416
 
           // failed to copy/rename







417
 
           begin







418
 
             Result := -1;







419
 
             flag := False;







420
 
           end;







421
 
         else







422
 
           // OK







423
 
       end;







424
 
     end;







425
 
   end;







426
 
 







427
 
 end;







428
 
 












429
 function GetDefaultIniFilename : String;
 function GetDefaultIniFilename : String;

















430
 begin
 begin

















431
   Result := ExpandConstant('{app}') + '\TERATERM.INI';
   Result := ExpandConstant('{app}') + '\TERATERM.INI';











#

Line 537 
 var


Line 606 
 var












606
   ResultCode: Integer;
   ResultCode: Integer;

















607
   iniFile : String;
   iniFile : String;

















608
 begin
 begin












609
 
   Result := True;







610
 
 












611
   case CurPageID of
   case CurPageID of

















612
 
 

















613
     wpWelcome:
     wpWelcome:











#

Line 570 
 begin


Line 641 
 begin












641
 
 

















642
       end;
       end;

















643
 
 












644
 
     wpSelectDir:







645
 
       begin







646
 
 







647
 
         ResultCode := CheckAppsUsing();







648
 
         if ResultCode = 1 then







649
 
           begin







650
 
             MsgBox(CustomMessage('msg_AppRunningError'), mbError, MB_OK);







651
 
             Result := False;







652
 
           end;







653
 
         // if -1, goto next. turn over to Inno Setup.







654
 
 







655
 
       end;







656
 
 












657
     wpSelectComponents:
     wpSelectComponents:

















658
       begin
       begin

















659
 
 











#

Line 588 
 begin


Line 672 
 begin












672
 
 

















673
       end;
       end;

















674
   end;
   end;














   Result := True;
 













675
 end;
 end;

















676
 
 

















677
 procedure CurStepChanged(CurStep: TSetupStep);
 procedure CurStepChanged(CurStep: TSetupStep);











#

Line 708 
 Name: {app}\copyfont.pif; Type: files


Line 791 
 Name: {app}\copyfont.pif; Type: files












791
 Name: {app}\libeay.txt; Type: files
 Name: {app}\libeay.txt; Type: files

















792
 
 

















793
 [InnoIDE_PreCompile]
 [InnoIDE_PreCompile]















794


 Name: makechm.bat


 ;Name: makechm.bat













795


 Name: build.bat; Parameters: rebuild


 ;Name: build.bat; Parameters: rebuild















796
 ;Name: build.bat
 ;Name: build.bat





























Legend:



Removed from v.4352
 


changed lines


 
Added in v.4354













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[ttssh2]/trunk/installer/teraterm.iss
-revision 4352 by maya,
Mon Feb 28 09:10:09 2011 UTC
+revision 4354 by maya,
Wed Mar  2 15:13:21 2011 UTC
 Line 1
  #define AppName "Tera Term"
- #define AppVer "4.69-RC1"
+ #define AppVer "4.69-RC3"
  ;#define snapshot GetDateTimeString('yyyymmdd_hhnnss', '', '');
  [Setup]
 Line 16 
 DefaultGroupName={#AppName}
  ShowLanguageDialog=yes
  AllowNoIcons=true
  UninstallDisplayIcon={app}\ttermpro.exe
- AppMutex=TeraTermProAppMutex, TeraTermProMacroAppMutex, TeraTermProKeycodeAppMutex, TeraTermMenuAppMutex, CygTermAppMutex, Global\TeraTermProAppMutex, Global\TeraTermProMacroAppMutex, Global\TeraTermProKeycodeAppMutex, Global\TeraTermMenuAppMutex, Global\CygTermAppMutex
+ ;AppMutex=TeraTermProAppMutex, TeraTermProMacroAppMutex, TeraTermProKeycodeAppMutex, TeraTermMenuAppMutex, CygTermAppMutex, Global\TeraTermProAppMutex, Global\TeraTermProMacroAppMutex, Global\TeraTermProKeycodeAppMutex, Global\TeraTermMenuAppMutex, Global\CygTermAppMutex
  #ifndef snapshot
  OutputBaseFilename=teraterm-{#AppVer}
  #else
 Line 282 
 en.comp_TTXAlwaysOnTop=Always On Top can
  ja.comp_TTXAlwaysOnTop=常に最前面に表示できるようにする
  en.comp_TTXRecurringCommand=Recurring Command can be used
  ja.comp_TTXRecurringCommand=定期的に文字列を送信する
+ en.msg_AppRunningError=Setup has detected that Tera Term is currently running.%n%nPlease close all instances of it now, then click Next to continue.
+ ja.msg_AppRunningError=セットアップは実行中の Tera Term を検出しました。%n%n開いているアプリケーションをすべて閉じてから「次へ」をクリックしてください。
  [Code]
  const
-Line 357 
 begin
+Line 359 
 begin
  end;
  }
+ function CheckAppUsing(Filename:String) : integer;
+ var
+   TmpFileName : String;
+ begin
+   if FileExists(FileName) then
+     begin
+       TmpFileName := FileName + '.' + GetDateTimeString('yyyymmddhhnnss', #0, #0); // Tmp file ends with timestamp
+       if FileCopy(FileName, TmpFileName, True) then
+         if DeleteFile(FileName) then
+           if RenameFile(TmpFileName, FileName) then
+             Result := 0
+           else
+             Result := -1 // permission?
+         else
+           begin
+             Result := 1; // failed to delete
+             DeleteFile(TmpFileName);
+           end
+       else
+         Result := -1 // permission?
+     end
+   else
+     Result := 0;
+ end;
+ function CheckAppsUsing() : integer;
+ var
+   FileDir  : String;
+   FileName : array[0..6] of String;
+   i        : integer;
+   flag     : boolean;
+ begin
+   FileDir := ExpandConstant('{app}');
+   FileName[0] := FileDir + '\ttermpro.exe';
+   FileName[1] := FileDir + '\ttpmacro.exe';
+   FileName[2] := FileDir + '\keycode.exe';
+   FileName[3] := FileDir + '\ttpmenu.exe';
+   FileName[4] := FileDir + '\cygterm.exe';
+   FileName[5] := FileDir + '\Collector.exe';
+   FileName[6] := FileDir + '\Collector_org.exe';
+   flag := True;
+   for i := 0 to 6 do
+   begin
+     if flag = True then
+     begin
+       case CheckAppUsing(FileName[i]) of
+:
+           // failed to delete. in use.
+           begin
+             Result := 1;
+             flag := False;
+           end;
+         -1:
+           // failed to copy/rename
+           begin
+             Result := -1;
+             flag := False;
+           end;
+         else
+           // OK
+       end;
+     end;
+   end;
+ end;
  function GetDefaultIniFilename : String;
  begin
    Result := ExpandConstant('{app}') + '\TERATERM.INI';
-Line 537 
 var
+Line 606 
 var
    ResultCode: Integer;
    iniFile : String;
  begin
+   Result := True;
    case CurPageID of
      wpWelcome:
-Line 570 
 begin
+Line 641 
 begin
        end;
+     wpSelectDir:
+       begin
+         ResultCode := CheckAppsUsing();
+         if ResultCode = 1 then
+           begin
+             MsgBox(CustomMessage('msg_AppRunningError'), mbError, MB_OK);
+             Result := False;
+           end;
+         // if -1, goto next. turn over to Inno Setup.
+       end;
      wpSelectComponents:
        begin
-Line 588 
 begin
+Line 672 
 begin
        end;
    end;
-   Result := True;
  end;
  procedure CurStepChanged(CurStep: TSetupStep);
-Line 708 
 Name: {app}\copyfont.pif; Type: files
+Line 791 
 Name: {app}\copyfont.pif; Type: files
  Name: {app}\libeay.txt; Type: files
  [InnoIDE_PreCompile]
- Name: makechm.bat
+ ;Name: makechm.bat
- Name: build.bat; Parameters: rebuild
+ ;Name: build.bat; Parameters: rebuild
  ;Name: build.bat
 Legend:



Removed from v.4352
 


changed lines


 
Added in v.4354
 Legend:



Removed from v.4352
 


changed lines


 
Added in v.4354
-Removed from v.4352
+Added in v.4354
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

오픈 소스 소프트웨어 개발 및 다운로드

Tera Term

Browse Subversion Repository