[TROY Diamond]

Здравствуйте!
Подскажите, пожалуйста, код как можно реализовать случайное копирование определенного файла, при каждом новом запуске инсталлятора, Условно говоря у меня есть файл 1.txt, таких файлов будет 10-20-30.
Можно ли сделать так, чтобы при каждом новом запуске-установке чтобы копировался один из этих файлов в папку установки, вне зависимости ни от чего. Просто новая установка - копирование нового файла. Или же запись в этот файл определенного значения из списка который я укажу.
Суть - нужно просто чтобы информация в файле при каждой новой установке менялась или случайно или, пускай даже подряд. Первая установка - первое значение (файл), вторая установка - второй файл (значение).
Это вообще реально сделать?
Никаких задач (компонентов) для выбора пользователю не нужно, а то так бы да, я бы мог предложить пользователю выбрать один их этих файлов. )) Нет, так не надо! Надо чтобы совершенно без участия пользователя, чтобы копировался один и тот же файл в папку установки, но с разным значением или один любой из 10-20-30 файлов, которые я положу отдельно, но имя у них при копировании в папку установки должно быть одно и тоже, т.е. у меня будет 1-2-3-4-5-6-7... txt, где-то лежать до компиляции, а в конечном итоге в папке назначения (установки) должен скопироваться любой из этих файлов, но получить название 1.txt
Помогите, пожалуйста! Желательно для Юникод версии Inno Setup!

[El Sanchez]

Надо чтобы совершенно без участия пользователя, чтобы копировался один и тот же файл в папку установки, но с разным значением »

Код:

[Files]
Source: "1.txt"; DestDir: {app}; Flags: ignoreversion; AfterInstall: WriteRandomFile

[Code]
procedure WriteRandomFile;
begin
  SaveStringToFile(ExpandConstant(CurrentFileName), GetMD5OfString(ExpandConstant('{tmp}')), False);
end;

[Vladimir_02]

Может кому пригодится. Добавление своих строк в файл hosts и удаление их при деинсталляции

Код:

procedure AddLineToFile(FileName, Line: String);
var
  Lines: TStringList;
begin
  // Создаем объект TStringList для чтения файла в память
  Lines := TStringList.Create;
  try
    // Загружаем содержимое файла в TStringList
    Lines.LoadFromFile(FileName);

    // Проверяем, существует ли строка в файле
    if Lines.IndexOf(Line) = -1 then
    begin
      // Если строка не существует, добавляем ее в конец списка
      Lines.Add(Line);

      // Сохраняем изменения обратно в файл
      Lines.SaveToFile(FileName);
    end;
  finally
    // Освобождаем память, занятую объектом TStringList
    Lines.Free;
  end;
end;
          
procedure RemoveLineFromFile(FileName, Line: String);
var
  Lines: TStringList;
begin
  // Создаем объект TStringList для чтения файла в память
  Lines := TStringList.Create;
  try
    // Загружаем содержимое файла в TStringList
    Lines.LoadFromFile(FileName);

    // Ищем индекс строки, которую хотим удалить
    // Если строка найдена, удаляем ее из списка
    while Lines.IndexOf(Line) <> -1 do
      Lines.Delete(Lines.IndexOf(Line));

    // Сохраняем изменения обратно в файл
    Lines.SaveToFile(FileName);
  finally
    // Освобождаем память, занятую объектом TStringList
    Lines.Free;
  end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  HostsFilePath: String;
  LineToAdd1, LineToAdd2, LineToAdd3, LineToAdd4: String;
begin
  // Получаем путь к файлу hosts в системе
  HostsFilePath := ExpandConstant('{sys}\drivers\etc\hosts');
  // Строка, которую мы хотим добавить в файл hosts (для отключение рекламы)
  LineToAdd1 := '127.0.0.1 player.kmpmedia.net';
  LineToAdd2 := '127.0.0.1 log.kmplayer.com';
  LineToAdd3 := '127.0.0.1 cdn.kmplayer.com';
  LineToAdd4 := '127.0.0.1 cdn.pandora.tv';

  // Проверяем, что текущий шаг установки ssPostInstall
  // Это гарантирует, что файл hosts существует до того, как мы попытаемся его изменить
  if CurStep = ssPostInstall then
   begin
    // Проверяем существование файла
    if not FileExists(HostsFilePath) then
    begin
      // Файл не существует, создаем его
      //MsgBox('File not exists!', mbInformation, MB_OK);
      if SaveStringToFile(HostsFilePath, '', False) then
      begin
        // Файл создан успешно, добавляем строку (если такой строки еще нет)
      AddLineToFile(HostsFilePath, LineToAdd1);
      AddLineToFile(HostsFilePath, LineToAdd2);
      AddLineToFile(HostsFilePath, LineToAdd3);
      AddLineToFile(HostsFilePath, LineToAdd4);
      end;
    end
    else
    begin
      // Файл существует, добавляем строку (если такой строки еще нет)
    //MsgBox('File exists!', mbInformation, MB_OK);
    AddLineToFile(HostsFilePath, LineToAdd1);
    AddLineToFile(HostsFilePath, LineToAdd2);
    AddLineToFile(HostsFilePath, LineToAdd3);
    AddLineToFile(HostsFilePath, LineToAdd4);
    end;
  end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  HostsFilePath: String;
  LineToRemove1, LineToRemove2, LineToRemove3, LineToRemove4: String;
