[djbionicl]

Определите где программа хранит свои рег. данные и занесите их в свой установщик. Как это сделать можно найти в интернете. »

Вот я и нашёл форум и спрашиваю. Больше ни где нет информации, либо она на английском.

[Dodakaedr]

Больше ни где нет информации, либо она на английском. »

Действительно?

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

Введите в googl'e "Как отследить изменения в системе после установки программы?"

[a.k.a. Rasputin]

Цитата Dodakaedr:
Путь берется из ключа реестра деинсталлятора. В справке в разделе "Константы" есть небольшое описание получения значения. »
еще раз спасибо!

С бэкапом небольшая загвоздка выходит.
В папке Data находятся файлы для бэкапа - Data/Файлы
После бэкапа имеем такую структуру - Backup/Data/Файлы. А вот после деинсталляции получается так - Data/Data/Файлы, а должно Data/Файлы, т.е. файлы возвращаются в папке.

На всякий случай кусок кода, возможно, я что-то неправильно делаю

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

Код:

[Files]
Source: "F:\Data\*.assets"; DestDir: "{app}\Data"; BeforeInstall: "BackupFile()"; Flags: ignoreversion
;Source: "{app}\2.txt"; DestDir: "{app}"; BeforeInstall: "BackupFile()"; Flags: ignoreversion
;Source: "{app}\1.cjstyles"; DestDir: "{app}\cjstyles"; BeforeInstall: "BackupFile()"; Flags: ignoreversion
;Source: "{app}\1.rtf"; DestDir: "{app}\txt"; BeforeInstall: "BackupFile()"; Flags: ignoreversion
;Source: "{app}\1.zip"; DestDir: "{app}\zip"; BeforeInstall: "BackupFile()"; Flags: ignoreversion

[code] 
type
#ifdef UNICODE
#define A "W"
PChar = PAnsiChar;
#else
#define A "A"
#endif
   TSHFileOpStruct =  record
     Wnd: HWND;
     wFunc: UINT;
     pFrom: PChar;
     pTo: PChar;
     fFlags: Word; 
     fAnyOperationsAborted: BOOL;
     hNameMappings: HWND; 
     lpszProgressTitle: PChar; 
   end;
   
const
   FO_MOVE            = $0001;
   FO_COPY            = $0002;
   FOF_SILENT         = $0004;
   FOF_NOCONFIRMATION = $0010;
   FOF_FILESONLY      = $0080;
   FOF_NOCONFIRMMKDIR = $0200;

function SHFileOperation(const lpFileOp: TSHFileOpStruct):Integer; external 'SHFileOperation@shell32.dll stdcall';

procedure BackupFile();
var
file, backFile, backpath: string;
begin
if FileExists(ExpandConstant(CurrentFileName)) then
begin
File := ExpandConstant(CurrentFileName);
backpath := file;
StringChangeEx(backpath, ExpandConstant('{app}'), '', True);
backFile := ExpandConstant('{app}\Backup') + backpath;
ForceDirectories(ExtractFilePath(backfile));
RenameFile(file, backfile);
end;
end;

function BackupDir(const fromDir, toDir: ansistring; IsMove: Boolean): Boolean;
var
  fos: TSHFileOpStruct;
  _fromDir, _toDir: ansistring;
  SR: TFindRec;
  res: Boolean;
