[4208] 新規インストール時、セットアップの言語が日本語でも UI の言語が英語になってしまっていたのを修正。 (Ttssh2-commit) - Tera Term

Revision: 4208
          http://sourceforge.jp/projects/ttssh2/svn/view?view=rev&revision=4208
Author:   doda
Date:     2010-12-09 19:19:18 +0900 (Thu, 09 Dec 2010)

Log Message:
-----------
新規インストール時、セットアップの言語が日本語でも UI の言語が英語になってしまっていたのを修正。
http://slashdot.jp/comments.pl?sid=516076&cid=1870912

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


-------------- next part --------------
Modified: trunk/installer/teraterm.iss
===================================================================

--- trunk/installer/teraterm.iss	2010-12-08 14:28:39 UTC (rev 4207)
+++ trunk/installer/teraterm.iss	2010-12-09 10:19:18 UTC (rev 4208)
@@ -572,15 +572,18 @@
     wpSelectComponents:
       begin
 
-        iniFile := GetIniString('Tera Term', 'UILanguageFile', '', GetDefaultIniFilename());
-        if iniFile = 'lang\Japanese.lng' then
-          UILangFilePage.SelectedValueIndex := 1
-        else if iniFile = 'lang\German.lng' then
-          UILangFilePage.SelectedValueIndex := 2
-        else if iniFile = 'lang\French.lng' then
-          UILangFilePage.SelectedValueIndex := 3
-        else
-          UILangFilePage.SelectedValueIndex := 0;
+        if FileExists(GetDefaultIniFileName()) then
+        begin
+          iniFile := GetIniString('Tera Term', 'UILanguageFile', '', GetDefaultIniFilename());
+          if iniFile = 'lang\Japanese.lng' then
+            UILangFilePage.SelectedValueIndex := 1
+          else if iniFile = 'lang\German.lng' then
+            UILangFilePage.SelectedValueIndex := 2
+          else if iniFile = 'lang\French.lng' then
+            UILangFilePage.SelectedValueIndex := 3
+          else
+            UILangFilePage.SelectedValueIndex := 0;
+        end;
 
       end;
   end;


Tera Term

[Ttssh2-commit] [4208] 新規インストール時、セットアップの言語が日本語でも UI の言語が英語になってしまっていたのを修正。