[AlekseyPopovv]

Dodakaedr, Может не правильно выразился, мне надо поменять цвет окна во всех MsgBox...

[Dodakaedr]

Может не правильно выразился, мне надо поменять цвет окна во всех MsgBox... »

так задайте его, если по тому примеру то так FinishedForm.Color := clLime;

[AlekseyPopovv]

Dodakaedr, А как в стандартных MsgBox поменять цвет?

[solopavel]

Прошу помощи. В этой проге я дуб дубом, а в smart install maker у меня не получается это сделать. Накидайте пожалуйста образец скрипта для такой схемы:

При установке, нужно удалить из "программы" две папки с файлами полностью "aircraft_1" и "aircraft1_2", а также два файла "traffic_1.bgl" и "traffic_2.bgl". Создать папку с файлами "aircraft_3" и файл "traffic_3.bgl"

Я это вот, как дилетант, так себе это представляю:

Скрытый текст

[InstallDelete]
Type: files; Name: "traffic_1.bgl"{app}\"
Type: files; Name: "traffic_2.bgl"{app}\"
Type: files; Name: "aircraft_1l"{app}\"
Type: files; Name: "aircraft_2l"{app}\"
[Files]
Source: “traffic_3.bgl”; DestDir: “{app}”
Source: “aircraft_3”; DestDir: “{app}”

Заранее благодарен за ответ.

[El Sanchez]

А как в стандартных MsgBox поменять цвет? »

AlekseyPopovv, например, так:

Скрытый текст

Код:

[Setup]
AppName=test
AppVerName=test
DefaultDirName={tmp}\test
CreateAppDir=no
Uninstallable=no
CreateUninstallRegKey=no

[Languages]
Name: ru; MessagesFile: compiler:Languages\russian.isl

[Code]
#define A = (Defined UNICODE) ? "W" : "A"
const
  WH_CBT = 5;
  HCBT_CREATEWND = 3; 
  WC_DIALOG = '#32770';
  WM_INITDIALOG = $0110;
  WM_ERASEBKGND = $0014;
  WM_PAINT = $000F;
  WM_CTLCOLORSTATIC = $0138;
  WM_CTLCOLORBTN = $0135; 
  WM_DESTROY = $0002;
  TRANSPARENT = 1;

type
  PAINTSTRUCT = record
    hdc: THandle;
    fErase: BOOL;
    rcPaint: TRect;
    fRestore: BOOL;
    fIncUpdate: BOOL;
    rgbReserved: array [0..31] of Byte;
  end;

function GetCurrentThreadId: DWORD; external 'GetCurrentThreadId@kernel32.dll stdcall';
function CallNextHookEx(hhk: THandle; nCode: Integer; wParam, lParam: Longint): Longint; external 'CallNextHookEx@user32.dll stdcall';
function SetWindowsHookEx(idHook: Integer; lpfn, hMod: Longint; dwThreadId: DWORD): THandle; external 'SetWindowsHookEx{#A}@user32.dll stdcall';
function UnhookWindowsHookEx(hhk: THandle): BOOL; external 'UnhookWindowsHookEx@user32.dll stdcall';
function SetWindowSubclass(hWnd: HWND; pfnSubclass: Longint; uIdSubclass: UINT_PTR; dwRefData: DWORD_PTR): BOOL; external 'SetWindowSubclass@comctl32.dll stdcall';
function RemoveWindowSubclass(hWnd: HWND; pfnSubclass: Longint; uIdSubclass: UINT_PTR): BOOL; external 'RemoveWindowSubclass@comctl32.dll stdcall';
function DefSubclassProc(hWnd: HWND; uMsg: UINT; wParam, lParam: Longint): Longint; external 'DefSubclassProc@comctl32.dll stdcall';
function GetClassName(hWnd: HWND; lpClassName: string; nMaxCount: Integer): Integer; external 'GetClassName{#A}@user32.dll stdcall';
function GetSysColorBrush(nIndex: Integer): THandle; external 'GetSysColorBrush@user32.dll stdcall';
function SetBkMode(hdc: THandle; iBkMode: Integer): Integer; external 'SetBkMode@gdi32.dll stdcall';
function BeginPaint(hWnd: HWND; var lpPaint: PAINTSTRUCT): Longint; external 'BeginPaint@user32.dll stdcall';
function EndPaint(hWnd: HWND; const lpPaint: PAINTSTRUCT): Boolean; external 'EndPaint@user32.dll stdcall';
function FillRect(hDC: THandle; const lprc: TRect; hbr: THandle): Integer; external 'FillRect@user32.dll stdcall';
function GetUpdateRect(hWnd: HWND; var lpRect: TRect; bErase: BOOL): BOOL; external 'GetUpdateRect@user32.dll stdcall';

