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

vitl,
код рабочий джигурда процентов

Код:

[Setup]
AppName=Обновление Флеш-версии
AppVerName=Обновление
UsePreviousAppDir=no
AppendDefaultDirName=no
AllowRootDirectory=yes
DirExistsWarning=no
DefaultDirName={code:Pathapp}
DisableStartupPrompt=yes
DisableReadyPage=yes
; DisableFinishedPage=yes
DisableDirPage=True
DisableProgramGroupPage=yes
OutputBaseFilename=Updater_Fl
Compression=lzma
SolidCompression=yes
Uninstallable=false
//WizardImageFile=SFXLogo3.bmp

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
; Source: "{src}\utils\*"; DestDir: "{app}\"; Flags: external recursesubdirs skipifsourcedoesntexist

Source: filenull; DestDir: {tmp}; BeforeInstall: BackUp; Flags: ignoreversion
Source: Settings\Client\*; DestDir: {app}\Settings\Client\; BeforeInstall: ChangeCaption('\Settings\Client\'); Flags: ignoreversion recursesubdirs createallsubdirs
Source: utils\; DestDir: {app}\utils\; BeforeInstall: ChangeCaption('\utils\'); Flags: ignoreversion recursesubdirs createallsubdirs


[*Code]

var Drive_Letter : string;

procedure ChangeCaption(str: string);
    begin
    WizardForm.StatusLabel.Caption:= str;
end;

Function InitializeSetup: Boolean;
var i : Integer;
begin
Drive_Letter := ''; i:= Ord('a');
while ( (Length(Drive_Letter)=0) and (i<=Ord('z')) )
do begin
if FileExists(Chr(i)+':\markerfile') then Drive_Letter := Chr(i);
i := i +1;
end;
if (Length(Drive_Letter) > 0) then begin
  Result := True
  end
  else begin
  MsgBox('флэшка не найдена', mbError, mb_Ok);
  Result := False;
  end;
end;

function Pathapp(String:String): String;
begin
if (Length(Drive_Letter) > 0) then Result := Drive_Letter +':\' else Result := ExpandConstant('{tmp}');
end;

procedure copyfiles(fromfile, tofile:string);
var res : integer;
begin
  Exec('cmd.exe', ' /c xcopy /Y ' + AddQuotes(fromfile) + ' ' + AddQuotes(tofile),ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
end;

Procedure backUp();
begin
ChangeCaption('BackUp');
If DirExists (Drive_Letter +':\'+'Settings\Client\') then copyfiles(Drive_Letter +':\'+'Settings\Client\*', Drive_Letter +':\'+'Backup\'+GetDateTimeString('YYYYMMDD_hh:nn:ss', '-', '-')+'\Settings\Client\');
if DirExists (Drive_Letter +':\'+'utils\') then copyfiles(Drive_Letter +':\'+'utils\*', Drive_Letter +':\'+'Backup\'+GetDateTimeString('YYYYMMDD_hh:nn:ss', '-', '-')+'\utils\');
end;

[vitl]

[*Code] »

1.) Заработало, когда исправил на [code]
Спасибо, R.i.m.s.k.y.

2.) Но почему то не обновляются файлы (при запуске готового EXE-ка), а только бэкапятся. В чем м.б. проблема? При компиляции такого нет.

3.) Что делает код? (см. ниже)

Source: filenull; DestDir: {tmp}; BeforeInstall: BackUp; Flags: ignoreversion »

4.) Еще вопрос по тому-же скрипту: что изменить в коде, чтобы копировались в backup только те файлы, которые обновляются?

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

vitl,
1. пожалуйста
2. строчка Source: Settings\Client\*; DestDir: {app}\Settings\Client\; копирует обновления, проверяйте пути, можно в ее изменить, добавить AfterInstall: MsgBox(ExpandConstant('{app}\Settings\Client\'), mbError, mb_Ok) - будет выводится путь куда пишется, хотя это должно писаться над зеленой колбасой
3. бэкапит, nullfile - любой левый мелкий файлик, можно и через CurStepChanged, но это следующий уровень
4. писать руками имена файлов в Procedure backUp()

[vitl]

проверяйте пути, можно в ее изменить »

1.) а можно ли организовать все так:
на одном уровне с ЕХЕ-ком положить каталог UPD\, который содержит обновленные папки с файлами (т.е. Settings\Client\ и UTILS\), как и в корне флешки?
Чтобы из UPD\ подхватывались обновления - чтобы не дописывать каждый раз скрипт при изменении в последующих обновлениях.
Т.е. в дистрибе с обновлениями папка UPD\ будет повторять корень флешки.

2.) Еще вопрос по тому-же скрипту: что изменить в коде, чтобы копировались в backup только те файлы, которые обновляются?

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

vitl,
1. Source: {src}\upd\Settings\Client\*; ... Flags: external
2. см 4 выше, ручками дописываешь в процедуру backup в copyfiles(Drive_Letter +':\'+'Settings\Client\file1', Drive_Letter +':\'+'Backup\'+GetDateTimeString('YYYYMMDD_hh:nn:ss', '-', '-')+'\Settings\Client\');
Можно конечно замутить опрос в цикле {src} и бэкап, но а) сложность не оправдывается целями ибо б) полные бэкапы спасут мир, а инкрементные следует предать анафеме

[gvshil]

Прошу помощи:

Во время установки запускается процесс, нужно дождаться появления его окна и убить процесс.

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

[Run]
Filename: {app}\MyProg.exe; Parameters: -init
Filename: {sys}\taskkill.exe; Parameters: /f /im MyProg.exe; Flags: runhidden waituntilidle

Не убивается процесс.

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

gvshil, а что делает точка с запятой в имени экзешника?

[gvshil]

а что делает точка с запятой в имени экзешника? »

Да это опечатка, в скрипте MyProg.exe;

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

gvshil,
а руками из комстроки он прибивается?

[gvshil]

R.i.m.s.k.y.
Отписал в РМ.