Проблема IsWin7Logo

Вроде на ботве сделать нельзя но я могу ошибаться но есть такой пример
 

Вложения

vint56, можно отказаться от ботвы в плане лого. Я пытался прикрутить iswin7logo удалив предварительно лого, но выкидывает ошибку перед удалением т.к скорей всего не правильно прикрутил iswin7logo для деинсталлятора
 
Последнее редактирование:
Xabib2302, вот проверяйте
Код: 
#define Name "CrystalDiskInfo"
#define Version "7.0.3"
#define ExeX86 "DiskInfo32.exe"
#define ExeX64 "DiskInfo64.exe"
#include "WinTB.iss"
#include "botva2.iss"
#include "BrowseForm.iss"

[Setup]
AppName={#Name}
AppVersion={#Version}
DefaultDirName={pf}\{#Name}
DefaultGroupName={#Name}
AllowNoIcons=true
OutputBaseFilename={#Name} {#Version} Final RePack (& Portable) by Pilot
SetupIconFile=ico.ico
Compression=lzma2/Ultra64
InternalCompressLevel=Ultra64
SolidCompression=true
LZMADictionarySize=65536
LZMAMatchFinder=BT
LZMANumFastBytes=273
MergeDuplicateFiles=yes
ShowLanguageDialog=yes
UninstallDisplayIcon={uninstallexe}
UninstallFilesDir={app}\Uninstall
DisableFinishedPage=yes
RawDataResource=Botva:botva2.dll|b2p:b2p.dll|Logo:logo.png|LiPic:LiPic.png
AppModifyPath={app}
VersionInfoProductName={#Name}
DirExistsWarning=no
DisableReadyPage=true
AppID={#Name}
VersionInfoDescription={#Name} RePack by Pilot
AppPublisher=Crystal Dew World
AppCopyright=Pilot © 2016
VersionInfoVersion={#Version}
VersionInfoProductVersion={#Version}
VersionInfoCopyright=Pilot © 2016
UninstallDisplayName={#Name}
ComponentsListTVStyle=true
ShowComponentSizes=false
Uninstallable=not IsComponentSelected('CDI\P')
DisableProgramGroupPage=yes
CreateUninstallRegKey=not IsComponentSelected('CDI\P')
InfoBeforeFile=Info.rtf
DisableWelcomePage=true
RestartIfNeededByRun=false
ArchitecturesInstallIn64BitMode=x64
ArchitecturesAllowed=x86 x64
CloseApplications=no

[Languages]
Name: "R"; MessagesFile: "Russian.isl"
Name: "E"; MessagesFile: "English.isl"
Name: "U"; MessagesFile: "Ukrainian.isl"

[Types]
Name: full; Description: Полная установка; Flags: iscustom

[Tasks]
Name: ic; Description: {cm:AdditionalIcons}; Components: CDI\I;
Name: ic\desktop; Description: {cm:CreateDesktopIcon}; Components: CDI\I;
Name: ic\group; Description: {cm:CreateStartMenuIcon}; Components: CDI\I;
Name: ic\quicklaunch; Description: {cm:CreateQuickLaunchIcon}; OnlyBelowVersion: 0,6.1; Components: CDI\I; Flags: unchecked
Name: ic\taskbar; Description: {cm:PinTaskbarIcon}; MinVersion: 0.0,6.1.7600; Components: CDI\I; Flags: unchecked
Name: ic\startmenu; Description: {cm:PinStartMenuIcon}; MinVersion: 0.0,6.1.7600; Components: CDI\I; Flags: unchecked

[Components]
Name: CDI; Description: {#Name}; Flags: fixed disablenouninstallwarning; Types: full;
Name: CDI\I; Description: Установить {#Name}; Flags: exclusive disablenouninstallwarning
Name: CDI\P; Description: Распаковать {#Name}; Flags: exclusive disablenouninstallwarning

[Files]
;Файлы распаковываемые в папку с игрой. Необходимы для деинсталлятора;
Source: WinTB.dll; Flags: dontcopy;
Source: iswin7logo.dll; DestDir: "{app}\Uninstall"; Attribs: "hidden"; Flags: ignoreversion
Source: {app}\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs;

[Icons]
Name: {group}\{#Name}; Filename: {app}\{#ExeX86}; Components: CDI\I; Tasks: ic\group;
Name: {group}\{#Name}; Filename: {app}\{#ExeX64}; Components: CDI\I; Tasks: ic\group;
Name: {group}\{cm:UninstallProgram,{#Name}}; Filename: {uninstallexe}; Components: CDI\I; Tasks: ic\group;
Name: {commondesktop}\{#Name}; Filename: {app}\{#ExeX86}; Components: CDI\I; Tasks: ic\desktop;
Name: {commondesktop}\{#Name}; Filename: {app}\{#ExeX64}; Components: CDI\I; Tasks: ic\desktop;
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#Name}; Filename: {app}\{#ExeX86}; Components: CDI\I; Tasks: ic\quicklaunch;
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#Name}; Filename: {app}\{#ExeX64}; Components: CDI\I; Tasks: ic\quicklaunch;

[UninstallRun]
Filename: "taskkill"; Parameters: "/f /im {#ExeX64}"; Flags: runhidden;
Filename: "taskkill"; Parameters: "/f /im {#ExeX86}"; Flags: runhidden;

[Code]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

#define A = (Defined UNICODE) ? "W" : "A"

const
///////////////////////////////////Относится к лого и изображениям мастера
  RT_RCDATA             = 10;
  LOAD_LIBRARY_AS_DATAFILE = $2;

var
///////////////////////////////////Лого и изображения
lPLogo, lPicHandle: THandle;
BtnImage: TBitmapImage;
NewGroupBox1: TNewGroupBox;
NewCheckBox1: TNewCheckBox;
///////////////////////////////////////////
iInitialize: Boolean;

procedure ISWin7Init(File: PAnsiChar; X, Y: Integer; Handle: HWND; Left, Right, Top, Bottom: Integer); external 'iswin7_6594@files:iswin7logo.dll stdcall';
procedure ISWin7AddCtrl(Handle: HWND); external 'iswin7_9736@files:iswin7logo.dll stdcall';
procedure ISWin7DeInit; external 'iswin7_2054@files:iswin7logo.dll stdcall';
procedure ISWin7SetVisible(Show: Boolean); external 'iswin7_2541@files:iswin7logo.dll stdcall';

procedure uISWin7Init(File: PAnsiChar; X, Y: Integer; Handle: HWND; Left, Right, Top, Bottom: Integer); external 'iswin7_6594@{app}\uninstall\iswin7logo.dll stdcall delayload uninstallonly';
procedure uISWin7AddCtrl(Handle: HWND); external 'iswin7_9736@{app}\uninstall\iswin7logo.dll stdcall delayload uninstallonly';

///////////////////////////////////Ресурсы(относится к лого и изображениям мастера)
function GetFromRes(const ResName, SaveFileName: String): Boolean;
var
  lResStream: TResourceStream;
begin
  lResStream := TResourceStream.Create(HInstance, ResName, RT_RCDATA);
  try
    lResStream.SaveToFile(AddBackslash(ExpandConstant('{tmp}')) + SaveFileName);
  finally
  lResStream.Free;
  Result := FileExists(AddBackslash(ExpandConstant('{tmp}')) + SaveFileName);
  end;
end;

function OnShouldSkipPage(Sender: TWizardPage): Boolean;
begin
    if WizardForm.ComponentsList.Items.Count > 0 then WizardForm.Tag:= 1; // отображаются страницы выбора папки и компонентов
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm:=False;
end;

procedure InitializeWizard;
begin

PageFromID(wpSelectDir).OnShouldSkipPage:= @OnShouldSkipPage
  with WizardForm do
  begin
///////////////////////////////////Логотип и изображения мастера
    iInitialize := True;
    if GetFromRes('_IS_BOTVA', 'botva2.dll') and GetFromRes('_IS_B2P', 'b2p.dll') and GetFromRes('_IS_LOGO', 'logo.png') and GetFromRes('_IS_LIPIC', 'LiPic.png') then
    begin
  WizardForm.BeveledLabel.Hide;
  ISWin7AddCtrl(WizardForm.BackButton.Handle);
  ISWin7AddCtrl(WizardForm.NextButton.Handle);
  ISWin7AddCtrl(WizardForm.CancelButton.Handle);
  ISWin7Init(ExpandConstant('{tmp}\logo.png'), ScaleX(20), ScaleY(322), 0, 0, 0, 47, WizardForm.Handle);

///////////////////////////////////Изображения
            lPicHandle := ImgLoad(MainPanel.Handle, ExpandConstant('{tmp}\LiPic.png'), ScaleX(3), WizardSmallBitmapImage.Top, WizardSmallBitmapImage.Width, WizardSmallBitmapImage.Height, True, True);
            WizardSmallBitmapImage.Hide;
            ImgSetVisibility(lPicHandle, True);
            ImgApplyChanges(MainPanel.Handle);

      DiskSpaceLabel.Hide;
      ComponentsDiskSpaceLabel.Hide;
      InfoBeforeClickLabel.Hide;
      SelectDirBitmapImage.Hide;
      SelectDirBrowseLabel.Hide;
////////////////////////////////////////////

    NewGroupBox1 := TNewGroupBox.Create(WizardForm);
    with NewGroupBox1 do
    begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(0);
    Top := ScaleY(124);
    Width := ScaleX(417);
    Height := ScaleY(57);
    Caption := 'Папка установки';
    end;

    with WizardForm.DirBrowseButton do
    begin
    Parent := NewGroupBox1;
    SetBounds(ScaleX(333),ScaleY(20),ScaleX(75),ScaleY(23));
    Caption:='Обзор...';
    OnClick:=@BrowseClick;
    end;

    with WizardForm.DirEdit do
    begin
    Parent := NewGroupBox1;
    Left := ScaleX(12);
    Top := ScaleY(22);
    Width := ScaleX(312);
    end;

///////////////////////////////////Логотип

  end;

///////////////////////////////////WinTB
    ExtractTemporaryFile('WinTB.dll');
    Win7TaskBar11();
//////////////////////////////////////

    with TasksList do
    begin
      ShowLines := True;
      TreeViewStyle := True;
    end;

    NewCheckBox1 := TNewCheckBox.Create(WizardForm);
    with NewCheckBox1 do
    begin
      Parent := WizardForm.InfoBeforePage;
      SetBounds(ScaleX(0), ScaleY(216), ScaleX(417), ScaleY(17));
      Caption := 'Посетить сайт автора | repackbypilot.blogspot.com';
      Enabled := True;
    end;

    with InfoBeforeMemo do
    begin
      Top := ScaleY(0);
    with ComponentsList do
    begin
      Height := ScaleY(180);
    with SelectDirLabel do
    begin
      Left := ScaleX(0);
      Top := ScaleY(0);
      Width := ScaleX(417);
      Height := ScaleY(115);
    with WizardForm.PageDescriptionLabel do
    begin
      Left := ScaleX(80);
    with WizardForm.PageNameLabel do
    begin
      Left := ScaleX(80);
    end;
    end;
    end;
    end;
    end;

    with TLabel.Create(WizardForm) do
    begin
      Parent:=WizardForm;
      AutoSize:=False;
      Transparent:= true;
      SetBounds(ScaleX(20), ScaleY(320), ScaleX(118), ScaleY(35));
    end;
  end;
end;

function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryEx{#A}@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external 'LoadString{#A}@user32.dll stdcall';
function SHGetNewLinkInfo(pszLinkTo, pszDir: String; var pszName: Char; var pfMustCopy: Longint; uFlags: UINT): BOOL; external 'SHGetNewLinkInfo{#A}@shell32.dll stdcall';

function PinToTaskbar(const szFilename: String; IsPin: Boolean): Boolean;
// szFilename : full path to executable file
// IsPin......: False - unpin from TaskBar, True - pin to TaskBar
var
    hInst: THandle;
    buf: array [0..255] of Char;
    i, res: Integer;
    strLnk, strVerb: String;
    objShell, colVerbs: Variant;
begin
    Result := False;
    if (GetWindowsVersion < $06010000) or not FileExists(szFilename) then Exit; { below Windows 7 }

    { String resources }
    if IsPin then
    begin
        if SHGetNewLinkInfo(szFilename, ExpandConstant('{tmp}'), buf[0], res, 0) then
        begin
            while buf[Length(strLnk)] <> #0 do Insert(buf[Length(strLnk)], strLnk, Length(strLnk)+1);
            if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + ExtractFileName(strLnk)) then Exit;
        end;
        res := 5386;        { Pin to Tas&kbar }
    end else res := 5387;   { Unpin from Tas&kbar }

    { Load string resource }
    hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
    if hInst <> 0 then
    try
        for i := 0 to LoadString(hInst, res, buf[0], 255)-1 do Insert(buf[i], strVerb, i+1);
        try
            objShell := CreateOleObject('Shell.Application');
            colVerbs := objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).Verbs;
            for i := 1 to colVerbs.Count do if CompareText(colVerbs.Item[i].Name, strVerb) = 0 then
            begin
                colVerbs.Item[i].DoIt;
                Result := True;
                Break;
            end;
        except
            Exit;
        end;
    finally
        FreeDLL(hInst);
    end;
end;

/////////////////////////////////////////////////////////////////////////
function PinToStartMenu(const szFilename: String; IsPin: Boolean): Boolean;
// szFilename : full path to exe- or lnk-file
// IsPin......: False - unpin from StartMenu, True - pin to StartMenu
var
    hInst: THandle;
    buf: array [0..259] of Char;
    i, res: Integer;
    strLnk, strVerb: String;
    objShell, colVerbs: Variant;
begin
    Result := False;
    if not FileExists(szFilename) then Exit;
    if GetWindowsVersion > $06020000 then Exit; { Window 8 and above }

    { Windows 7 }
    if (GetWindowsVersion >= $06010000) and boolean(SHGetNewLinkInfo(szFilename, ExpandConstant('{tmp}'), buf[0], res, 0)) then
    begin
        while buf[Length(strLnk)] <> #0 do Insert(buf[Length(strLnk)], strLnk, Length(strLnk)+1);
        if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\') + ExtractFileName(strLnk)) then Exit;
    end;

    { String resources }
    if IsPin then
        res := 5381     { Pin to Start Men&u }
    else
        res := 5382;    { Unpin from Start Men&u }

    { Load string resource }
    hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
    if hInst <> 0 then
    try
        for i := 0 to LoadString(hInst, res, buf[0], 255)-1 do Insert(buf[i], strVerb, i+1);
        try
            objShell := CreateOleObject('Shell.Application');

            { below Windows 7 }
            if GetWindowsVersion < $06010000 then
            begin
                objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).InvokeVerb(strVerb);
                Result := True;
            end;

            { Windows 7 }
            if GetWindowsVersion >= $06010000 then
            begin
                colVerbs := objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).Verbs;
                for i := 1 to colVerbs.Count do if CompareText(colVerbs.Item[i].Name, strVerb) = 0 then
                begin
                    colVerbs.Item[i].DoIt;
                    Result := True;
                    Break;
                end;
            end;
        except
            Exit;
        end;
    finally
        FreeDLL(hInst);
    end;
end;

function ParamExists(S: String): Boolean;
var
  i: Integer;
begin
  Result:= False;
  for i:= 0 to ParamCount() do begin
    if Pos(Uppercase(S), Uppercase(ParamStr(i))) > 0 then begin
      Result:= true;
      Break;
    end;
  end;
end;

function GetCmdDirValue(): String;
var
  i: Integer;
begin
  Result:= '';
  for i:= 0 to ParamCount() do begin
    if (Pos('/DIR', Uppercase(ParamStr(i))) > 0) then begin
      Result:= Copy(ParamStr(i), 6, Length(ParamStr(i)));
      StringChange(Result, 'expand:', '');
      StringChange(Result, 'EXPAND:', '');
      Result:= ExpandConstant(Result);
      Break;;
    end;
  end;
end;

Procedure CurPageChanged(CurPageID: Integer);
Begin
  Case CurPageID of
  wpSelectTasks:
     if IsComponentSelected('CDI\I') then
  begin
    WizardForm.NextButton.Caption:= SetupMessage(msgButtonInstall);
  end;
  wpSelectDir: if WizardForm.Tag = 1 then
  begin
    WizardForm.SelectDirPage.Notebook.ActivePage:= WizardForm.SelectComponentsPage;
    WizardForm.PageNameLabel.Caption:= SetupMessage(msgWizardSelectComponents);
    WizardForm.Hint:= WizardForm.PageDescriptionLabel.Caption; // запомнить SetupMessage(msgSelectDirDesc)
    WizardForm.PageDescriptionLabel.Caption:= SetupMessage(msgSelectComponentsDesc);
  end;
  wpSelectComponents: if WizardForm.Tag = 1 then
  begin
    WizardForm.SelectComponentsPage.Notebook.ActivePage:= WizardForm.SelectDirPage;
    WizardForm.DiskSpaceLabel.Caption:= WizardForm.ComponentsDiskSpaceLabel.Caption;
    WizardForm.PageNameLabel.Caption:= SetupMessage(msgWizardSelectDir);
    WizardForm.PageDescriptionLabel.Caption:= WizardForm.Hint; // иначе вместо названия программы [name]
    if (not ParamExists('/dir')) then begin
      if IsComponentSelected('CDI\I') then
        WizardForm.DirEdit.Text := (ExpandConstant('{#SetupSetting("DefaultDirName")}'))
      else if IsComponentSelected('CDI\P') then begin
        WizardForm.DirEdit.Text := AddBackslash(ExpandConstant('{src}')) + '{#Name} Portable'
        WizardForm.NextButton.Caption:= CustomMessage('ButtonPortable');
      end;
    end else
      WizardForm.DirEdit.Text := GetCmdDirValue();
  end;
end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
RC: integer;
begin
  if CurStep = ssInstall then
  Exec(ExpandConstant('taskkill'), ' /f /im {#ExeX64}', '', SW_HIDE, ewWaitUntilTerminated, RC)
  Exec(ExpandConstant('taskkill'), ' /f /im {#ExeX86}', '', SW_HIDE, ewWaitUntilTerminated, RC)
  if CurStep = ssDone then
  if IsTaskSelected('ic\taskbar') and IsWin64 then
  PinToTaskbar(ExpandConstant('{app}\{#ExeX64}'), True);
  if CurStep = ssDone then
  if IsTaskSelected('ic\taskbar') and not IsWin64 then
  PinToTaskbar(ExpandConstant('{app}\{#ExeX86}'), True);
  if CurStep = ssDone then
  if IsTaskSelected('ic\startmenu') and IsWin64  then
  PinToStartMenu(ExpandConstant('{app}\{#ExeX64}'), True);
  if CurStep = ssDone then
  if IsTaskSelected('ic\startmenu') and not IsWin64  then
  PinToStartMenu(ExpandConstant('{app}\{#ExeX86}'), True);
  if CurStep = ssDone then
  if IsComponentSelected('CDI\I') then
  if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppID")}_is1') and not WizardSilent then
  MsgBox('Всё готово, приятного пользования :)', mbInformation, MB_OK)
  else
  if not WizardSilent then
  MsgBox('Программа {#Name} не установилась!', mbError, MB_OK);
  if CurStep = ssDone then
  if IsComponentSelected('CDI\P') then
  if not WizardSilent then
  MsgBox('Всё готово, приятного пользования :)', mbInformation, MB_OK)
  if CurStep = ssDone then
  if NewCheckBox1.Checked then
  ShellExec('open','http://repackbypilot.blogspot.com','', '', SW_SHOW, ewNoWait, RC)
end;

procedure DeinitializeSetup();
begin
  if iInitialize then
  begin
    gdipShutdown;
    ISWin7DeInit;
  end;
end;

procedure InitializeUninstallProgressForm;
begin
  with UninstallProgressForm do
    begin
///////////////////////////////////Логотип и изображения мастера
if GetFromRes('_IS_BOTVA', 'botva2.dll') and GetFromRes('_IS_B2P', 'b2p.dll') and GetFromRes('_IS_LOGO', 'logo.png') and GetFromRes('_IS_LIPIC', 'LIPic.png') then
     begin
///////////////////////////////////Изображения
        lPicHandle := ImgLoad(MainPanel.Handle, ExpandConstant('{tmp}\LiPic.png'), ScaleX(3), WizardSmallBitmapImage.Top, WizardSmallBitmapImage.Width, WizardSmallBitmapImage.Height, True, True);
        WizardSmallBitmapImage.Hide;
        ImgSetVisibility(lPicHandle, True);
        ImgApplyChanges(MainPanel.Handle);
///////////////////////////////////Логотип
  uISWin7AddCtrl(UninstallProgressForm.CancelButton.Handle);
  uISWin7Init(ExpandConstant('{tmp}\logo.png'), ScaleX(20), ScaleY(322), 0, 0, 0, 47, UninstallProgressForm.Handle);
  end;

    with UninstallProgressForm.PageDescriptionLabel do
    begin
      Left := ScaleX(80);
    with UninstallProgressForm.PageNameLabel do
    begin
      Left := ScaleX(80);
    end;
    end;

    with TLabel.Create(nil) do
    begin
      Parent:=UninstallProgressForm;
      AutoSize:=False;
      Transparent:= true;
      SetBounds(ScaleX(20), ScaleY(320), ScaleX(118), ScaleY(35));
    end;
  end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  instPath: string;
begin
    case CurUninstallStep of
      usUninstall:
      begin
      PinToTaskbar(ExpandConstant('{app}\{#ExeX64}'), False);
      PinToTaskbar(ExpandConstant('{app}\{#ExeX86}'), False);
      PinToStartMenu(ExpandConstant('{app}\{#ExeX64}'), False);
      PinToStartMenu(ExpandConstant('{app}\{#ExeX86}'), False);
end;
      usPostUninstall:
      begin
      UnloadDLL(ExpandConstant('{app}\uninstall\iswin7logo.dll'));
      DeleteFile(ExpandConstant('{app}\uninstall\iswin7logo.dll'));
      end;
      usDone:
      begin
      RemoveDir(ExpandConstant('{app}\uninstall'));
      RemoveDir(ExpandConstant('{app}'));
      end;
  end;
    end;

procedure DeinitializeUninstall();
begin
  if iInitialize then
  begin
  gdipShutdown;
  end;
end;

[UninstallDelete]
Name: {app}; Type: filesandordirs;

[Messages]
SelectDirLabel3=Программа установит [name] в следующую папку. Чтобы установить приложение в другую папку, нажмите кнопку 'Обзор' и укажите ее.%n%nПожалуйста, обратите внимание, что во время деинсталляции указанная папка будет удалена вместе со всем её содержимым.%n%nНажмите 'Далее' или 'Распаковать', чтобы продолжить.
SelectTasksLabel2=Выберите дополнительные задачи, которые должны выполниться при установке [name], после этого нажмите 'Установить':
SelectLanguageTitle={#Name}
UninstalledMost=Программа %1 была полностью удалена с вашего компьютера.

[Ini]
Filename: {app}\DiskInfo64.ini; Section: Setting; Key: Language; String: Russian; Languages: R; Check: IsWin64; Components: CDI\I;
Filename: {app}\DiskInfo64.ini; Section: Setting; Key: Language; String: Engish; Languages: E; Check: IsWin64; Components: CDI\I;
Filename: {app}\DiskInfo64.ini; Section: Setting; Key: Language; String: Ukrainian; Languages: U; Check: IsWin64; Components: CDI\I;

Filename: {app}\DiskInfo3232.ini; Section: Setting; Key: Language; String: Russian; Languages: R; Check: not IsWin64; Components: CDI\I;
Filename: {app}\DiskInfo32.ini; Section: Setting; Key: Language; String: Engish; Languages: E; Check: not IsWin64; Components: CDI\I;
Filename: {app}\DiskInfo32.ini; Section: Setting; Key: Language; String: Ukrainian; Languages: U; Check: not IsWin64; Components: CDI\I;

Filename: {app}\DiskInfo64.ini; Section: Setting; Key: Language; String: Russian; Languages: R; Components: CDI\P;
Filename: {app}\DiskInfo64.ini; Section: Setting; Key: Language; String: Engish; Languages: E; Components: CDI\P;
Filename: {app}\DiskInfo64.ini; Section: Setting; Key: Language; String: Ukrainian; Languages: U; Components: CDI\P;

Filename: {app}\DiskInfo32.ini; Section: Setting; Key: Language; String: Russian; Languages: R; Components: CDI\P;
Filename: {app}\DiskInfo32.ini; Section: Setting; Key: Language; String: Engish; Languages: E; Components: CDI\P;
Filename: {app}\DiskInfo32.ini; Section: Setting; Key: Language; String: Ukrainian; Languages: U; Components: CDI\P;
 
А может быть вывести лого в отдельную процедуру и при этом не использовать iswin7logo а только iswin7
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху