1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

No InnoSetup, como localizar automaticamente se existe um diretório no PC? Caso exista e...

Discussion in 'Technology' started by Arthur Costa Rodrigues, Aug 2, 2020.

  1. ; Script generated by the Inno Setup Script Wizard. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

    #define MyAppName "OrtoSetup" #define MyAppVersion "1.5" #define MyAppPublisher "OrtoSetup, Inc." #define MyAppURL "www"

    [Setup] ; NOTE: The value of AppId uniquely identifies this application. Do not use the same AppId value in installers for other applications. ; (To generate a new GUID, click Tools | Generate GUID inside the IDE.) AppId={{95C1E72F-E463-4DDF-84AD-7709893783AF} AppName={#MyAppName} AppVersion={#MyAppVersion} ;AppVerName={#MyAppName} {#MyAppVersion} AppPublisher={#MyAppPublisher} AppPublisherURL={#MyAppURL} AppSupportURL={#MyAppURL} AppUpdatesURL={#MyAppURL} DefaultDirName=C:\Nemo\NemoServer\Database\NemoCast3D\Attachments{#MyAppName} DisableDirPage=yes DefaultGroupName={#MyAppName} DisableProgramGroupPage=yes InfoBeforeFile=C:\Users\arthu\Dropbox\Secretline_New\inicioNemoUser.txt InfoAfterFile=C:\Users\arthu\Dropbox\Secretline_New\finalNemo_Users.txt ; Uncomment the following line to run in non administrative install mode (install for current user only.) ;PrivilegesRequired=lowest OutputDir=D:
    OutputBaseFilename=ortosetup Password=1029384756 Compression=lzma SolidCompression=yes WizardStyle=modern

    [Languages] Name: "english"; MessagesFile: "compiler:Default.isl" Name: "brazilianportuguese"; MessagesFile: "compiler:Languages\BrazilianPortuguese.isl" Name: "spanish"; MessagesFile: "compiler:Languages\Spanish.isl"

    [Files] Source: "C:\Users\arthu\Dropbox\Secretline_New\AlignD Arthur.stl"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Users\arthu\Dropbox\Secretline_New\AlignE Arthur.stl"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Users\arthu\Dropbox\Secretline_New\AlignTony&ArthurD.stl"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Users\arthu\Dropbox\Secretline_New\AlignTony&ArthurE.stl"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Users\arthu\Dropbox\Secretline_New\BarArthur.stl"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Users\arthu\Dropbox\Secretline_New\Bruticus Arthur.stl"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Users\arthu\Dropbox\Secretline_New\Power_Arm.stl"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Users\arthu\Dropbox\Secretline_New\PowerfullD Arthur.stl"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Users\arthu\Dropbox\Secretline_New\PowerfullE Arthur.stl"; DestDir: "{app}"; Flags: ignoreversion Source: "C:\Users\arthu\Dropbox\Secretline_New\RoundedArthur.stl"; DestDir: "{app}"; Flags: ignoreversion ; NOTE: Don't use "Flags: ignoreversion" on any shared system files

    Code:
     const MY_EXPIRY_DATE_STR = '20200810'; //Date format: yyyymmdd function InitializeSetup(): Boolean; begin //If current date exceeds MY_EXPIRY_DATE_STR then return false and exit Installer. result := CompareStr(GetDateTimeString('yyyymmdd', #0,#0), MY_EXPIRY_DATE_STR) <= 0; if not result then MsgBox('INSTALACION PROHIBIDA', mbError, MB_OK); end;
    
    [url="https://solveforum.com/index.php?login/login"]Login To add answer/comment[/url]
     

Share This Page