Вопрос Свой курсор

Carlos · 11 Сен 2016

Собственно интересует скрипт для использования своего курсора в инсталляторе.

Nemko · 11 Сен 2016

vint56 · 11 Сен 2016

Carlos,

Код:

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

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

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

[code]
const
MyCursor = 101;

var
hcur: Cardinal;

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

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;

with WizardForm.CancelButton do
begin
  Cursor := MyCursor;
end;
with WizardForm.NextButton do
begin
  Cursor := MyCursor;
end;
with WizardForm.BackButton do
begin
  Cursor := MyCursor;
end;
end;

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

SBalykov · 11 Сен 2016

А можно и так:

Код:

#define A = (Defined UNICODE) ? "W" : "A"

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

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

const
  MyCursor = 101;
  RT_RCDATA = 10;

var
  ResStream: TResourceStream;
  hcur: Cardinal;

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

  WizardForm.BackButton.Cursor := MyCursor;
  WizardForm.DirBrowseButton.Cursor := MyCursor;
  WizardForm.GroupBrowseButton.Cursor := MyCursor;
  WizardForm.NextButton.Cursor := MyCursor;
  WizardForm.CancelButton.Cursor := MyCursor;
end;

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

nik1967 · 11 Сен 2016

А это
Как отобразить кастомный курсор без выгрузки файла на диск?
чем не нравится?

Carlos · 11 Сен 2016

nik1967, с ним пробовал, но скрипт от vint56 подошёл лучше. С расширением файла курсора меньше проблем.

Carlos · 20 Ноя 2016

Поставил свой курсор в скрипт, отображается всё прекрасно, но есть один нюанс, который никак не могу решить.
На кнопке музыки отображается стандартный курсор, как это исправить?
И соответственно, в окошке, где слайд шоу, курсор тоже стандартный.

На всех кнопках поменял, а вот как в этих местах изменить не могу понять.

SBalykov · 20 Ноя 2016

Carlos написал(а):
Поставил свой курсор в скрипт, отображается всё прекрасно, но есть один нюанс, который никак не могу решить.
На кнопке музыки отображается стандартный курсор, как это исправить?
И соответственно, в окошке, где слайд шоу, курсор тоже стандартный.

На всех кнопках поменял, а вот как в этих местах изменить не могу понять.

Если кнопка на ботве и пример от wint56, то попробуй использовать BtnSetCursor(MusicButton, hcur), а как отобразить курсор на слайд-шоу - вопрос ...

Carlos · 20 Ноя 2016

SBalykov написал(а):
Если кнопка на ботве и пример от wint56, то попробуй использовать BtnSetCursor(MusicButton, hcur), а как отобразить курсор на слайд-шоу - вопрос ...

А как это прописать если я использую модуль BASS и в скрипте у меня только

BASS_Init('{tmp}\Music.ogg') //Запускаем музыку
//BASS_Init(ExpandConstant('{tmp}\*')) //Можно добавить в инсталл несколько песен (Поиск по маске)
BASS_CreateOnOffButton(WizardForm, '{tmp}\MusicButton.png', ScaleX(10), ScaleY(36), ScaleX(12), ScaleX(12), ScaleY(4)) //Создаем кнопку вкл/выкл

А на MusicButton ругается. Пишет, что не знает этого MusicButton

Shegorat · 20 Ноя 2016

Carlos
Там идентификатор кнопки BASS_OnOffBtn

Код:

//====================================== Музыка и кнопки ========================================//
BASS_Init('{tmp}\Music.ogg') //Запускаем музыку
//BASS_Init(ExpandConstant('{tmp}\*')); //Можно добавить в инсталл несколько песен (Поиск по маске)
BASS_CreateOnOffButton(WizardForm, '{tmp}\MusicButton.png', ScaleX(10), ScaleY(36), ScaleX(12), ScaleX(12), ScaleY(4)); //Создаем кнопку вкл/выкл
BtnSetCursor(BASS_OnOffBtn, hcur);
//====================================== Музыка и кнопки ========================================//

А насчет слайд-шоу, опять же, всё зависит от того, как реализовано.

Carlos · 20 Ноя 2016

Разобрался, спасибо большое.

ilyaign86 · 6 Сен 2020

ну и не работает это

YURSHAT · 6 Сен 2020

ilyaign86 написал(а):
ну и не работает это

Пример под расширенную версию инно

Хамик · 6 Сен 2020

ilyaign86 написал(а):
понятно, а для нормального как бы это реализовать, а не для шляпного от косогласых?

Расширенная в разы лучше чем эта ваша "нормальная".

vint56 · 6 Сен 2020

ilyaign86

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppExeName "MyProg.exe"

