1 |
#define AppName "Tera Term" |
#define AppName "Tera Term" |
2 |
#define AppVer "4.66" |
#define AppVer "4.67" |
3 |
#define snapshot GetDateTimeString('yyyymmdd_hhnnss', '', ''); |
#define snapshot GetDateTimeString('yyyymmdd_hhnnss', '', ''); |
4 |
|
|
5 |
[Setup] |
[Setup] |
363 |
|
|
364 |
procedure SetIniFile(iniFile: String); |
procedure SetIniFile(iniFile: String); |
365 |
var |
var |
366 |
Language : String; |
Language : String; |
367 |
Locale : String; |
Locale : String; |
368 |
CodePage : integer; |
CodePage : integer; |
369 |
VTFont : String; |
VTFont : String; |
370 |
TEKFont : String; |
TEKFont : String; |
371 |
FileDir : String; |
FileDir : String; |
372 |
TCPPort : integer; |
TCPPort : integer; |
373 |
|
ViewlogEditor : String; |
374 |
|
|
375 |
begin |
begin |
376 |
Language := GetIniString('Tera Term', 'Language', '', iniFile); |
Language := GetIniString('Tera Term', 'Language', '', iniFile); |
377 |
Locale := GetIniString('Tera Term', 'Locale', '', iniFile); |
Locale := GetIniString('Tera Term', 'Locale', '', iniFile); |
378 |
CodePage := GetIniInt('Tera Term', 'CodePage', 0, 0, 0, iniFile); |
CodePage := GetIniInt('Tera Term', 'CodePage', 0, 0, 0, iniFile); |
379 |
VTFont := GetIniString('Tera Term', 'VTFont', '', iniFile); |
VTFont := GetIniString('Tera Term', 'VTFont', '', iniFile); |
380 |
TEKFont := GetIniString('Tera Term', 'TEKFont', '', iniFile); |
TEKFont := GetIniString('Tera Term', 'TEKFont', '', iniFile); |
381 |
FileDir := GetIniString('Tera Term', 'FileDir', '', iniFile); |
FileDir := GetIniString('Tera Term', 'FileDir', '', iniFile); |
382 |
|
FileDir := GetIniString('Tera Term', 'FileDir', '', iniFile); |
383 |
|
ViewlogEditor := GetIniString('Tera Term', 'ViewlogEditor', '', iniFile); |
384 |
|
|
385 |
case GetUILanguage and $3FF of |
case GetUILanguage and $3FF of |
386 |
$04: // Chinese |
$04: // Chinese |
488 |
SetIniInt('Tera Term', 'TCPPort', 23, iniFile); |
SetIniInt('Tera Term', 'TCPPort', 23, iniFile); |
489 |
end; |
end; |
490 |
|
|
491 |
|
if ViewlogEditor = 'notepad.exe' then begin |
492 |
|
ViewlogEditor := ExpandConstant('{win}') + '\' + 'notepad.exe'; |
493 |
|
SetIniString('Tera Term', 'ViewlogEditor', ViewlogEditor, iniFile); |
494 |
|
end; |
495 |
|
|
496 |
end; |
end; |
497 |
|
|
498 |
procedure InitializeWizard; |
procedure InitializeWizard; |
704 |
|
|
705 |
[_ISToolPreCompile] |
[_ISToolPreCompile] |
706 |
Name: makechm.bat |
Name: makechm.bat |
707 |
; Name: build.bat; Parameters: rebuild |
;Name: build.bat; Parameters: rebuild |
708 |
Name: build.bat |
Name: build.bat |