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 |
|
|