[Setup]
AppId={{008FA292-36BB-4298-8555-536EB672624D}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
DefaultDirName={#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=mysetup
Compression=lzma
SolidCompression=yes
;WizardStyle=modern

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

[Files]
Source: "MyCursor.cur"; Flags: dontcopy

Код:

const
  GCL_HCURSOR = (-12);

var
  PathToCursorFile: string;
  Cursor: LongWord;

function LoadCursorFromFile(lpFileName: string): LongWord;
  external 'LoadCursorFromFileW@user32.dll stdcall';
function SetClassLong(hWnd: HWND; Index, NewLong: Longint): Longint;
  external 'SetClassLongA@user32 stdcall';  

procedure SetControlsCursor(Control: TWinControl; Cursor: LongWord);
var
  I: Integer;
begin
  SetClassLong(Control.Handle, GCL_HCURSOR, Cursor);

  for I := 0 to Control.ControlCount - 1 do
  begin
    if Control.Controls[I] is TWinControl then
    begin
      SetControlsCursor(TWinControl(Control.Controls[I]), Cursor);
    end;
  end;
end;

procedure InitializeWizard();
begin
  ExtractTemporaryFile('MyCursor.cur')
  PathToCursorFile := ExpandConstant('{tmp}\MyCursor.cur');
  Cursor := LoadCursorFromFile(PathToCursorFile);
  SetControlsCursor(WizardForm, Cursor);
end;

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppExeName "MyProg.exe"

[Setup]
AppId={{008FA292-36BB-4298-8555-536EB672624D}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
DefaultDirName={autopf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=mysetup
Compression=lzma
SolidCompression=yes
WizardStyle=modern

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

[Files]
Source: "MyCursor.cur"; Flags: dontcopy

Код:

const
  GCL_HCURSOR = (-12); 

function LoadCursorFromFile(lpFileName: string): LongWord;
  external 'LoadCursorFromFileW@user32.dll stdcall';
function SetClassLong(hWnd: HWND; Index, NewLong: Longint): Longint;
  external 'SetClassLongA@user32 stdcall';   

procedure InitializeWizard();
var
  PathToCursorFile: string;
  Cursor: LongWord;
begin
  ExtractTemporaryFile('MyCursor.cur')
  PathToCursorFile := ExpandConstant('{tmp}\MyCursor.cur');
  Cursor := LoadCursorFromFile(PathToCursorFile);
  SetClassLong(WizardForm.NextButton.Handle, GCL_HCURSOR, Cursor); 
end;[/SPOILER]

Leserg · 6 Сен 2020

ilyaign86 написал(а):
а для нормального как бы это реализовать, а не для шляпного от косогласых?

Уже реализовано в моей модификации (версия 6.0.5). Смотрите пример в файле Example_RawDataResource.iss.

ilyaign86 · 6 Сен 2020

vint56 написал(а):
ilyaign86

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppExeName "MyProg.exe"

[Setup]
AppId={{008FA292-36BB-4298-8555-536EB672624D}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
DefaultDirName={#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=mysetup
Compression=lzma
SolidCompression=yes
;WizardStyle=modern

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

[Files]
Source: "MyCursor.cur"; Flags: dontcopy

Код:

const GCL_HCURSOR = (-12); var PathToCursorFile: string; Cursor: LongWord; function LoadCursorFromFile(lpFileName: string): LongWord; external 'LoadCursorFromFileW@user32.dll stdcall'; function SetClassLong(hWnd: HWND; Index, NewLong: Longint): Longint; external 'SetClassLongA@user32 stdcall'; procedure SetControlsCursor(Control: TWinControl; Cursor: LongWord); var I: Integer; begin SetClassLong(Control.Handle, GCL_HCURSOR, Cursor); for I := 0 to Control.ControlCount - 1 do begin if Control.Controls[I] is TWinControl then begin SetControlsCursor(TWinControl(Control.Controls[I]), Cursor); end; end; end; procedure InitializeWizard(); begin ExtractTemporaryFile('MyCursor.cur') PathToCursorFile := ExpandConstant('{tmp}\MyCursor.cur'); Cursor := LoadCursorFromFile(PathToCursorFile); SetControlsCursor(WizardForm, Cursor); end;

#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppExeName "MyProg.exe"

[Setup]
AppId={{008FA292-36BB-4298-8555-536EB672624D}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
DefaultDirName={autopf}\{#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=mysetup
Compression=lzma
SolidCompression=yes
WizardStyle=modern

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

[Files]
Source: "MyCursor.cur"; Flags: dontcopy

Код:

const GCL_HCURSOR = (-12); function LoadCursorFromFile(lpFileName: string): LongWord; external 'LoadCursorFromFileW@user32.dll stdcall'; function SetClassLong(hWnd: HWND; Index, NewLong: Longint): Longint; external 'SetClassLongA@user32 stdcall'; procedure InitializeWizard(); var PathToCursorFile: string; Cursor: LongWord; begin ExtractTemporaryFile('MyCursor.cur') PathToCursorFile := ExpandConstant('{tmp}\MyCursor.cur'); Cursor := LoadCursorFromFile(PathToCursorFile); SetClassLong(WizardForm.NextButton.Handle, GCL_HCURSOR, Cursor); end;[/SPOILER]

Спасибо! Помогло, присоединил в Ботве. А при закрытии выгружать из памяти не надо?

Вопрос Свой курсор

Carlos

Участник

Nemko

Дилетант

vint56

Ветеран

SBalykov

Старожил

nik1967

Old Men

Carlos

Участник

Carlos

Участник

SBalykov

Старожил

Carlos

Участник

Shegorat

Lord of Madness

Carlos

Участник

ilyaign86

Новичок

YURSHAT

Тех. админ

Хамик

Старожил

vint56

Ветеран

Leserg

Участник

ilyaign86

Новичок