如何在Inno安裝程序中設置自定義.cur或.ani光標？

Question

我想用Inno Setup製作一個簡單的安裝腳本。如何在安裝啓動時加載自定義的.cur或.ani光標文件？謝謝。

UPDATE：更改標準光標代碼與.cur文件，但動畫光標文件（.ani）沒有動畫運作良好時，安裝程​​序開始。有沒有解決方案？謝謝。

Answer 1

取決於您想要更改的遊標。你可能想要改變一些標準的遊標。或者某些（或全部）安裝程序窗口控件的默認（正常）光標。

---

更改標準光標

你很難改變這些只能安裝過程中，不使用一些外部DLL庫。

只有Inno Setup本身，您可以更改系統遊標。但是，這將影響所有其他應用程序，而安裝程序正在運行。

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

[Code] 

const 
    OCR_NORMAL = 32512; 

function SetSystemCursor(hcur: LongWord; id: DWORD): BOOL; 
    external 'SetSystemCursor@user32.dll stdcall'; 
function LoadCursorFromFile(lpFileName: string): LongWord; 
    external 'LoadCursorFromFileW@user32.dll stdcall'; 
function CopyIcon(hIcon: LongWord): LongWord; 
    external 'CopyIcon@user32.dll stdcall'; 
function LoadCursor(hInstance: LongWord; lpCursorName: LongWord): LongWord; 
    external 'LoadCursorA@user32.dll stdcall'; 

var 
    OriginalCursor: LongWord; 

procedure InitializeWizard(); 
var 
    PathToCursorFile: string; 
    Cursor: LongWord; 
begin 
    // Remember the original custom 
    OriginalCursor := CopyIcon(LoadCursor(0, OCR_NORMAL)); 

    // Load our cursor 
    ExtractTemporaryFile('MyCursor.cur') 
    PathToCursorFile := ExpandConstant('{tmp}\MyCursor.cur'); 
    Cursor := LoadCursorFromFile(PathToCursorFile); 
    SetSystemCursor(Cursor, OCR_NORMAL); 
end; 

procedure DeinitializeSetup(); 
begin 
    // Restore original cursor on exit 
    SetSystemCursor(OriginalCursor, OCR_NORMAL); 
end; 

---

更改一些（或全部）的安裝窗口的默認（正常）光標控制

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

[Code] 

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; 

以上代碼爲接着按鈕可改變光標。如果您想爲所有控件使用相同的自定義光標，則可以迭代控制樹。

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 
    ... 
    SetControlsCursor(WizardForm, Cursor); 
end;