Inno 계속 진행하기 전에 WAMP가 설치되어 있는지 확인하십시오.

Question

Inno Setup을 사용하여 설치 마법사를 만들고 WAMP 설치가 포함되어 있습니다. 그러나 다른 것들에 따르면, 이중 WAMP 설치는 WAMP 그 자체를 해칠 것입니다. 그래서 진행하기 전에 WAMP가 설치되어 있는지 확인해야합니다. 이 작업을 수행하는 방법은 무엇입니까?

Answer 1

WAMP는 설치 프로세스 중에 레지스트리 항목을 만듭니다. 인스톨러는 Inno Setup을 기반으로합니다.

은 레지스트리 항목의 2 종류가 있습니다

1 개인 :

[Registry] 

Root: HKLM64; Subkey: "SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\"; 
ValueName: "{app}\wampmanager.exe"; ValueType: String; ValueData: "RUNASADMIN"; 
Check: "IsWin64"; MinVersion: 0.0,6.0; Flags: uninsdeletevalue uninsdeletekeyifempty 
Root: HKLM32; Subkey: "SOFTWARE\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers\"; 
ValueName: "{app}\wampmanager.exe"; ValueType: String; ValueData: "RUNASADMIN"; 
Check: "Not IsWin64"; MinVersion: 0.0,6.0; Flags: uninsdeletevalue uninsdeletekeyifempty 

2 기본 제거 정보 :

경로

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{wampserver64}_is1

InstallLocation에서 우리가 있는지 확인 할 수 있습니다 WAMP가 설치되어 있고 실행 파일이 설치 폴더에있는 경우 (추가 확인).

예제는 64-bit WAMP 3.0.6 버전을 기반으로합니다.

32- and 64-bit 버전을 모두 지원해야하는 경우 조정해야합니다.

[Setup] 
ArchitecturesAllowed=x64 
ArchitecturesInstallIn64BitMode=x64[ 

[Code] 
function CheckWAMPExists(): Boolean; 
var 
    sInstPath: String; 
    sInstallString: String; 
begin 
    Result := False; 
    sInstPath := 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{wampserver64}_is1'; 
    sInstallString := ''; 
    if not RegQueryStringValue(HKLM, sInstPath, 'InstallLocation', sInstallString) then 
    RegQueryStringValue(HKCU, sInstPath, 'InstallLocation', sInstallString); 
    if sInstallString <> '' then begin 
    if FileExists(ExpandConstant(sInstallString) + 'wampmanager.exe') then 
    MsgBox('WAMP found!' + #13#10 + 'Install location:' + #13#10 + sInstallString 
    + #13#10#13#10 + 'Installation will proceed!', mbInformation, MB_OK); 
    Result := True; 
    end 
    else begin 
    MsgBox('WAMP not found! Installation terminated.', mbInformation, MB_OK); 
    end; 
end; 

function InitializeSetup(): Boolean; 
begin 
    Result := CheckWAMPExists; 
end; 

Answer 2

프로그램이 설치되어 있는지 확인하는 유일한 방법은 기본 경로와 다른 가능한 경로에 해당 폴더가 있는지 확인하는 것입니다.

if DirExists('C:\wamp') 
or DirExists('C:\wamp64') 
or DirExists('C:\Program Files\wamp') 
or DirExists('C:\Program Files\wamp64') 
or DirExists('C:\Program Files(x86)\wamp') 
or DirExists('C:\Program Files(x86)\wamp64') 
or DirExists('{userdocs}\wamp') 
or DirExists('{userdocs}\wamp64') 
or DirExists('{userdocs}\Desktop\wamp') 
or DirExists('{userdocs}\Desktop\wamp64') 
    then begin 
     MsgBox('An installation of WAMP was found.' + #13#10#13#10 + 'Please uninstall any WAMP/XAMPP programs first' + #13#10 + 'or install SpinShot in a different PC.', mbInformation, MB_OK); 
     Result := False; 
    end; 
end;