[R.i.m.s.k.y.]

Johny777, балин, камрад, я дал тебе готовую строчку чтобы увидеть что ты там склеиваешь, нафига мне твое обломись?

[Johny777]

R.i.m.s.k.y.,
Ты "секретные материалы" (Малдеры, Скали всякие) смотрел?
вот две строки
if not (FileCopy(ExpandConstant('{tmp}\saved.exe'), ExpandConstant('{userdesktop}\saved.exe'), True)) then
//if not (FileCopy(ExpandConstant('{tmp}\saved.exe'),'C:\saved.exe', True)) then
при первой архив копируется на рабочий стол, а при второй в C:\ нет (констант нет. Прямой путь)
Как это понимать?
Самое натуральная аномалия. Скрипт живёт своей жизнью!


Касательно твоего месседж бокса.Хотел с ним потестить. С ошибкой синтаксиса вылетает (исправить не смог).
Пока что тупик как не крути.

[R.i.m.s.k.y.]

Johny777,
тебя ничего не смущает?

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  Res: Integer;
  s1, s2, s3, s4, s5: string;

begin
  if CurStep = ssPostInstall then
    begin
    if Zip_CheckBox.Checked = true then
    begin

    s2 := Addquotes(Zip_Path_Edit.Text);
    //s2 := Addquotes(ExpandConstant('{tmp}\saved.exe'));
    s3 := Addquotes(ExpandConstant('{tmp}\{#Save_Folder}'));
    MsgBox('Пути архивации' + #13#10 + 'a -sfx7z.sfx -mx3' + ' ' + s2 + ' ' + s3, mbInformation, MB_OK);
    
        //s3 := Addquotes(RemoveBackslashUnlessRoot(ExpandConstant('{tmp}\{#Save_Folder}')))+'saved.exe';
      ExtractTemporaryFile('7za.exe');
      ExtractTemporaryFile('7z.sfx');
      Exec(ExpandConstant('{tmp}\7za.exe'), 'a -sfx7z.sfx -mx3' + ' ' + s2 + ' ' + s3, ExpandConstant('{tmp}'), SW_SHOW, ewWaitUntilTerminated, Res);
      if not (FileCopy(ExpandConstant('{tmp}\saved.exe'), ExpandConstant('{userdesktop}\saved.exe'), True)) then
      //if not (FileCopy(ExpandConstant('{tmp}\saved.exe'), 'C:\saved.exe', True)) then
      MsgBox('тут кроется лажа, тк не копируется', mbInformation, MB_OK);
    end;
    end;
end;

второе: для копирования лучше использовать не встроенные функции инно а комстроку

Код:

procedure copy1file(fromfile, tofile:string);
begin
  Exec('cmd.exe', ' /c copy /Y /V /B ' + AddQuotes(fromfile) + ' ' + AddQuotes(tofile),ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
end;

Вот сейчас твой архив saved.exe скопировался на рабочий стол но инсталлер написал что нет

[Johny777]

R.i.m.s.k.y.,
спасибо за помощь добрый человек!

всё работает:

читать дальше »

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  Res: Integer;
  s1, s2, s3, s4, s5: string;

begin
  if CurStep = ssPostInstall then
    begin
      if Zip_CheckBox.Checked = true then
        begin
          s2 := Addquotes(ExpandConstant('{tmp}\saved'));  /// вот здесь и была лажа,
          s3 := Addquotes(ExpandConstant('{tmp}\{#Save_Folder}'));
          MsgBox('Пути архивации' + #13#10 + 'a -sfx7z.sfx -mx3' + ' ' + s2 + ' ' + s3, mbInformation, MB_OK);
          
          ExtractTemporaryFile('7za.exe');
          ExtractTemporaryFile('7z.sfx');
          Exec(ExpandConstant('{tmp}\7za.exe'), 'a -sfx7z.sfx -mx3' + ' ' + s2 + ' ' + s3, ExpandConstant('{tmp}'), SW_SHOW, ewWaitUntilTerminated, Res);

          Exec('cmd.exe', ' /c copy /Y /V /B ' + AddQuotes(ExpandConstant('{tmp}\saved.exe')) + ' ' + Addquotes(Zip_Path_Edit.Text),ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
        end;
    end;
end;

сохраняет куда надо и как надо

[R.i.m.s.k.y.]

спасибо за помощь добрый человек! сохраняет куда надо и как надо »

пжлста
Выпей за мое богатство!

[El Sanchez]

тебя ничего не смущает? »

R.i.m.s.k.y., а тебя не смущает, что после AddQuotes переменные s2, s3 должны быть уже закавыченными, а MsgBox говорит обратное? У части пользователей ОС >= Vista и у всех пользователей ОС <= XP вызов 7za.exe приведет к ошибке из-за незакавыченных путей. Нужно отказаться от корявой AddQuotes и писать все ручками, и второе - незачем архив сохранять в темпе, а потом героически копировать в другое место (Рабочий стол), создавай сразу там.

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  Res: Integer;
  s3, s2: string;

begin
  if CurStep = ssPostInstall then
    begin
      if Zip_CheckBox.Checked then
        begin
          s2 := ExpandConstant('{userdesktop}\saved.exe'); //разумеется, сюда можно включать необходимые кавычки и отделяющие пробелы
          s3 := ExpandConstant('{tmp}\{#Save_Folder}'); //... и сюда, но напишем их в Exec

          ExtractTemporaryFile('7za.exe');
          ExtractTemporaryFile('7z.sfx');

          Exec(ExpandConstant('{tmp}\7za.exe'), 'a -sfx7z.sfx -mx3 "' + s2 + '" "' + s3 + '"', ExpandConstant('{tmp}'), SW_SHOW, ewWaitUntilTerminated, Res);
        end;
    end;
end

[R.i.m.s.k.y.]

El Sanchez Johny777, смутило но я подумал что это особенность msgbox
Спасибо что сказал, переделаю и у себя (хотя никто не жалился еще)
Проще сделать AddQuotes2, а то об эти кавыки в Ехес глаза пообломаешь

Код:

function AddQuotes2(www : string) : string;
begin
Result := '"' + www + '"';
end;


procedure CurStepChanged(CurStep: TSetupStep);
var
  Res: Integer;
  s3, s2: string;

begin
  if CurStep = ssPostInstall then
    begin
      if Zip_CheckBox.Checked then
        begin
          s2 := ExpandConstant('{userdesktop}\saved.exe'); //разумеется, сюда можно включать необходимые кавычки и отделяющие пробелы
          s3 := ExpandConstant('{tmp}\{#Save_Folder}'); //... и сюда, но напишем их в Exec

          ExtractTemporaryFile('7za.exe');
          ExtractTemporaryFile('7z.sfx');

          Exec(ExpandConstant('{tmp}\7za.exe'), 'a -sfx7z.sfx -mx3' + ' ' + AddQuotes2(s2) + ' ' + AddQuotes2(s3), ExpandConstant('{tmp}'), SW_SHOW, ewWaitUntilTerminated, Res);
        end;
    end;
end

[El Sanchez]

я подумал что это особенность msgbox »

Нет, скорей уж это особенность AddQuotes, принимающей строку от ExpandConstant.

Проще сделать AddQuotes2 »

Чего уж проще, захламить код ненужными функциями

[R.i.m.s.k.y.]

Чего уж проще, захламить код ненужными функциями »

намного проще снизить читабельность кода

[Johny777]

пжлста Выпей за мое богатство! »

нажрусь до поросячьего визга по возможности и тебя вспомню добрым словом, но не сейчас!
El Sanchez,
спасибо, что пришёл и поправил!
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
у меня вопрос
с архивацией всё отлично
Вот код на сами сохранения (поиск по расширению в отдельных папках и сравнения размеров файлов - всё работает), но меня смущает, то что без этого инсталл не запускается

Код:

function InitializeSetup(): Boolean;
begin
 Result:=True; /// вот этого
end;

Также если рядом есть файлы которые он ищет, то окно появляется тут же, а если нет, то с тормозами через пару секунд
Скажите пожалуйста где я опять накосячил при укорачивании и адаптации под свои нужды "поиск по расширению" их шапки?

читать дальше »

Код:

#define MyAppName "Backup"
#define Save_Folder "saved"

[Setup]
SourceDir=.
OutputDir=Source Engine 15\uninstall
AppName={#MyAppName}
AppVerName={#MyAppName}
AppVersion={#MyAppName}
//CreateAppDir=false
DefaultDirName={userdesktop}\{#Save_Folder}
OutputBaseFilename={#MyAppName}
Uninstallable=false
ShowLanguageDialog=auto
LanguageDetectionMethod=uilanguage

DisableWelcomePage=yes
DisableReadyPage=yes


[Files]
Source: {src}\..\common\half-life 2\bin\stats.bin; DestDir: {app}\common\half-life 2\bin; Flags: external ignoreversion recursesubdirs createallsubdirs; Check: save_A_hl2
Source: {src}\..\common\half-life 2 episode one\bin\stats.bin; DestDir: {app}\common\half-life 2 episode one\bin; Flags: external ignoreversion recursesubdirs createallsubdirs; Check: save_A_ep1
Source: {src}\..\common\half-life 2 episode two\bin\stats.bin; DestDir: {app}\common\half-life 2 episode two\bin; Flags: external ignoreversion recursesubdirs createallsubdirs; Check: save_A_ep2
Source: {src}\..\common\portal\bin\stats.bin; DestDir: {app}\common\portal\bin; Flags: external ignoreversion recursesubdirs createallsubdirs; Check: save_A_portal
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Source: {src}\..\common\half-life 2\hl2\SAVE\*; DestDir: {app}\common\half-life 2\hl2\SAVE; Flags: external ignoreversion recursesubdirs createallsubdirs; Check: save_SAVES_hl2
Source: {src}\..\common\half-life 2 episode one\episodic\SAVE\*; DestDir: {app}\common\half-life 2 episode one\episodic\SAVE; Flags: external ignoreversion recursesubdirs createallsubdirs; Check: save_SAVES_ep1
Source: {src}\..\common\half-life 2 episode two\ep2\SAVE\*; DestDir: {app}\common\half-life 2 episode two\ep2\SAVE; Flags: external ignoreversion recursesubdirs createallsubdirs; Check: save_SAVES_ep2
Source: {src}\..\common\portal\portal\SAVE\*; DestDir: {app}\common\portal\portal\SAVE; Flags: external ignoreversion recursesubdirs createallsubdirs; Check: save_SAVES_portal


[   Code]
/////////////////////////////////////////
var
  hl2_A_CheckBox: TNewCheckBox;
  ep1_A_CheckBox: TNewCheckBox;
  ep2_A_CheckBox: TNewCheckBox;
  portal_A_CheckBox: TNewCheckBox;
  
  hl2_SAVE_CheckBox: TNewCheckBox;
  ep1_SAVE_CheckBox: TNewCheckBox;
  ep2_SAVE_CheckBox: TNewCheckBox;
  portal_SAVE_CheckBox: TNewCheckBox;
/////////////////////////////////////////
function save_A_hl2: Boolean;
  begin
    Result:=hl2_A_CheckBox.Checked;
     end;
     
function save_A_ep1: Boolean;
  begin
    Result:=ep1_A_CheckBox.Checked;
     end;
     
function save_A_ep2: Boolean;
  begin
    Result:=ep2_A_CheckBox.Checked;
     end;
     
function save_A_portal: Boolean;
  begin
    Result:=portal_A_CheckBox.Checked;
     end;
///////////////////////////////////////
function save_SAVES_hl2: Boolean;
  begin
    Result:=hl2_SAVE_CheckBox.Checked;
     end;
     
function save_SAVES_ep1: Boolean;
  begin
    Result:=ep1_SAVE_CheckBox.Checked;
     end;
     
function save_SAVES_ep2: Boolean;
  begin
    Result:=ep2_SAVE_CheckBox.Checked;
     end;
     
function save_SAVES_portal: Boolean;
  begin
    Result:=portal_SAVE_CheckBox.Checked;
     end;

  
////////////////////////// поиск фала по маске  //// начало
var
  // задаём переменную глобально, для всего скрипта
  Mask: string;


function FindFile(Path: string): Boolean;
var
  FSR: TFindRec;
  FindResult: Boolean;

begin
  Result:= False;
  if Path[Length(Path)] <> '\' then Path:= Path + '\';
  FindResult:= FindFirst(Path + Mask, FSR);
  try
    while FindResult do
      begin
        if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
          begin
            Result:= True;
            Exit;
          end;
        FindResult:= FindNext(FSR);
      end;
  finally
    FindClose(FSR);
  end;
end;

function InitializeSetup(): Boolean;
begin
 Result:=True;
end;
/////////  конец


procedure Enable(Sender: TObject);
begin
  WizardForm.NextButton.Enabled := hl2_A_CheckBox.Checked or ep1_A_CheckBox.Checked or ep2_A_CheckBox.Checked or portal_A_CheckBox.Checked or hl2_SAVE_CheckBox.Checked or ep1_SAVE_CheckBox.Checked or ep2_SAVE_CheckBox.Checked or portal_SAVE_CheckBox.Checked;
end;



procedure InitializeWizard;
var
  Size: Integer;
  i: Integer;
  ArrayOfMask: TArrayOfString;
  StartFolder, StartFolder2, StartFolder3, StartFolder4: string;
  
begin
  with WizardForm do 
  begin
    MainPanel.Visible := false;
    Bevel1.Visible := false;
    Bevel.Visible := false;
    InnerNotebook.Width := WizardForm.Width;
    InnerNotebook.Height := WizardForm.Height;
    OuterNotebook.Width := WizardForm.Width;
    OuterNotebook.Height := WizardForm.Height;
    CancelButton.BringToFront;
    NextButton.BringToFront;
    BackButton.BringToFront;
    SelectDirBitmapImage.Visible := False;
    DiskSpaceLabel.Visible := False;
    SelectDirBrowseLabel.Visible := False;
    Caption := '';
    SelectDirLabel.Visible := false;
    DirEdit.Top := ScaleY(220);
    DirBrowseButton.Top := WizardForm.DirEdit.Top;
  end;
  //////////////////////////////////////////////////  чекбоксы достижений
  hl2_A_CheckBox := TNewCheckBox.Create(WizardForm);
    with hl2_A_CheckBox do
      begin
        Name := 'hl2_A_CheckBox';
        Parent := WizardForm.SelectDirPage;
        Left := ScaleX(150);
        Top := ScaleY(132);
        Width := ScaleX(97);
        Height := ScaleY(17);
        Caption := 'достижения hl2';
        Enabled := False;
        OnClick :=@Enable;
      end;
        if FileSize(ExpandConstant('{src}\..\common\half-life 2\bin\stats.bin'), size) then
          if Size > 1078 then
            hl2_A_Checkbox.Enabled:=true;

  ep1_A_CheckBox := TNewCheckBox.Create(WizardForm);
    with ep1_A_CheckBox do
      begin
        Name := 'ep1_A_CheckBox';
        Parent := WizardForm.SelectDirPage;
        Left := ScaleX(150);
        Top := ScaleY(70);
        Width := ScaleX(97);
        Height := ScaleY(17);
        Caption := 'достижения ep1';
        Enabled := False;
        OnClick :=@Enable;
      end;
        if FileSize(ExpandConstant('{src}\..\common\half-life 2 episode one\bin\stats.bin'), size) then
          if Size > 517 then
            ep1_A_CheckBox.Enabled:=true;
            
  ep2_A_CheckBox := TNewCheckBox.Create(WizardForm);
    with ep2_A_CheckBox do
      begin
        Name := 'ep2_A_CheckBox';
        Parent := WizardForm.SelectDirPage;
        Left := ScaleX(150);
        Top := ScaleY(40);
        Width := ScaleX(97);
        Height := ScaleY(17);
        Caption := 'достижения ep2';
        Enabled := False;
        OnClick :=@Enable;
      end;
        if FileSize(ExpandConstant('{src}\..\common\half-life 2 episode two\bin\stats.bin'), size) then
          if Size > 759 then
            ep2_A_CheckBox.Enabled:=true;
            
  portal_A_CheckBox := TNewCheckBox.Create(WizardForm);
    with portal_A_CheckBox do
      begin
        Name := 'portal_A_CheckBox';
        Parent := WizardForm.SelectDirPage;
        Left := ScaleX(150);
        Top := ScaleY(10);
        Width := ScaleX(97);
        Height := ScaleY(17);
        Caption := 'достижения portal';
        Enabled := False;
        OnClick :=@Enable;
      end;
        if FileSize(ExpandConstant('{src}\..\common\portal\bin\stats.bin'), size) then
          if Size > 550 then
            portal_A_CheckBox.Enabled:=true;
  ////////////////////////////////////////////////////  чекбоксы сохранений
  hl2_SAVE_CheckBox := TNewCheckBox.Create(WizardForm);
    with hl2_SAVE_CheckBox do
      begin
        Name := 'hl2_SAVE_CheckBox';
        Parent := WizardForm.SelectDirPage;
        Left := ScaleX(8);
        Top := ScaleY(132);
        Width := ScaleX(97);
        Height := ScaleY(17);
        Caption := 'сохранения hl2';
        Enabled := False;
        OnClick :=@Enable;
      end;
  ep1_SAVE_CheckBox := TNewCheckBox.Create(WizardForm);
    with ep1_SAVE_CheckBox do
      begin
        Name := 'ep1_SAVE_CheckBox';
        Parent := WizardForm.SelectDirPage;
        Left := ScaleX(8);
        Top := ScaleY(70);
        Width := ScaleX(97);
        Height := ScaleY(17);
        Caption := 'сохранения ep1';
        Enabled := False;
        OnClick :=@Enable;
      end;
  ep2_SAVE_CheckBox := TNewCheckBox.Create(WizardForm);
    with ep2_SAVE_CheckBox do
      begin
        Name := 'ep2_SAVE_CheckBox';
        Parent := WizardForm.SelectDirPage;
        Left := ScaleX(8);
        Top := ScaleY(40);
        Width := ScaleX(97);
        Height := ScaleY(17);
        Caption := 'сохранения ep2';
        Enabled := False;
        OnClick :=@Enable;
      end;
  portal_SAVE_CheckBox := TNewCheckBox.Create(WizardForm);
    with portal_SAVE_CheckBox do
      begin
        Name := 'portal_SAVE_CheckBox';
        Parent := WizardForm.SelectDirPage;
        Left := ScaleX(8);
        Top := ScaleY(10);
        Width := ScaleX(97);
        Height := ScaleY(17);
        Caption := 'сохранения portal';
        Enabled := False;
        OnClick :=@Enable;
      end;
  /////////////////////////////////////////////
  StartFolder:= ExpandConstant('{src}\..\common\half-life 2\hl2\SAVE'); // задаём папку откуда начинать поиск
  StartFolder2:= ExpandConstant('{src}\..\common\half-life 2 episode one\episodic\SAVE'); // задаём папку откуда начинать поиск
  StartFolder3:= ExpandConstant('{src}\..\common\half-life 2 episode two\ep2\SAVE'); // задаём папку откуда начинать поиск
  StartFolder4:= ExpandConstant('{src}\..\common\portal\portal\SAVE'); // задаём папку откуда начинать поиск
  ArrayOfMask:= ['*.sav']; // заполняем массив масок для поиска
  for i:= 0 to GetArrayLength(ArrayOfMask)-1 do // перебираем весь масив масок
    begin
      Mask:= ArrayOfMask[i];
      if FindFile(StartFolder) then hl2_SAVE_Checkbox.Enabled := true;
      if FindFile(StartFolder2) then ep1_SAVE_CheckBox.Enabled := true;
      if FindFile(StartFolder3) then ep2_SAVE_CheckBox.Enabled := true;
      if FindFile(StartFolder4) then portal_SAVE_CheckBox.Enabled := true;
    end;
    


end;


procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
end;


procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID=wpSelectDir then
  begin
    WizardForm.NextButton.Enabled := false;
  end;
end;

или архив с файлами
http://sendfile.su/586804