[Dodakaedr]

Ivan_009, супер

[Stealthmax]

Спс. Действительно сработало. Как теперь еще кнопку свернуть вывести? »

А вот здесь ты не одинок). Таких желающих много. Вариантов 2, я использую скин, поэтому особо не парюсь, но если скин не устраивает, то милости прошу в гости к Johny777, ну а второй вариант- это скин. Других решений не встречал. Много кто изгалялся над этой проблемой))).

[Dodakaedr]

я использую скин »

Интересно! Можешь показать?

[Ivan_009]

Интересно! Можешь показать »

Dodakaedr, Вот пример: http://rghost.ru/53745223

[Dodakaedr]

Ivan_009, попробую к своему инсталу это прикрутить)))

[Dodakaedr]

Ivan_009, Stealthmax, жаль что не ко всем скинам это подходит..

[audiofeel]

Ivan_009,
да, это я знаю, я имел ввиду "свой" курсор - то есть 'cursor.cur'
через = function LoadCursorFromFile(FileName: String): Cardinal; external 'LoadCursorFromFileA@user32 stdcall';
на кнопки делал так = BtnSetCursor(CancelButton,LoadCursorFromFile(ExpandConstant('{tmp}\cursor2.cur')));
а на саму форму как, ????

[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

[audiofeel]

Ivan_009,

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

я по другому не много делал - вроде работает = http://rghost.ru/53748629

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

#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
Cursor := MyCursor;
end;
hcur := LoadCursorFromFile(ExpandConstant('{tmp}\cursor.ani'));
Screen.Cursors[MyCursor] := hcur;
end;

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

[Ivan_009]

я по другому не много делал - вроде работает »

Можно и так...

Только я забыл в конце дописать:

Код:

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