begin
  // Получаем путь к файлу hosts в системе
  HostsFilePath := ExpandConstant('{sys}\drivers\etc\hosts');

  // Строка, которую мы хотим удалить из файла hosts
  LineToRemove1 := '127.0.0.1 player.kmpmedia.net';
  LineToRemove2 := '127.0.0.1 log.kmplayer.com';
  LineToRemove3 := '127.0.0.1 cdn.kmplayer.com';
  LineToRemove4 := '127.0.0.1 cdn.pandora.tv';

  // Проверяем текущий шаг деинсталляции
  if CurUninstallStep = usPostUninstall then
  begin
      // Проверяем существование файла
    if not FileExists(HostsFilePath) then
    begin
      // Файл не существует, ничего не делаем
      //MsgBox('File not exists!', mbInformation, MB_OK);
    end
    else
    begin
    // Файл существует. Удаляем строку из файла hosts при деинсталляции
    RemoveLineFromFile(HostsFilePath, LineToRemove1);
    RemoveLineFromFile(HostsFilePath, LineToRemove2);
    RemoveLineFromFile(HostsFilePath, LineToRemove3);
    RemoveLineFromFile(HostsFilePath, LineToRemove4);
    end;
  end;
end;

[mrAndy]

Подскажите, что нужно сделать, что бы после установки корректно отображалась иконка приложения в установке и удалении программ в Windows? Сейчас это выглядит вот так:

[Vanadiy777]

mrAndy,
Можно так:

Код:

[Setup]
UninstallDisplayIcon={app}\MyProg.exe

[PsuchO]

Господа. Спасайте .... вообще 0 во всём этом.
В общем, хочу написать функцию, которая проверяет версию dotNet SDK. Параметр Version находится в реестре по пути \HKEY_LOCAL_MACHINE\SOFTWARE\dotnet\Setup\InstalledVersions\x64\sharedhost
Всё, что удалось сделать, это проверить, что путь \HKEY_LOCAL_MACHINE\SOFTWARE\dotnet\Setup\InstalledVersions\x64\ существует, как таковой
[code]

Код:

function IsDotNetSDKInstalled: Boolean;
var
    dotNetVersion: string;
    reg_key: string; // Просматриваемый подраздел системного реестра
    reg_root: string;
begin
    reg_key := 'SOFTWARE\dotnet\Setup\InstalledVersions\x64\sharedhost';
    reg_root := 'HKEY_LOCAL_MACHINE';
    
  if RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\dotnet\Setup\InstalledVersions\x64\sharedhost') then
  begin
               ???????????????
  end;
end;

Молю, помогите вытащить значение из реестра

[El Sanchez]

хочу написать функцию, которая проверяет версию dotNet SDK. »

PsuchO,

Код:

function IsDotNetSDKInstalled: Boolean;
var
  LSubKeyName: string;
begin
  LSubKeyName := 'SOFTWARE\dotnet\Setup\InstalledVersions\x64\sharedhost';
  Result := RegKeyExists(HKLM32, LSubKeyName) and
    RegValueExists(HKLM32, LSubKeyName, 'Version') and
    DirExists(ExpandConstant('{reg:HKLM32\' + LSubKeyName + ',Path|}'));
end;

[EdMSL]

Приветствую. Хотелось бы выводить на последнем экране время, затраченное на установку. Но что-то не могу найти готового решения. Как это можно сделать, хотя бы в общих чертах?

[ZVSRus]

Хотелось бы выводить на последнем экране время, затраченное на установку.

Данный пример есть в справке. ( версия 6.1.2 )

[ROMKA-1977]

Подскажите пож. возможно ли в секции [Tasks] добавить CheckBox для перехода по веб ссылке ?