[INOSETUP] 동일한 프로그램이 설치여부 확인하기

function InitializeSetup(): Boolean;
var
Install_Dir: String;
findStr: String;
index: Integer;
ResultInstall: Boolean;
begin
findStr:='\ID';
if RegQueryStringValue(HKEY_CURRENT_USER, 'Software\mgun', 'Install_Dir', Install_Dir) then
begin
  ResultInstall := MsgBox('이미 "' +Install_Dir +'" 동일한 프로그램이 설치되어 있습니다. 설치하시겠습니까?', mbInformation, MB_YESNO) = idYes;
  if ResultInstall = false then
  begin
   exit;            // 설치중지라면 exit
  end;
end
Result := true;
end;