var
  GCBTProc, GDlgProc: Longint;  
  GDlgHook, GBgndBrush: THandle; 
  
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function DlgProc(hWnd: HWND; uMsg: UINT; wParam, lParam: Longint; uIdSubclass: UINT_PTR; dwRefData: DWORD_PTR): Longint;
var
  ps: PAINTSTRUCT;
  rc: TRect;
begin
  case uMsg of  
    WM_INITDIALOG: 
      begin
        if GBgndBrush = 0 then
          GBgndBrush := GetSysColorBrush(13{COLOR_HIGHLIGHT для примера});
        Result := DefSubclassProc(hWnd, uMsg, wParam, lParam);        
      end;
    WM_ERASEBKGND:
      begin
        GetUpdateRect(hWnd, rc, False);
        FillRect(wParam, rc, GBgndBrush);
        Result := 1;
      end;
    WM_PAINT:
      begin
        BeginPaint(hWnd, ps);
        FillRect(ps.hdc, ps.rcPaint, GBgndBrush);
        EndPaint(hWnd, ps);
      end;
    WM_CTLCOLORBTN, WM_CTLCOLORSTATIC:
      begin
        SetBkMode(wParam, TRANSPARENT);
        Result := GBgndBrush;
      end;
    WM_DESTROY:
      begin
        RemoveWindowSubclass(hWnd, GDlgProc, 0);
        Result := DefSubclassProc(hWnd, uMsg, wParam, lParam);
      end;
  else
    Result := DefSubclassProc(hWnd, uMsg, wParam, lParam);
  end;
end;   

///////////////////////////////////////////////////////////////////
function CBTProc(nCode: Integer; wParam, lParam: Longint): Longint;
var
  ClassName: string;   
begin
  case nCode of  
    HCBT_CREATEWND:
      begin      
        ClassName := StringOfChar(#0, 64);
        GetClassName(wParam, ClassName, Length(ClassName));
        ClassName := TrimRight(ClassName);        
        case ClassName of
          WC_DIALOG:
            begin
              if GDlgProc = 0 then
                GDlgProc := CallbackAddr('DlgProc');
              SetWindowSubclass(wParam, GDlgProc, 0, 0);
            end;
        end;
        Result := 0;
      end;      
  else  
    Result := CallNextHookEx(GDlgHook, nCode, wParam, lParam);  
  end;
end;

//////////////////
procedure HookDlg;
begin
  if GCBTProc = 0 then
    GCBTProc := CallbackAddr('CBTProc');
  GDlgHook := SetWindowsHookEx(WH_CBT, GCBTProc, 0, GetCurrentThreadId);
end;

////////////////////
procedure UnHookDlg;
begin
  UnhookWindowsHookEx(GDlgHook);
end;

///////////////////////////
procedure InitializeWizard;
begin
  HookDlg;  
end;

////////////////////////////
procedure DeinitializeSetup;
begin
  if ExpandConstant('{wizardhwnd}') = '0' then Exit;
  UnHookDlg;
end;

//////////////////////////////////////
function InitializeUninstall: Boolean;
begin
  Result := True;
  HookDlg;
end;

////////////////////////////////
procedure DeinitializeUninstall;
begin
  UnHookDlg;
end;

[ZVSRus]

При установке, нужно удалить из "программы" две папки с файлами полностью "aircraft_1" и "aircraft1_2"

Как-то так.

Скрытый текст

Код:

[Files]
 Source: "{app}\traffic_3.bgl"; DestDir: "{app}";
 Source: "{app}\aircraft_3\*"; DestDir: "{app}\aircraft_3";

[InstallDelete]
 Type: files; Name: "{app}\traffic_1.bgl";
 Type: files; Name: "{app}\traffic_2.bgl";
 Type: filesandordirs; Name: "{app}\aircraft_1l";
 Type: filesandordirs; Name: "{app}\aircraft_2l";

[Dodakaedr]

например, так: »

есть где-то список номером цветов? Или как указать требуемый цвет? Как вы узнали чему равна цифра 13?

[El Sanchez]

есть где-то список номером цветов? Или как указать требуемый цвет? Как вы узнали чему равна цифра 13? »

Dodakaedr, дык, это ж параметр функции GetSysColorBrush, там в описании параметра к ней ссылка на GetSysColor, где представлены константы системных цветов. Я не стал в примере константу писать, влепил комментарий, чтобы обратили внимание на этот кусок кода. Вместо кисти с системным цветом здесь можно создать и использовать свою сплошную кисть с любым цветом при помощи CreateSolidBrush или узорчатую при помощи CreatePatternBrush. Разумеется, при использовании пользовательских кистей обработка сообщений WM_* будет немного другой.

[Dodakaedr]

Вместо кисти с системным цветом здесь можно создать и использовать свою сплошную кисть с любым цветом при помощи CreateSolidBrush »

Если есть время набросайте, пожалуйста, пример.

[solopavel]

ZVSRus, спасибо за оперативный ответ.
Сейчас попробую.