Innosetup registry check

참고 :
http://ko.efreedom.com/Question/1-1297773/Java-%E1%84%89%E1%85%A5%E1%86%AF%E1%84%8E%E1%85%B5%E1%84%92%E1%85%A1%E1%84%80%E1%85%B5-%E1%84%8C%E1%85%A5%E1%86%AB%E1%84%8B%E1%85%A6-%E1%84%8B%E1%85%B5%E1%86%BB%E1%84%82%E1%85%B3%E1%86%AB%E1%84%8C%E1%85%B5-%E1%84%92%E1%85%AA%E1%86%A8%E1%84%8B%E1%85%B5%E1%86%AB

http://soldam.kr/?page=5

이노셋업을 사용해서 배포시 이미 내 프로그램이 설치되어 있는지 체크하기.
스크립트를 몰라도 그다지 어려운 코드는 없다. ㅇㅇ

[Code]
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;