| 322 |
ja.msg_language_german=ドイツ語(&G) |
ja.msg_language_german=ドイツ語(&G) |
| 323 |
en.msg_del_confirm=Are you sure that you want to delete %s ? |
en.msg_del_confirm=Are you sure that you want to delete %s ? |
| 324 |
ja.msg_del_confirm=%s を削除しますか？ |
ja.msg_del_confirm=%s を削除しますか？ |
| 325 |
|
en.msg_uninstall_confirm=It seems installed prev version. We advise uninstall first. Are you sure uninstall prev version ? |
| 326 |
|
ja.msg_uninstall_confirm=以前のバージョンがインストールされているようです。インストールの前にアンインストールすることをお勧めします。アンインストールしますか？ |
| 327 |
|
|
| 328 |
[Code] |
[Code] |
| 329 |
var |
var |
| 533 |
|
|
| 534 |
function NextButtonClick(CurPageID: Integer): Boolean; |
function NextButtonClick(CurPageID: Integer): Boolean; |
| 535 |
var |
var |
| 536 |
|
uninstaller : String; |
| 537 |
|
uninstaller2 : String; |
| 538 |
|
ResultCode: Integer; |
| 539 |
iniFile : String; |
iniFile : String; |
| 540 |
begin |
begin |
| 541 |
case CurPageID of |
case CurPageID of |
| 542 |
|
|
| 543 |
|
wpWelcome: |
| 544 |
|
begin |
| 545 |
|
|
| 546 |
|
if RegQueryStringValue(HKEY_LOCAL_MACHINE, |
| 547 |
|
'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\UTF-8 TeraTerm Pro with TTSSH2_is1', |
| 548 |
|
'UninstallString', uninstaller) then |
| 549 |
|
begin |
| 550 |
|
// UTF-8 TeraTerm Pro with TTSSH2 のアンインストーラ文字列を発見した |
| 551 |
|
if not RegKeyExists(HKEY_LOCAL_MACHINE, |
| 552 |
|
'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Tera Term_is1') then |
| 553 |
|
begin |
| 554 |
|
// Tera Term のインストールエントリが見つからない(共存していない) |
| 555 |
|
if MsgBox(CustomMessage('msg_uninstall_confirm'), mbInformation, MB_YESNO) = IDYES then |
| 556 |
|
begin |
| 557 |
|
// ユーザがアンインストールを選択した |
| 558 |
|
uninstaller2 := Copy(uninstaller, 2, Length(uninstaller) - 2); |
| 559 |
|
if not Exec(uninstaller2, '', '', SW_SHOW, |
| 560 |
|
ewWaitUntilTerminated, ResultCode) then |
| 561 |
|
begin |
| 562 |
|
MsgBox(SysErrorMessage(ResultCode), mbError, MB_OK); |
| 563 |
|
end; |
| 564 |
|
end; |
| 565 |
|
end; |
| 566 |
|
end; |
| 567 |
|
|
| 568 |
|
end; |
| 569 |
|
|
| 570 |
wpSelectComponents: |
wpSelectComponents: |
| 571 |
begin |
begin |
| 572 |
|
|
Tera Term
Parent Directory
Revision Log
Patch