इनो सेटअप - जांचें कि फ़ाइल में गंतव्य मौजूद है या नहीं, अगर इंस्टॉलेशन

Question

को निरस्त नहीं करता है, तो मुझे यह देखने के लिए अपने इंस्टॉलर की आवश्यकता है कि गंतव्य स्थान में कोई फ़ाइल मौजूद है या नहीं, और इंस्टॉलेशन aborts। मेरा प्रोजेक्ट एक अपडेट पैच है, इसलिए मैं इंस्टॉलर को अपडेट फाइलों को इंस्टॉल करने से बचाना चाहता हूं यदि एप्लिकेशन का मुख्य एक्सई गंतव्य में नहीं है। मैं यह कैसे कर सकता हूँ?

क्या कोई Windows रजिस्ट्री के माध्यम से फ़ाइल संस्करण की जांच करने के लिए कोड का उदाहरण दे सकता है?

[Files] 
Source C:\filename.exe; DestDir {app}; Flags: ignoreversion; BeforeInstall: CheckForFile; 

[code] 

procedure CheckForFile(): Boolean; 
begin 
    if (FileExists('c:\somefile.exe')) then 
    begin 
    MsgBox('File exists, install continues', mbInformation, MB_OK); 
    Result := True; 
    end 
    else 
    begin 
    MsgBox('File does not exist, install stops', mbCriticalError, MB_OK); 
    Result := False; 
    end; 
end; 

Answer 1

बस उपयोगकर्ता को सही फ़ोल्डर चुनने तक आगे बढ़ने न दें।

function NextButtonClick(PageId: Integer): Boolean; 
begin 
    Result := True; 
    if (PageId = wpSelectDir) and not FileExists(ExpandConstant('{app}\yourapp.exe')) then begin 
     MsgBox('YourApp does not seem to be installed in that folder. Please select the correct folder.', mbError, MB_OK); 
     Result := False; 
     exit; 
    end; 
end; 

बेशक, उनके लिए सही फ़ोल्डर को स्वचालित रूप से चुनने का प्रयास करना भी एक अच्छा विचार है, उदाहरण के लिए। रजिस्ट्री से सही स्थान पुनर्प्राप्त करके।

Answer 2

एक अन्य समाधान InitializeSetup() होगा:

क्रेडिट: Manfred

[code] 
    function InitializeSetup(): Boolean; 
    begin 
    if (FileExists(ExpandConstant('{pf}\{#MyAppName}\somefile.exe'))) then 
    begin 
     MsgBox('Installation validated', mbInformation, MB_OK); 
     Result := True; 
    end 
    else 
    begin 
     MsgBox('Abort installation', mbCriticalError, MB_OK); 
     Result := False; 
    end; 
    end;