[doctor_allcome]

Добрый день! Уважаемые форумчане, кто нибудь может поделиться примером проверки MD5, для нескольких файлов?
По возможности для стандартного Inno, а не для модов (ResTools).

[kotyarko@fb]

Уважаемые форумчане, кто нибудь может поделиться примером проверки MD5, для нескольких файлов? По возможности для стандартного Inno, а не для модов (ResTools). »

Пример:

Код:

Procedure InitializeWizard();
var
 TFR: TFindRec;
 Filename, Msg: String;
begin
 if FindFirst(ExpandConstant('{src}\*'), TFR) then
 try
  repeat
   if (TFR.Name <> '.') and (TFR.Name <> '..') then
    if TFR.Attributes <> FILE_ATTRIBUTE_DIRECTORY then
    begin
     Filename := ExpandConstant('{src}\') + ExpandConstant(TFR.Name);
     Msg := Msg + Filename + '; MD5: ' + GetMD5OfFile(Filename) + #13#10;
    end;
  until not FindNext(TFR);
 finally
  MsgBox(Msg, mbInformation, MB_OK);
  FindClose(TFR);
 end;
end;

[HomeBasic]

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

какой параметр использовать, чтобы всегда setup спрашивал путь установки, независимо от того, стоИт ли эта версия программы или нет?

[doctor_allcome]

Добрый день! Прошу помощи! Есть код, срабатывающий при деинсталляции. Удаляет папку приложения полностью. Необходимо что-бы одна папка (СОХРАНЕНИЯ) не удалялась. Если "СОХРАНЕНИЯ" находятся в Documents and Settings или еще где, то все срабатывает нормально. Но если "СОХРАНЕНИЯ" находятся в {app}\ , то удаляется все из {app}\ включая "СОХРАНЕНИЯ".

Скрытый текст

procedure CurUninstallStepChanged (CurUninstallStep: TUninstallStep);
begin
case CurUninstallStep of
usPostUninstall:
begin
DelTree(ExpandConstant('{app}'),true,true,true);

end;
end;

if CurUninstallStep=usPostUninstall then
begin
if DirExists(ExpandConstant('{app}'+'\СОХРАНЕНИЯ') then
if MsgBox('Вы хотите удалить сохранения?',mbconfirmation, mb_YesNo) = IDYES then
begin
if not DelTree(ExpandConstant('{app}')+'\СОХРАНЕНИЯ', True, True, True) then
MsgBox('Папка с сохранениями не удалена!' #13#13 'Папка не существует или используется другим приложением ...', mbError, MB_OK);
end;
end;
end;

[ZVSRus]

какой параметр использовать

Попробуйте так:

DirExistsWarning=yes

[El Sanchez]

какой параметр использовать, чтобы всегда setup спрашивал путь установки, независимо от того, стоИт ли эта версия программы или нет? »

HomeBasic,

Код:

DisableDirPage=no

Есть код, срабатывающий при деинсталляции. Удаляет папку приложения полностью. Необходимо что-бы одна папка (СОХРАНЕНИЯ) не удалялась. Если "СОХРАНЕНИЯ" находятся в Documents and Settings или еще где, то все срабатывает нормально. Но если "СОХРАНЕНИЯ" находятся в {app}\ , то удаляется все из {app}\ включая "СОХРАНЕНИЯ". »

doctor_allcome,

Код:

[Dirs]
Name: "{app}\СОХРАНЕНИЯ"; Flags: uninsneveruninstall

[vint56]

Привет всем прошу помощи не отображаются иконки в ComboBox при Style := csDropDownList;

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

; Автор примера sergey3695
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
Source: Setup1.ico; DestDir: {tmp}; Flags: dontcopy; Attribs: hidden system;
Source: Setup2.ico; DestDir: {tmp}; Flags: dontcopy; Attribs: hidden system;

[code]
var
ComboBoxImage: TNewComboBox;
ImageList: TImageList;


procedure ComboBox1DrawItem(Control: TWinControl; index:Integer; Rect: TRect; State: TOwnerDrawState);
begin
ComboBoxImage.Canvas.FillRect(Rect);
ImageList.Draw(ComboBoxImage.Canvas,Rect.left,Rect.top,index);
ComboBoxImage.canvas.textout(Rect.left+ImageList.Width+2,Rect.top, ComboBoxImage.items[index]);
end;


function AddIconInList(ImageList: TImageList; FileName: String): Integer;
var
Icon: TIcon;
begin
Icon := TIcon.Create;
try
Icon.LoadFromFile(FileName);
Result := ImageList.AddIcon(Icon);
finally
Icon.Free;
end;
end;

procedure InitializeWizard();
begin
ExtractTemporaryFile('Setup1.ico');
ExtractTemporaryFile('Setup2.ico');

ImageList := TImageList.Create(nil);
AddIconInList(ImageList, ExpandConstant('{tmp}\Setup1.ico'));
AddIconInList(ImageList, ExpandConstant('{tmp}\Setup2.ico'));

ComboBoxImage := TNewComboBox.Create(WizardForm);
with ComboBoxImage do
begin
Parent := WizardForm;
Left := ScaleX(15);
Top := ScaleY(322);
Width := ScaleX(190);
Height := ScaleY(31);
// Style:= csOwnerDrawVariable;
Style := csDropDownList;
Font.Color := clWindowText;
Font.Height := -13;
Font.Name := 'Tahoma';
Font.Style := [];
ParentFont := False;
Text := 'Directx 9';
Items.Add('Directx 9');
Items.Add('Directx 11');
ItemIndex:=0;
OnDrawItem:= @ComboBox1DrawItem;
end;
end;

[HomeBasic]

ZVSRus,
к сожалению, ваш параметр DirExistsWarning=yes для моего случая не подходит...

El Sanchez,
спасибо, ваш параметр DisableDirPage=no - то что надо, при повторном запуске setup, он просит указать директорию установки... отлично...

[doctor_allcome]

El Sanchez,

Код:

 [Dirs]
Name: "{app}\СОХРАНЕНИЯ"; Flags: uninsneveruninstall

Не срабатывает

Код:

begin
case CurUninstallStep of
usPostUninstall:
begin
DelTree(ExpandConstant('{app}'),true,true,true);
end;
end;

Удаляет все. А должно удаляться только при при выполнении условия

Код:

if MsgBox('Вы хотите удалить сохранения?',mbconfirmation, mb_YesNo) = IDYES then ....

[El Sanchez]

Удаляет все. А должно удаляться только при при выполнении условия »

doctor_allcome,

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  case CurUninstallStep of
    usUninstall:
      if DirExists(ExpandConstant('{app}\СОХРАНЕНИЯ')) and      
      (MsgBox('Вы хотите удалить сохранения?', mbConfirmation, MB_YESNO) = IDYES) then      
        if not DelTree(ExpandConstant('{app}\СОХРАНЕНИЯ'), True, True, True) then
          MsgBox('Папка с сохранениями не удалена!'#13#10'Папка используется другим приложением...', mbError, MB_OK);
  end;  
end;

не отображаются иконки в ComboBox при Style := csDropDownList; »

vint56, при данном стиле и не должны.