Advertisement
TLama

Untitled

Apr 13th, 2015
454
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.54 KB | None | 0 0
  1. [Files]
  2. Source: "EULA_ANSI.txt"; DestDir: "{tmp}"; Flags: dontcopy nocompression
  3.  
  4. [Code]
  5. function InitializeSetup: Boolean;
  6. var
  7.   EULAText: AnsiString;
  8. begin
  9.   Result := not WizardSilent;
  10.   if not Result then
  11.   begin
  12.     ExtractTemporaryFile('EULA_ANSI.TXT');
  13.     if LoadStringFromFile(ExpandConstant('{tmp}\EULA_ANSI.txt'), EULAText) then
  14.       Result := MsgBox(EULAText, mbConfirmation, MB_YESNO) = IDYES
  15.     else
  16.       MsgBox('Unable to display EULA.' + #13#10 + #13#10 + 'Installation terminated!', mbCriticalError, MB_OK);
  17.   end;
  18. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement