Создание жесткой ссылки на DLL-файл в Inno Setup

Delphi , Программа и Интерфейс , Инсталяция

При создании тысяч собственных установщиков, которые требуют для шага деинсталляции критический DLL-файл, может возникнуть желание сэкономить место на диске, храня файл в одном месте и создавая жесткие ссылки для остальных установщиков. В этой статье мы рассмотрим, как создать жесткую ссылку на DLL-файл в Inno Setup без использования внешних приложений, таких как mklink.exe.

Проблема

У вас есть тысячи собственных установщиков, которые требуют критический DLL-файл для шага деинсталляции. Размер файла составляет около 2 МБ, и вы хотите избежать ненужного расхода дискового пространства (2 МБ * 100 установщиков). Вы хотите хранить файл только один раз в каталоге {cf}, а затем создавать жесткие ссылки для следующих установщиков, которым требуется этот файл. Вы хотите знать, можно ли создавать жесткие ссылки в Inno Setup без использования внешних приложений, таких как mklink.exe.

Решение

Inno Setup не поддерживает создание жестких ссылок непосредственно. Тем не менее, вы можете использовать встроенную команду Windows mklink или функцию CreateHardLink из раздела Code для достижения той же цели.

Использование mklink

Если вам не нужно поддерживать Windows XP, вы можете использовать встроенную команду Windows mklink для создания жесткой ссылки. Вот пример кода, демонстрирующий, как это можно сделать:

[Files]
Source: "{#UninstallDll}"; DestDir: "{cf}\{#MyApp}"; \
  Flags: ignoreversion uninsneveruninstall

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  ExistingFile, NewFile: string;
begin
  if CurStep = ssPostInstall then
  begin
    ExistingFile := ExpandConstant('{cf}\{#MyApp}\{#UninstallDll}');
    NewFile := ExpandConstant('{app}\{#UninstallDll}');
    Exec('mklink', ['/H', NewFile, ExistingFile], SW_HIDE, ResultCode, '');
    if ResultCode = 0 then
    begin
      Log('Hardlink created');
    end
      else
    begin
      MsgBox('Cannot create hardlink', mbError, MB_OK);
    end;
  end;
end;

Использование CreateHardLink

Если вам нужно поддерживать Windows XP или вы предпочитаете использовать функцию CreateHardLink, вот пример кода, демонстрирующий, как это можно сделать:

#define MyApp "MyApp"
#define UninstallDll "uninstall.dll"

[Files]
Source: "{#UninstallDll}"; DestDir: "{cf}\{#MyApp}"; \
  Flags: ignoreversion uninsneveruninstall

[Code]
function CreateHardLink(lpFileName, lpExistingFileName: string;
  lpSecurityAttributes: Integer): Boolean;
  external 'CreateHardLinkW@kernel32.dll stdcall';

procedure CurStepChanged(CurStep: TSetupStep);
var
  ExistingFile, NewFile: string;
begin
  if CurStep = ssPostInstall then
  begin
    ExistingFile := ExpandConstant('{cf}\{#MyApp}\{#UninstallDll}');
    NewFile := ExpandConstant('{app}\{#UninstallDll}');
    if CreateHardLink(NewFile, ExistingFile, 0) then
    begin
      Log('Hardlink created');
    end
      else
    if FileCopy(ExistingFile, NewFile, False) then
    begin
      // FAT file system?
      Log('Hardlink could not be created, file copied instead');
    end
      else
    begin
      MsgBox('Cannot install {#UninstallDll}', mbError, MB_OK);
    end;
  end;
end;

Не забудьте также удалить файл при деинсталляции:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
  begin
    if DeleteFile(ExpandConstant('{app}\{#UninstallDll}')) then
    begin
      Log('File deleted');
    end
      else
    begin
      Log('Cannot delete file');
    end;
  end;
end;

Заключение

В этой статье мы рассмотрели, как создать жесткую ссылку на DLL-файл в Inno Setup без использования внешних приложений. Мы изучили два подхода: использование встроенной команды Windows mklink и функцию CreateHardLink из раздела Code. Оба подхода позволят вам сэкономить место на диске, храня файл в одном месте и создавая жесткие ссылки для остальных установщиков.

Создано по материалам из источника по ссылке.

В статье рассматривается создание жесткой ссылки на DLL-файл в Inno Setup без использования внешних приложений, таких как `mklink.exe`, для экономии дискового пространства при создании тысяч собственных установщиков, требующих критичес

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Инсталяция ::