如何在Inno设置内更改鼠标光标？ [英] How to change mouse cursor inside Inno setup?

问题描述

我使用Inno Installer创建了一个安装程序，在安装过程中，我进行了一些长时间的操作来检查系统中的某些值(注册表项、一些文件...)在此期间，没有界面显示给用户，我在InitializeSetup函数中执行所有这些操作。

我想知道的是，当我执行所有这些检查时，是否可以更改鼠标指针，以便用户知道发生了什么事情。

我想我可以创建一个DLL并从inno调用DLL中更改游标的函数，但我不想创建一个单独的DLL，我在想是否有办法只使用Pascal脚本就可以做到这一点。

谢谢你的帮助。

推荐答案

摘自：http://www.vincenzo.net/isxkb/index.php?title=Cursor_-_Change_the_mouse_cursor_of_WizardForm

procedure SetControlCursor(control: TWinControl; cursor: TCursor);
var i:Integer;
    wc: TWinControl;
begin
  if (not (control = nil)) then begin
    control.Cursor := cursor;
    try
      for i:=0 to control.ControlCount-1 do begin
        wc := TWinControl(control.Controls[i]);
        if (NOT(wc = nil)) then
          SetControlCursor(wc, cursor)
        else
          control.Controls[i].Cursor := cursor;
      end; {for}
    finally

    end;{try}
  end;{if}
end;{procedure SetControlCursor}

并将其设置为沙漏：

SetControlCursor(WizardForm, crHourGlass);

要将其设置为正常，请执行以下操作：

SetControlCursor(WizardForm, crDefault);

这篇关于如何在Inno设置内更改鼠标光标？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！