[ZVSRus]

Требуется помощь.

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

Source: "{app}\msimg32.dll"; DestDir: "{app}"; MinVersion: 0.0,5.0; Flags: ignoreversion sharedfile uninsnosharedfileprompt
Данная DLL'ка добавлена в дистрибутив для регистрации. DLL'ка с таким-же именем есть в System32/
При удалении программы dll'ка не удаляется. Решение найдено такое.

Код:

[UninstallDelete]
 Type: files; Name: "{app}\msimg32.dll";
 
Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);                                                       
begin                                                                                                                      
 if (CurUninstallStep = usPostUninstall)  then                                                                             
  UnloadDLL(ExpandConstant('{app}\msimg32.dll'));                                                                          
  DeleteFile(ExpandConstant('{app}\msimg32.dll'));                                                                         
//  MoveDir(ExpandConstant('{app}\'),ExpandConstant('{app}')); 
  RemoveDir(ExpandConstant('{app}')); 
  DelTree(ExpandConstant('{app}'), True, True, True);                                                                      
  RemoveDir(ExpandConstant('{pf}\ObviousIdea'));

После данной процедуры все удаляется в чистую, но сообщение Деинсталляция %1 завершена.%n%nЧасть элементов не удалось удалить. Вы можете удалить их самостоятельно. как было так и осталось, хотя нигде ничего нету.
Решение нашёл такое.

[Messages]
UninstalledMost=Программа %1 была полностью удалена с вашего компьютера.

Думаю что данное решение не совсем правильное.
В связи с тем что в System32 есть DLL'ка с таким -же именем что и для регистрации, думаю что деинсталлятор реагирует на нее и по этому выдаёт сообщение что не все удалилось.
Думаю к строке Source: нужно добавить какие то флаги, чтобы деинсталлятор не реагировал на системную DLL msimg32.dll.
Помогите решить данную проблему.

[El Sanchez]

Нашёл вроде бы неплохой код для проверки на наличие определённого обновления Windows https://theroadtodelphi.wordpress.co...i-wmi-and-wua/ »

Raf-9600, он плох тем, что, во-первых, долго выполняется метод Search, на моей Windows 7 x64 ~15 мин, на XP ~2 мин, во-вторых, сравнивать параметр функции со свойством Title не есть хорошо, нужно использовать KBArticleIDs.

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

Код:

//////////////////////////////////////////////////////////////
function IsHotFixIDInstalled(const HotFixID: string): Boolean;
var
  UpdateSession, UpdateSearcher, UpdateSearchResult,
  UpdateCollection, UpdateItem: Variant;
  i, j, UpdatesCount: Integer;
begin
  Result := False;
  UpdateSession := CreateOleObject('Microsoft.Update.Session');
  UpdateSearcher := UpdateSession.CreateUpdateSearcher;
  UpdateSearcher.Online := False;
  UpdateSearchResult := UpdateSearcher.Search('IsInstalled = 1 and Type=''Software''');
  UpdateCollection := UpdateSearchResult.Updates;
  UpdatesCount := StrToIntDef(UpdateCollection.Count, 0);
  for i := 0 to UpdatesCount - 1 do
  begin
    UpdateItem := UpdateCollection.Item[i];
    for j := 0 to UpdateItem.KBArticleIDs.Count - 1 do
    begin
      Result := (CompareText(string(UpdateItem.KBArticleIDs.Item[j]), HotFixID) = 0);
      if Result then Exit;
    end;
  end;
end;

///////////////////////////
procedure InitializeWizard;
begin
  if IsHotFixIDInstalled('2483139') then
    MsgBox('yes', mbInformation, MB_OK);
end;

Source: "{app}\msimg32.dll"; DestDir: "{app}"; MinVersion: 0.0,5.0; Flags: ignoreversion sharedfile uninsnosharedfileprompt Данная DLL'ка добавлена в дистрибутив для регистрации. DLL'ка с таким-же именем есть в System32/ »

ZVSRus, ну и зачем ее [msimg32.dll] копия в {app}? Или не копия? И зачем заводить еще и счетчик ссылок?

[ZVSRus]

ну и зачем ее [msimg32.dll] копия в {app}? Или не копия?

Нет эта DLL (msimg32.dll) не копия, идет в архиве с программой для регистрации.
(Поместить файл из раздачи msimg32.dll в папку с установленной программой.)

[vadjliss]

ребята если у меня не сколько вот таких секций то как их объединить?
procedure CurPageChanged(CurPageID: Integer)

а, то выдаёт ошибку

[kotyarko@fb]

vadjliss,

Код:

Procedure CurPageChanged1(CurPageID: Integer);
begin
 ...
end;

Procedure CurPageChanged2(CurPageID: Integer);
begin
 ...
end;

Procedure CurPageChanged(CurPageID: Integer);
begin
 CurPageChanged1(CurPageID);
 CurPageChanged2(CurPageID);
end;

[nik1967]

vadjliss, а лучше всё в одной процедуре объединить. Чтобы путаницы не было.

[saurn]

ребята если у меня не сколько вот таких секций то как их объединить? procedure CurPageChanged(CurPageID: Integer) »

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

Код:

procedure CurPageChanged( CurPageID: Integer );
begin
   задача 1
   задача 2
end;

procedure CurPageChanged( CurPageID: Integer );
begin
   задача 3
   задача 4
end;

procedure CurPageChanged( CurPageID: Integer );
begin
    задача 1
    задача 2
    задача 3
    задача 4
end;

Ой, nik1967 уже пояснил. Ну да ладно.)

[Карась з Днiпра]

Добрый день. Подскажите пожалуйста, какие команды нужно дописать в скрипт, чтобы в случае если в директории установки программы будет найден файл с определенным именем, он будет удален автоматически. И еще одна проблемка. Если знаете, помогите плис. Столкнулся с тем, что Win10 блокирует инсталлятор. Тут я вообще безсилен, так как никогда не работал с этой ОС.

[Gamattinol]

Снимок экрана (51).pngКак сделать такой компонент ?

[ZVSRus]

Как сделать такой компонент ?

script

Код:

[Setup]
 AppName=Notepad
 AppVersion=1.5
 DefaultDirName={pf}\Notepad

[Code*]
var
  NewGroupBox: TNewGroupBox;

procedure InitializeWizard();
begin
  NewGroupBox := TNewGroupBox.Create(WizardForm);
  with NewGroupBox do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(0);
    Top := ScaleY(100);
    Width := ScaleX(417);
    Height := ScaleY(60);
    Caption := 'Папка установки:';
  end;

  NewGroupBox.TabOrder := 5;

  with WizardForm.DirBrowseButton do
  begin
    Left := ScaleX(334);
    Top := ScaleY(23);
    Parent := NewGroupBox;
  end;

  with WizardForm.DirEdit do
  begin
    Left := ScaleX(8);
    Top := ScaleY(24);
    Width := ScaleX(320);
    Parent := NewGroupBox;
  end;
end;