LoadIconWithScaleDown 总是失败

Question

我正在尝试使用 LoadIconWithScaleDown API。 我正在使用 Delphi 2007，我编写了一个简单的示例程序，在单击按钮时我调用 COMMCTRL.LoadIconWithScaleDown。我尝试了各种组合，实例为零，实例设置为 hInstance，对于第二个参数，我尝试传递当前模块名称，MAKEINTRESOURCE(IDI_APPLICATION)，......总是没有运气，我总是得到一个返回值 -2147467263 .知道我做错了什么吗？

根据 David 的建议进行了编辑，以展示我如何尝试调用 API。

procedure TForm31.Button1Click(Sender: TObject);

  var moduleName  : string;
  var moduleNameW : widestring;

  var retVal      : HRESULT;
  var iconHandle  : HICON;

begin
  iconHandle := 0;

  SetLength( moduleName, 1024);

  WINDOWS.GetModuleFileName(
              hInstance, 
              PCHAR(moduleName), 
              LENGTH(moduleName));

  moduleNameW := moduleName;

  retVal := COMMCTRL.LoadIconWithScaleDown(
                         HINSTANCE,
                         PWidechar(moduleNameW),
                         image1.width,
                         image1.height,
                         iconHandle);   
end;

Answer 1

这很好地说明了为什么您应该不在不阅读和理解文档的情况下使用 WinAPI 函数。

LoadIconWithScaleDown 的文档清楚地解释了参数是什么以及如何使用它们。使用GetModuleFileName 的理由为零，而且您传递它的参数无论如何都是错误的，文档清楚地说明了这一点。

以下是使用该函数的两种方式的示例，首先从外部磁盘文件加载图标，然后从应用程序中的图标资源加载。它是在 Delphi 10 Seattle 下编译和测试的，只要文件或资源存在于您使用它的位置，它就可以工作。

uses
  CommCtrl;

var
  hIco: HICON;
  Ico: TIcon;
  NewWidth, NewHeight: Integer;
begin
  NewWidth := 16;
  NewHeight := 16;
  if Succeeded(LoadIconWithScaleDown(0,
                                     'C:\Images\SomeFile.ico',
                                     NewWidth, NewHeight, hIco)) then
  begin
    Ico := TIcon.Create;
    Ico.Handle := hIco;
    // Do whatever with the icon. Clean up is left to you
  end;

  if Succeeded(LoadIconWithScaleDown(hInstance,
                                     'MYRESOURCENAME',
                                     NewWidth, NewHeight, hIco)) then
  begin
    // See code above
  end;
end;

（不，问题不在于您需要先调用InitCommonControlsEx。包括 CommCtrl 会为您进行必要的初始化。）