[Johny777]

by_gangster,
убирай пожалуйста код дополнительно в конструкцию [more"][code"] сдесь твой код[/code"][/more"] без кавычек
пример из

Example_RawDataResource.iss »

жирным выделено то для чего курсор используется в этом примере
(только курсор)

читать дальше »

Код:

#ifdef IS_ENHANCED
  #if (Pos('ee', IS_Ver_Str) >= 1)
    #define IS_Version_ee
  #endif
#else
  #error Enhanced edition of Inno Setup (restools) is required to compile this script
#endif

#ifdef UNICODE
  #define A "W"
#else
  #define A "A"
#endif

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
SolidCompression=yes
Compression=lzma/ultra
OutputDir=userdocs:Inno Setup Examples Output


[Files]
Source: cursor.ani; Flags: dontcopy

[  Code]
#ifdef IS_Version_ee
function LoadCursorFromFile(FileName: String): Cardinal; external 'LoadCursorFromFile{#A}@user32 stdcall';
function DeleteObject(p1: Longword): BOOL; external 'DeleteObject@gdi32.dll stdcall';

const
  MyCursor = 101;
#endif


var
  hcur: Cardinal;
  
procedure InitializeWizard();
begin
#ifdef IS_Version_ee
   ExtractTemporaryFile('cursor.ani');
   hcur := LoadCursorFromFile(ExpandConstant('{tmp}\cursor.ani'));
   Screen.Cursors[MyCursor] := hcur;
#endif


  with WizardForm do
  begin
    AutoScroll := False;
    ClientHeight := ScaleY(464);
    ClientWidth := ScaleX(620);
#ifdef IS_Version_ee
    Cursor := MyCursor;
#endif
  end;
end;

procedure DeinitializeSetup();
begin
#ifdef IS_Version_ee
  DeleteObject(hcur);
#endif
end;

cursor.ani лежит в папке ....\Inno Setup 5\Examples

[Ivan_009]

как прикрутить скрипт для проверки системных требований если у меня черный инсталл почемуто не отображается нормально какой цвет надо сделать заранее спасибки............................................................................................ .......

[Johny777]

Ivan_009,
давай смотреть вместе
кусок

читать дальше »

Код:

  HWREQSound1:= TMemo.Create(HWREQPage)
  HWREQSound1.SetBounds(ScaleX(AFirstLeft), ATop+(ScaleY(10)+AHeight)*2, AFirstWidth, AHeight);
  HWREQSound1.Alignment:= taCenter;
  HWREQSound1.Font:= HWREQFont;
  HWREQSound1.ReadOnly:= True;
  HWREQSound1.HideSelection:= True;
  HWREQSound1.Text:= CustomMessage('HWREQSoundCard');
  HWREQSound1.Color:= $C9C9C9;
  HWREQSound1.Parent:= AParent;

мы видим настройку
HWREQSound1.Color:= $C9C9C9;
меняем
HWREQSound1.Color:= clBlack;

[Ivan_009]

Для такого скина

[Johny777]

Для такого скина »

не понимаю
какой цвет
где именно?
с чёрным со читается жёлтый. Я б все TMemo сделал бы жёлтым
если стандартные цвета типа clBlue или clBlack не подходят, то берёшь фотошоп
пипеткой образец цвета и смотришь
пример

читать дальше »

получаем
cc9900
для инно меняем местами первые две буквы(цифры) с последними
получаем
Color:= $0099cc

[Ivan_009]

Ну типа так чтобы а если не соответствует системным требованиям то выделялось красным цветом

[Ivan_009]

Да вот если не трудно один вопрос как этот модуль одтелить тоесть если он не нужен то закоментить.... зараннее большое прибольшое спасибо.............

[Johny777]

Ivan_009,
модуль это кусок скрипта
он подключён у тебя в основном скрипте через препроцессор
#include "HWREQ_Module.iss"
просто закомментируй ///

[Ivan_009]

Ошибка

[Johny777]

Ivan_009,
ну
модуль отключил, а в нём было:
procedure HWREQ_CreatePanelSimple(AFont: TFont);
var
.....
begin
....
end;
откуда инно знать, что такое HWREQ_CreatePanelSimple(nil) в основном скрипте?
здесь не только модуль, но и строка в InitializeWizard(), относящаяся туда же. Ты её тоже закоментируй
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
касательно смены цвета там же
смотри

читать дальше »

Код:

  if not HWREQ_CompareProcessor then begin Test:= False; HWREQProc2.Color:= $CCCCFF; end;
  if not HWREQ_CompareVideo then begin Test:= False; HWREQVid2.Color:= $CCCCFF; end;
  if not HWREQ_CompareSound then begin Test:= False; HWREQSound2.Color:= $CCCCFF; end;
  if not HWREQ_CompareRAM then begin Test:= False; HWREQRam2.Color:= $CCCCFF; end;
  if not HWREQ_CompareWindows then begin Test:= False; HWREQWin2.Color:= $CCCCFF; end;