[pollipen]

Друзья может кто подскажет как сделать что бы при обновлении программы не выскакивала вот эта зараза

[TheLeon]

El Sanchez, можете сказать версию программы, которая стоит у вас(именно эта ошибка мне портила тогда всю картину)?
Снимок.JPG

[Iska]

как сделать что бы при обновлении программы не выскакивала вот эта зараза »

Для начала — определиться, чем именно «эта зараза» обусловлена: нет прав, файл в данный момент используется, нужна ли дерегистрация библиотеки и т.д.

[pollipen]

файл в данный момент используется

[Iska]

файл в данный момент используется »

Копайте дальше — чем именно используется. Process Explorer и Process Monitor в помощь. Если Проводник — как именно им используется, «отпустит» ли после дерегистрации библиотеки.

[El Sanchez]

именно эта ошибка мне портила тогда всю картину »

TheLeon, вместо ItemCount напишите Items.Count

[TheLeon]

El Sanchez, огромное спасибо.

[pollipen]

проблема решена, сделал папку с программой системной теперь при обновлении программы ошибки не выдаёт

[vvVVvv VV vvVVvv]

Здравствуйте.
Подскажите пожалуйста,как сделать выбор папки пуск на странице выбора папки установки и там же расположить создание ярлыка на рабочий стол и папки пуск?

[ZVSRus]

vvVVvv VV vvVVvv, из Справки

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

Код:

 #define MyAppName "My Program"
 #define MyAppVerName "My Program 1.5"
 #define MyAppPublisher "My Company, Inc."
 #define MyAppURL "http://www.example.com/"
 #define MyAppExeName "MyProg.exe"

[Setup]
 AppId={{295875A7-8789-4313-8438-D809C261C4A7}
 AppName={#MyAppName}
 AppVerName={#MyAppVerName}
 AppPublisher={#MyAppPublisher}
 DefaultDirName={pf}\{#MyAppName}
 DefaultGroupName={#MyAppName}
 OutputBaseFilename=setup
 OutputDir=.
 DisableProgramGroupPage=true

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

[Files]
 Source: "compiler:Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[Icons]
 Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Check: MakeStartMenuIcon
 Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Check: MakeDesktopIcon

[Run]
 Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#MyAppName}}"; Flags: nowait postinstall skipifsilent

[Code__]
 var StartMenuIcon,DesktopIcon: TCheckBox;

 function MakeDesktopIcon: Boolean; begin Result:=DesktopIcon.Checked; end;
 function MakeStartMenuIcon: Boolean; begin Result:=StartMenuIcon.Checked; end;

 procedure NoStartMenuIcon(Sender: TObject);
 begin
 if StartMenuIcon.Checked = false then
 begin
 wizardform.GroupEdit.enabled:= false;
 wizardform.GroupBrowseButton.enabled:= false;
 end
 else
 begin
 wizardform.GroupEdit.enabled:= true;
 wizardform.GroupBrowseButton.enabled:= true;
 end;
 end;

 procedure InitializeWizard ();
 begin
 wizardform.SelectDirBitmapImage.free;

 wizardform.GroupEdit.parent:= wizardform.SelectDirPage;
 wizardform.GroupEdit.top:= wizardform.GroupEdit.top + ScaleY(60);

 wizardform.GroupBrowseButton.parent:= wizardform.SelectDirPage;
 wizardform.GroupBrowseButton.top:= wizardform.GroupBrowseButton.top + ScaleY(60);

 wizardform.SelectDirLabel.left:= wizardform.GroupEdit.left;

 wizardform.SelectStartMenuFolderLabel.parent:= wizardform.SelectDirPage;
 wizardform.SelectStartMenuFolderLabel.left:= wizardform.GroupEdit.left;
 wizardform.SelectStartMenuFolderLabel.top:= wizardform.GroupEdit.top - ScaleY(25);

 DesktopIcon := TCheckBox.Create(WizardForm);
 DesktopIcon.Parent := WizardForm.SelectDirPage;
 DesktopIcon.Caption := 'Добавить ярлык на Рабочий стол';
 DesktopIcon.SetBounds(ScaleX(0),WizardForm.DirEdit.Top+ScaleY(90),ScaleX(400),ScaleY(25));
 DesktopIcon.TabOrder := 0;
 DesktopIcon.Checked:= true;

 StartMenuIcon := TCheckBox.Create(WizardForm);
 StartMenuIcon.Parent := WizardForm.SelectDirPage;
 StartMenuIcon.Caption := 'Создать папку в меню Пуск';
 StartMenuIcon.SetBounds(ScaleX(220),WizardForm.DirEdit.Top+ScaleY(90),ScaleX(400),ScaleY(25));
 StartMenuIcon.TabOrder := 0;
 StartMenuIcon.Checked:= true;
 StartMenuIcon.OnClick:= @NoStartMenuIcon;
 end;