[Ttssh2-commit] [5442] アンインストーラで lang\Default . lng をユーザに問い合わせて削除するようにした

Back to archive index

svnno****@sourc***** svnno****@sourc*****
2013年 11月 26日 (火) 20:47:30 JST


Revision: 5442
          http://sourceforge.jp/projects/ttssh2/scm/svn/commits/5442
Author:   maya
Date:     2013-11-26 20:47:30 +0900 (Tue, 26 Nov 2013)
Log Message:
-----------
アンインストーラで lang\Default.lng をユーザに問い合わせて削除するようにした

Modified Paths:
--------------
    trunk/installer/teraterm.iss

-------------- next part --------------
Modified: trunk/installer/teraterm.iss
===================================================================
--- trunk/installer/teraterm.iss	2013-11-26 11:41:37 UTC (rev 5441)
+++ trunk/installer/teraterm.iss	2013-11-26 11:47:30 UTC (rev 5442)
@@ -784,7 +784,7 @@
 
 procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
 var
-  ini     : array[0..4] of String;
+  ini     : array[0..5] of String;
   buf     : String;
   conf    : String;
   confmsg : String;
@@ -796,15 +796,16 @@
       begin
         ini[0] := '\TERATERM.INI';
         ini[1] := '\KEYBOARD.CNF';
-        ini[2] := '\ssh_known_hosts';
-        ini[3] := '\cygterm.cfg';
-        ini[4] := '\broadcast.log';
+        ini[2] := '\lang\Default.lng';
+        ini[3] := '\ssh_known_hosts';
+        ini[4] := '\cygterm.cfg';
+        ini[5] := '\broadcast.log';
 
         conf := CustomMessage('msg_del_confirm');
         app  := ExpandConstant('{app}');
 
         // delete config files
-        for i := 0 to 4 do
+        for i := 0 to 5 do
         begin
           buf := app + ini[i];
           if FileExists(buf) then begin



Ttssh2-commit メーリングリストの案内
Back to archive index