[Dodakaedr]

Подскажите пожалуйста пример скрипта с оснащением другого курсора при запуске установщика , заранее спасибо . »

уже обсуждалось
И еще пример:

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

Код:

#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=Output

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

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

const
MyCursor = 101;

var
hcur: Cardinal;

function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\cursor.ani')) then ExtractTemporaryFile('cursor.ani');
Result := True;
end;

procedure InitializeWizard();
begin
with WizardForm do begin

//Собственно здесь указываешь к чему прикрутить курсор)))
PageNameLabel.Cursor := MyCursor;
PageDescriptionLabel.Cursor := MyCursor;
WelcomeLabel1.Cursor := MyCursor;
WelcomeLabel2.Cursor := MyCursor;
SelectDirBitmapImage.Cursor := MyCursor;
SelectDirBrowseLabel.Cursor := MyCursor;
SelectDirLabel.Cursor := MyCursor;
FinishedHeadingLabel.Cursor := MyCursor;
FinishedLabel.Cursor := MyCursor;
MainPanel.Cursor := MyCursor;
FilenameLabel.Cursor := MyCursor;
StatusLabel.Cursor := MyCursor;
SelectStartMenuFolderLabel.Cursor := MyCursor;
SelectStartMenuFolderBrowseLabel.Cursor := MyCursor;
ReadyLabel.Cursor := MyCursor;
LicenseLabel1.Cursor := MyCursor;
InfoBeforeClickLabel.Cursor := MyCursor;
InfoAfterClickLabel.Cursor := MyCursor;
ComponentsDiskSpaceLabel.Cursor := MyCursor;
SelectComponentsLabel.Cursor := MyCursor;
GroupEdit.Cursor := MyCursor;
GroupBrowseButton.Cursor := MyCursor;
CancelButton.Cursor := MyCursor;
BackButton.Cursor := MyCursor;
/////////////////////////////

end;
hcur := LoadCursorFromFile(ExpandConstant('{tmp}\cursor.ani'));
Screen.Cursors[MyCursor] := hcur;
end;

procedure DeinitializeSetup();
begin
DeleteObject(hcur);
end;