Monday, December 19, 2016

Создаем правильный dclusr.res для Turbo Delphi

  • Удалить dclusr.res

  • Удалить dclusr.dcu

  • В файле dclusr.bdsproj удалить все теги <Excluded_Packages>

  • В файле dclusr.bdsproj указать текст:

      <VersionInfo>
          <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
          <VersionInfo Name="AutoIncBuild">False</VersionInfo>
          <VersionInfo Name="MajorVer">10</VersionInfo>
          <VersionInfo Name="MinorVer">0</VersionInfo>
          <VersionInfo Name="Release">2151</VersionInfo>
          <VersionInfo Name="Build">25345</VersionInfo>
          <VersionInfo Name="Debug">False</VersionInfo>
          <VersionInfo Name="PreRelease">False</VersionInfo>
          <VersionInfo Name="Special">False</VersionInfo>
          <VersionInfo Name="Private">False</VersionInfo>
          <VersionInfo Name="DLL">True</VersionInfo>
          <VersionInfo Name="Locale">1033</VersionInfo>
          <VersionInfo Name="CodePage">1252</VersionInfo>
      </VersionInfo>
      <VersionInfoKeys>
          <VersionInfoKeys Name="CompanyName">Borland Software Corporation</VersionInfoKeys>
          <VersionInfoKeys Name="FileDescription">Borland User's Components</VersionInfoKeys>
          <VersionInfoKeys Name="FileVersion">10.0.2151.25345</VersionInfoKeys>
          <VersionInfoKeys Name="InternalName">DCLUSR100</VersionInfoKeys>
          <VersionInfoKeys Name="LegalCopyright">Copyright © 1997-2005 Borland Corporation</VersionInfoKeys>
          <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
          <VersionInfoKeys Name="OriginalFilename">DCLUSR100.BPL</VersionInfoKeys>
          <VersionInfoKeys Name="ProductName">Borland Package Library</VersionInfoKeys>
          <VersionInfoKeys Name="ProductVersion">10.0</VersionInfoKeys>
          <VersionInfoKeys Name="Comments"></VersionInfoKeys>
      </VersionInfoKeys>
    
  • Распаковать файл в формате base64 в бинарный файл dclusr_sig.bin:

      MIME-Version: 1.0
      Content-Type: application/octet-stream; name="dclusr_sig.bin"
      Content-Transfer-Encoding: base64
      Content-Disposition: attachment; filename="dclusr_sig.bin"
    
      agAAAGQAYwBsAHUAcwByADEAMAAwAC4AYgBwAGwAAAAxADAALgAwAC4AMgAxADUAMQAuADIANQAz
      ADQANQAAABpTxSTqM+vy2b1bANTQz/Siyn+i8UwpU8Bgd04XvLYkLB9SswkcN/p5Hx5u6hJAAAAA
      YCQzpMRX0rFuJz46NdydJiUAVGXTVXN5ow9eQUgleOID2+RgNjOVfFCWGICZM5hWGxR1M80BuIf/
      HBO/qfvEVQ==
    
  • Создать файл dclusr_sig.rc:

      LANGUAGE 9, SUBLANG_DEFAULT
      BORLAND_SIG 10 "dclusr_sig.bin"
    
  • Скомпилировать dclusr_sig.rc в dclusr_sig.res, например так:
    brcc32.exe dclusr_sig.rc или
    brc32.exe dclusr_sig.rc

  • Добавить в файл dclusr.dpk строку {$R dclusr_sig.res}

  • Открыть dclusr.bdsproj в Delphi, сделать Build и Install

Цель: в файл dclusr100.bpl должен попасть небольшой бинарный файл - «ключ» (тот что дан выше в base64) и правильная информация о версии. Сделать это можно разными способами, здесь указан один из возможных.

No comments:

Post a Comment