Скрипты Inno Setup. Помощь и советы [часть 7]

Ivan_009 · Конфигурация компьютера

audiofeel, Короче не мучайся вот пример...

Цитата:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
RawDataResource=MyCursor:cursor.ani

[code]
function LoadCursorFromFile(FileName: String): Cardinal;
external 'LoadCursorFromFileA@user32 stdcall';

const
MyCursor = 101;
RT_RCDATA = 10;

var
hcur: Cardinal;
ResStream: TResourceStream;

procedure InitializeWizard;
begin
with WizardForm do begin
ClientWidth:=ScaleX(650);
ClientHeight:=ScaleY(400);
Position:=poScreenCenter;
OuterNotebook.Hide;
InnerNotebook.Hide;
Bevel.Hide;
Cursor := MyCursor;
end;

ResStream := TResourceStream.Create(HInstance, '_IS_MYCURSOR', RT_RCDATA);
try
ResStream.SaveToFile(ExpandConstant('{tmp}\cursor.ani'));
hcur := LoadCursorFromFile(ExpandConstant('{tmp}\cursor.ani'));
Screen.Cursors[MyCursor] := hcur;
finally
ResStream.Free;
end;

with WizardForm.NextButton do
begin
SetBounds(ScaleX(400), ScaleY(300), ScaleX(81), ScaleY(30));
Cursor := MyCursor;
end;

with WizardForm.BackButton do
begin
SetBounds(ScaleX(300), ScaleY(300), ScaleX(81), ScaleY(30));
Cursor := MyCursor;
end;

with WizardForm.CancelButton do
begin
SetBounds(ScaleX(530), ScaleY(300), ScaleX(81), ScaleY(30));
Cursor := MyCursor;
end;
end;

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

На форму и кнопки...

Рядом кинь сам курсор cursor.ani