1 |
#define AppName "Tera Term" |
#define AppName "Tera Term" |
2 |
#define AppVer "4.66" |
#define AppVer "4.68" |
3 |
#define snapshot GetDateTimeString('yyyymmdd_hhnnss', '', ''); |
#define snapshot GetDateTimeString('yyyymmdd_hhnnss', '', ''); |
4 |
|
|
5 |
[Setup] |
[Setup] |
64 |
Source: release\screencapture.ttl; DestDir: {app}; Components: TeraTerm |
Source: release\screencapture.ttl; DestDir: {app}; Components: TeraTerm |
65 |
Source: release\ssh2login.ttl; DestDir: {app}; Components: TeraTerm |
Source: release\ssh2login.ttl; DestDir: {app}; Components: TeraTerm |
66 |
Source: release\wait_regex.ttl; DestDir: {app}; Components: TeraTerm |
Source: release\wait_regex.ttl; DestDir: {app}; Components: TeraTerm |
67 |
|
Source: release\lang\Default.lng; DestDir: {app}\lang; Components: TeraTerm; Flags: onlyifdoesntexist uninsneveruninstall; Permissions: authusers-modify |
68 |
Source: release\lang\Japanese.lng; DestDir: {app}\lang; Components: TeraTerm; Attribs: readonly; Flags: uninsremovereadonly overwritereadonly |
Source: release\lang\Japanese.lng; DestDir: {app}\lang; Components: TeraTerm; Attribs: readonly; Flags: uninsremovereadonly overwritereadonly |
69 |
Source: release\lang\German.lng; DestDir: {app}\lang; Components: TeraTerm; Attribs: readonly; Flags: uninsremovereadonly overwritereadonly |
Source: release\lang\German.lng; DestDir: {app}\lang; Components: TeraTerm; Attribs: readonly; Flags: uninsremovereadonly overwritereadonly |
70 |
Source: release\lang\French.lng; DestDir: {app}\lang; Components: TeraTerm; Attribs: readonly; Flags: uninsremovereadonly overwritereadonly |
Source: release\lang\French.lng; DestDir: {app}\lang; Components: TeraTerm; Attribs: readonly; Flags: uninsremovereadonly overwritereadonly |
364 |
|
|
365 |
procedure SetIniFile(iniFile: String); |
procedure SetIniFile(iniFile: String); |
366 |
var |
var |
367 |
Language : String; |
Language : String; |
368 |
Locale : String; |
Locale : String; |
369 |
CodePage : integer; |
CodePage : integer; |
370 |
VTFont : String; |
VTFont : String; |
371 |
TEKFont : String; |
TEKFont : String; |
372 |
FileDir : String; |
FileDir : String; |
373 |
TCPPort : integer; |
TCPPort : integer; |
374 |
|
ViewlogEditor : String; |
375 |
|
|
376 |
begin |
begin |
377 |
Language := GetIniString('Tera Term', 'Language', '', iniFile); |
Language := GetIniString('Tera Term', 'Language', '', iniFile); |
378 |
Locale := GetIniString('Tera Term', 'Locale', '', iniFile); |
Locale := GetIniString('Tera Term', 'Locale', '', iniFile); |
379 |
CodePage := GetIniInt('Tera Term', 'CodePage', 0, 0, 0, iniFile); |
CodePage := GetIniInt('Tera Term', 'CodePage', 0, 0, 0, iniFile); |
380 |
VTFont := GetIniString('Tera Term', 'VTFont', '', iniFile); |
VTFont := GetIniString('Tera Term', 'VTFont', '', iniFile); |
381 |
TEKFont := GetIniString('Tera Term', 'TEKFont', '', iniFile); |
TEKFont := GetIniString('Tera Term', 'TEKFont', '', iniFile); |
382 |
FileDir := GetIniString('Tera Term', 'FileDir', '', iniFile); |
FileDir := GetIniString('Tera Term', 'FileDir', '', iniFile); |
383 |
|
FileDir := GetIniString('Tera Term', 'FileDir', '', iniFile); |
384 |
|
ViewlogEditor := GetIniString('Tera Term', 'ViewlogEditor', '', iniFile); |
385 |
|
|
386 |
case GetUILanguage and $3FF of |
case GetUILanguage and $3FF of |
387 |
$04: // Chinese |
$04: // Chinese |
474 |
3: |
3: |
475 |
SetIniString('Tera Term', 'UILanguageFile', 'lang\French.lng', iniFile); |
SetIniString('Tera Term', 'UILanguageFile', 'lang\French.lng', iniFile); |
476 |
else |
else |
477 |
SetIniString('Tera Term', 'UILanguageFile', 'lang\English.lng', iniFile); |
SetIniString('Tera Term', 'UILanguageFile', 'lang\Default.lng', iniFile); |
478 |
end; |
end; |
479 |
|
|
480 |
if Length(FileDir) = 0 then begin |
if Length(FileDir) = 0 then begin |
489 |
SetIniInt('Tera Term', 'TCPPort', 23, iniFile); |
SetIniInt('Tera Term', 'TCPPort', 23, iniFile); |
490 |
end; |
end; |
491 |
|
|
492 |
|
if ViewlogEditor = 'notepad.exe' then begin |
493 |
|
ViewlogEditor := ExpandConstant('{win}') + '\' + 'notepad.exe'; |
494 |
|
SetIniString('Tera Term', 'ViewlogEditor', ViewlogEditor, iniFile); |
495 |
|
end; |
496 |
|
|
497 |
end; |
end; |
498 |
|
|
499 |
procedure InitializeWizard; |
procedure InitializeWizard; |
572 |
wpSelectComponents: |
wpSelectComponents: |
573 |
begin |
begin |
574 |
|
|
575 |
iniFile := GetIniString('Tera Term', 'UILanguageFile', '', GetDefaultIniFilename()); |
if FileExists(GetDefaultIniFileName()) then |
576 |
if iniFile = 'lang\Japanese.lng' then |
begin |
577 |
UILangFilePage.SelectedValueIndex := 1 |
iniFile := Lowercase(GetIniString('Tera Term', 'UILanguageFile', '', GetDefaultIniFilename())); |
578 |
else if iniFile = 'lang\German.lng' then |
if iniFile = 'lang\japanese.lng' then |
579 |
UILangFilePage.SelectedValueIndex := 2 |
UILangFilePage.SelectedValueIndex := 1 |
580 |
else if iniFile = 'lang\French.lng' then |
else if iniFile = 'lang\german.lng' then |
581 |
UILangFilePage.SelectedValueIndex := 3 |
UILangFilePage.SelectedValueIndex := 2 |
582 |
else |
else if iniFile = 'lang\french.lng' then |
583 |
UILangFilePage.SelectedValueIndex := 0; |
UILangFilePage.SelectedValueIndex := 3 |
584 |
|
else |
585 |
|
UILangFilePage.SelectedValueIndex := 0; |
586 |
|
end; |
587 |
|
|
588 |
end; |
end; |
589 |
end; |
end; |
706 |
Name: {app}\copyfont.pif; Type: files |
Name: {app}\copyfont.pif; Type: files |
707 |
Name: {app}\libeay.txt; Type: files |
Name: {app}\libeay.txt; Type: files |
708 |
|
|
709 |
[_ISToolPreCompile] |
[InnoIDE_PreCompile] |
710 |
Name: makechm.bat |
Name: makechm.bat |
711 |
; Name: build.bat; Parameters: rebuild |
; Name: build.bat; Parameters: rebuild |
712 |
Name: build.bat |
Name: build.bat |