lmh188
/
release
mirror of http://192.168.10.5:8099/sane/release
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

卸载前增加提示

This commit is contained in:
luoliangyi 2022-11-26 11:46:43 +08:00
parent ce77f377b3
commit 4bf728ece6
4 changed files with 32 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
win/setup/scanner/CumtennScan_App_Setup.iss
View File

@ -182,13 +182,16 @@ begin
begin
if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{ADE66CB2-15FD-4BF8-BFA7-ED3E239C9ACE}_is1', 'UninstallString', ResultStr) then
begin
ResultStr := RemoveQuotes(ResultStr);
if Exec(ResultStr, '/verysilent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
if MsgBox('扫描软件已安装，是否卸载原版本？', mbConfirmation, MB_YESNO) = IDYES then
begin
if 0 = ResultCode then
ResultStr := RemoveQuotes(ResultStr);
if Exec(ResultStr, '/verysilent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
begin
Sleep(1000)
Result := true;
if 0 = ResultCode then
begin
Sleep(1000)
Result := true;
end
end
end
end

13
win/setup/scanner/HanvonScan_App_Setup.iss
View File

@ -239,13 +239,16 @@ begin
begin
if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{4486975C-CBCF-430B-BED1-427866D1738E}_is1', 'UninstallString', ResultStr) then
begin
ResultStr := RemoveQuotes(ResultStr);
if Exec(ResultStr, '/verysilent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
if MsgBox('扫描软件已安装，是否卸载原版本？', mbConfirmation, MB_YESNO) = IDYES then
begin
if 0 = ResultCode then
ResultStr := RemoveQuotes(ResultStr);
if Exec(ResultStr, '/verysilent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
begin
Sleep(1000)
Result := true;
if 0 = ResultCode then
begin
Sleep(1000)
Result := true;
end
end
end
end

13
win/setup/scanner/HuaGoScan_App_Setup.iss
View File

@ -231,13 +231,16 @@ begin
begin
if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{7076DC53-5C2F-4216-9783-2A6F954FEB3E}_is1', 'UninstallString', ResultStr) then
begin
ResultStr := RemoveQuotes(ResultStr);
if Exec(ResultStr, '/verysilent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
if MsgBox('扫描软件已安装，是否卸载原版本？', mbConfirmation, MB_YESNO) = IDYES then
begin
if 0 = ResultCode then
ResultStr := RemoveQuotes(ResultStr);
if Exec(ResultStr, '/verysilent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
begin
Sleep(1000)
Result := true;
if 0 = ResultCode then
begin
Sleep(1000)
Result := true;
end
end
end
end

13
win/setup/scanner/LanxumScan_App_Setup.iss
View File

@ -179,13 +179,16 @@ begin
begin
if RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{F2890F43-A51C-4379-BB79-992616B1D6BD}_is1', 'UninstallString', ResultStr) then
begin
ResultStr := RemoveQuotes(ResultStr);
if Exec(ResultStr, '/verysilent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
if MsgBox('扫描软件已安装，是否卸载原版本？', mbConfirmation, MB_YESNO) = IDYES then
begin
if 0 = ResultCode then
ResultStr := RemoveQuotes(ResultStr);
if Exec(ResultStr, '/verysilent', '', SW_HIDE, ewWaitUntilTerminated, ResultCode) then
begin
Sleep(1000)
Result := true;
if 0 = ResultCode then
begin
Sleep(1000)
Result := true;
end
end
end
end