begin
    ForceDirectories(toDir);
  if IsMove then
    fos.wFunc  := FO_MOVE else
    fos.wFunc  := FO_COPY;
    fos.fFlags := FOF_FILESONLY or FOF_SILENT or
               FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
    _fromDir:= AddBackslash(fromDir);
    _toDir  := AddBackslash(toDir);
  if (Length(fromDir) = Length(_fromDir)) then
    begin
        res:= FindFirst(_fromDir + '*', SR);
      try
        while res do
        begin
          if (SR.Name <> '') and (SR.Name <> '.') and (SR.Name <> '..') then
          begin
            if SR.Attributes = FILE_ATTRIBUTE_DIRECTORY then
              begin
                _fromDir:= _fromDir + SR.Name + #0#0;
                _toDir  := _toDir + #0#0;
                fos.pFrom  := PChar(_fromDir);
                fos.pTo    := PChar(_toDir);
              end else
              begin
                _fromDir:= _fromDir + SR.Name + #0#0;
                _toDir  := _toDir   + SR.Name + #0#0;
                fos.pFrom  := PChar(_fromDir);
                fos.pTo    := PChar(_toDir);
              end;
                Result := (0 = ShFileOperation(fos));
                _fromDir:= ExtractFilePath(_fromDir);
                _toDir:= ExtractFilePath(_toDir);
          end;
          res := FindNext(SR);
        end;
      finally
        FindClose(SR);
      end;
    end else
    begin
      _fromDir:= RemoveBackslashUnlessRoot(_fromDir) + #0#0;
      _toDir  := RemoveBackslashUnlessRoot(_toDir)   + #0#0;
      fos.pFrom  := PChar(_fromDir);
      fos.pTo    := PChar(_toDir);
      Result := (0 = ShFileOperation(fos));
    end;
end;

procedure RestoreBackup(backDir: string);
begin
BackupDir(backDir, ExpandConstant('{app}'), True);
DelTree(backDir, true, true, true);
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usdone then
begin
RestoreBackup(ExpandConstant('{app}\Backup\'));
end;
end;

[vadjliss]

как убрать но что бы по умолчанию ярлык устанавливался на рабочий стол

[saurn]

как убрать но что бы по умолчанию ярлык устанавливался на рабочий стол »

Удалите из секции [Tasks] задачу, отвечающую за создание ярлыка.

Код:

[Tasks]
Name: desktopicon; Description: "Создать значек на Рабочем столе"

Или полностью удалите секцию [Tasks] из скрипта, если в ней нет других задач.
Создание ярлыка в секции [Icons] оформите следующим образом:

Код:

[Icons]
;для всех пользователей
Name: "{commondesktop}\имя программы"; Filename: "{app}\имя файла.exe"; WorkingDir: "{app}";
;для текущего пользователя
Name: "{userdesktop}\имя программы"; Filename: "{app}\имя файла.exe"; WorkingDir: "{app}";

Более подробно можно почитать в справке.

[Nordek]

vadjliss, Удалите:

Код:

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

В секции [Icons] найдите похожую строку:

Код:

Name: {commondesktop}\My Program; Filename: {app}\MyProg.exe; Tasks: desktopicon

в содержимом найдите Tasks: desktopicon и удалите, т.е чтоб вместо

Код:

Name: {commondesktop}\My Program; Filename: {app}\MyProg.exe; Tasks: desktopicon

получилось

Код:

Name: {commondesktop}\My Program; Filename: {app}\MyProg.exe;

[djbionicl]

Введите в googl'e "Как отследить изменения в системе после установки программы?" »

Отследил, а как в инно сетап вставить?

[Nordek]

Отследил, а как в инно сетап вставить? »

Что вы отследили и чем?
Если вам нужно в скрипт импортировать содержимое реестра, то воспользуйтесь инструментом Converter: ссылка на сообщение есть в первом сообщении данной темы внутри спойлера "Дополнительные программы для Inno Setup". Если не увидели, вот вот прямая ссылка на сообщение #86.

Или используйте инструмент Inno Script Studio.
Скачайте и установите Inno Script Studio.
Откройте скрипт с помощью Inno Script Studio.
Переместите курсор мыши на секцию "Registry/Реестр"
Нажмите по "Registry/Реестр".
Переместите reg-файл в пустую область.

[Dodakaedr]

С бэкапом небольшая загвоздка выходит. »

Не вижу никаких загвоздок. Все работает!

[vadjliss]

спасибо большое парни