View Single Post
  #12  
Old 05-08-2017, 23:54
Titeuf's Avatar
Titeuf Titeuf is offline
Registered User
 
Join Date: Oct 2016
Location: France
Posts: 191
Thanks: 614
Thanked 22 Times in 19 Posts
Titeuf is on a distinguished road
Quote:
Originally Posted by 78372 View Post
No idea it will work or not, this code is written in notepad

Code:
var
  NewCheckBox1: TNewCheckBox;
procedure InitializeWizard();
begin
    NewCheckBox1 := TNewCheckBox.Create(WizardForm);
  with NewCheckBox1 do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(0);
    Top := ScaleY(96);
    Width := ScaleX(169);
    Height := ScaleY(17);
    Caption := 'Copy Crack from .\CRACK DIR';
  end;
  NewCheckBox1.TabOrder := 5;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
    begin
    if NewCheckBox1.Checked then
    FileCopy(ExpandConstant('{src}\CRACK\*'),ExpandConstant('{app}\*'),false);
    end;
end;
Hello,
Thank you for your help.
In what part, I have to put your in in the * .iss file please?
Thank you
Reply With Quote