草庐IT

windows - Delphi 从线程调用 shgetfileinfo 失败

coder 2024-06-19 原文 

    function GetFileIcon(const filename:string): HICON;
var
  shfi: TShFileInfo;
begin
  try
    FillChar(shfi, SizeOf(TShFileInfo), 0);
    ShGetFileInfo(PChar(filename), 0, shfi, SizeOf(TShFileInfo), SHGFI_ICON or SHGFI_LARGEICON);
    Result := shfi.hIcon;
  except
    Result := 0;
  end;
end;

使用 delphi xe2，在 win 7 64 位上，这个函数在 Tthread 内部调用时通常返回 0，但从主线程调用时总是工作正常。它看起来像一个 shell 初始化问题，因为一段时间后它也会在 Thread 中工作。 我在 stack overflow ( Calling SHGetFileInfo in thread to avoid UI freeze ) 中发现了类似的问题，但它是针对 c++ 语言的，所以我没有整理出来。

  • 更新:ShGetFileInfo 似乎不是线程安全的。当有多个线程同时调用它时，它会失败。见大卫 下面是赫弗曼的回答。同样使用 CoInitializeEx 而不是 Coinitialize 对多线程没有帮助。您必须使用 TCriticalSection 对访问进行序列化。

最佳答案

来自documentation :

You must initialize Component Object Model (COM) with CoInitialize or OleInitialize prior to calling SHGetFileInfo.

在 GUI 应用程序中，COM 在主线程中初始化。但是来自其他不会自动发生的线程。您需要明确地执行此操作。

除此之外，您没有正确处理错误。请记住，Windows API 函数不会引发异常。所以你的异常处理程序毫无意义，应该被删除。相反，您需要检查调用 SHGetFileInfo 的返回值，如文档中所述。

除此之外，您的代码还可以正常工作，如该程序所示:

{$APPTYPE CONSOLE}

uses
  Classes, Windows, ActiveX, ShellAPI;

var
  hThread: THandle;
  ThreadId: Cardinal;

function ThreadFunc(Parameter: Pointer): Integer;
var
  shfi: TSHFileInfo;
begin
  CoInitialize(nil);
  Try
    if ShGetFileInfo('C:\windows\explorer.exe', 0, shfi, SizeOf(shfi), SHGFI_ICON or SHGFI_LARGEICON)=0 then
    begin
      Writeln('ShGetFileInfo Failed');
      Result := 1;
      exit;
    end;
    Writeln(shfi.hIcon);
  Finally
    CoUninitialize;
  End;
  Result := 0;
end;

begin
  hThread := BeginThread(nil, 0, ThreadFunc, nil, 0, ThreadId);
  WaitForSingleObject(hThread, INFINITE);
  CloseHandle(hThread);
  Readln;
end.

我希望您观察到的任何故障实际上都与您尝试检查的特定文件有关。

更新:ShGetFileInfo 似乎不是线程安全的。当有多个线程同时调用它时，它会失败。我相信您需要使用锁序列化对 ShGetFileInfo 的调用。例如，TCriticalSection。

以下程序基于您在评论中提供的 SSCCE，对此进行了演示:

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes,
  SyncObjs,
  Windows,
  ActiveX,
  ShellAPI;

var
  hThreads: TWOHandleArray;
  ThreadId: Cardinal;
  Lock: TCriticalSection;

function ThreadFunc(Parameter: Pointer): Integer;
var
  shfi: TSHFileInfo;
  randomnumber: integer;
  fname: string;
begin
  CoInitialize(nil);
  Try
    fname := 'c:\desktop\file'+IntToStr(Integer(Parameter))+'.exe';

    Lock.Acquire;
    try
      if ShGetFileInfo(pchar(fname), 0, shfi, SizeOf(shfi), SHGFI_ICON or SHGFI_LARGEICON)=0 then
      begin
        Writeln('ShGetFileInfo Failed');
        Result := 1;
        exit;
      end;
      Writeln(shfi.hIcon);
    finally
      Lock.Release;
    end;
  Finally
    CoUninitialize;
  End;
  Result := 0;
end;

var
i: integer;
begin
  Lock := TCriticalSection.Create;
  for i := 0 to 9 do
    hThreads[i] := BeginThread(nil, 0, ThreadFunc, Pointer(i), 0, ThreadId);

  WaitForMultipleObjects(10, @hThreads,true, INFINITE);

  Readln;
end.

删除关键部分，对 ShGetFileInfo 的调用成功，但返回图标句柄的 0。对于关键部分，返回有效的图标句柄。

关于windows - Delphi 从线程调用 shgetfileinfo 失败，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/21885962/

shgetfileinfowindowscodeshfimultithreadingdelphiwinapi

有关windows - Delphi 从线程调用 shgetfileinfo 失败的更多相关文章

  1. ruby - 在 Ruby 程序执行时阻止 Windows 7 PC 进入休眠状态 - 2

    我需要在客户计算机上运行Ruby应用程序。通常需要几天才能完成(复制大备份文件)。问题是如果启用sleep，它会中断应用程序。否则，计算机将持续运行数周，直到我下次访问为止。有什么方法可以防止执行期间休眠并让Windows在执行后休眠吗？欢迎任何疯狂的想法;-) 最佳答案 Here建议使用SetThreadExecutionStateWinAPI函数，使应用程序能够通知系统它正在使用中，从而防止系统在应用程序运行时进入休眠状态或关闭显示。像这样的东西:require'Win32API'ES_AWAYMODE_REQUIRED=0x0

  2. ruby - RuntimeError(自动加载常量 Apps 多线程时检测到循环依赖 - 2

    我收到这个错误:RuntimeError(自动加载常量Apps时检测到循环依赖当我使用多线程时。下面是我的代码。为什么会这样？我尝试多线程的原因是因为我正在编写一个HTML抓取应用程序。对Nokogiri::HTML(open())的调用是一个同步阻塞调用，需要1秒才能返回，我有100,000多个页面要访问，所以我试图运行多个线程来解决这个问题。有更好的方法吗？classToolsController0)app.website=array.join(',')putsapp.websiteelseapp.website="NONE"endapp.saveapps=Apps.order("

  3. ruby - 即使失败也继续进行多主机测试 - 2

    我已经构建了一些serverspec代码来在多个主机上运行一组测试。问题是当任何测试失败时，测试会在当前主机停止。即使测试失败，我也希望它继续在所有主机上运行。Rakefile:namespace:specdotask:all=>hosts.map{|h|'spec:'+h.split('.')[0]}hosts.eachdo|host|begindesc"Runserverspecto#{host}"RSpec::Core::RakeTask.new(host)do|t|ENV['TARGET_HOST']=hostt.pattern="spec/cfengine3/*_spec.r

  4. 使用 ACL 调用 upload_file 时出现 Ruby S3 "Access Denied"错误 - 2

    我正在尝试编写一个将文件上传到AWS并公开该文件的Ruby脚本。我做了以下事情:s3=Aws::S3::Resource.new(credentials:Aws::Credentials.new(KEY,SECRET),region:'us-west-2')obj=s3.bucket('stg-db').object('key')obj.upload_file(filename)这似乎工作正常，除了该文件不是公开可用的，而且我无法获得它的公共(public)URL。但是当我登录到S3时，我可以正常查看我的文件。为了使其公开可用，我将最后一行更改为obj.upload_file(file

  5. c# - 如何在 ruby​​ 中调用 C# dll？ - 2

    如何在ruby​​中调用C#dll？ 最佳答案 我能想到几种可能性:为您的DLL编写(或找人编写)一个COM包装器，如果它还没有，则使用Ruby的WIN32OLE库来调用它；看看RubyCLR,其中一位作者是JohnLam，他继续在Microsoft从事IronRuby方面的工作。(估计不会再维护了，可能不支持.Net2.0以上的版本)；正如其他地方已经提到的，看看使用IronRuby，如果这是您的技术选择。有一个主题是here.请注意，最后一篇文章实际上来自JohnLam(看起来像是2009年3月)，他似乎很自在地断言RubyCL

  6. ruby - 在 Windows 机器上使用 Ruby 进行开发是否会适得其反？ - 2

    这似乎非常适得其反，因为太多的gem会在window上破裂。我一直在处理很多mysql和ruby​​-mysqlgem问题(gem本身发生段错误，一个名为UnixSocket的类显然在Windows机器上不能正常工作，等等)。我只是在浪费时间吗？我应该转向不同的脚本语言吗？ 最佳答案 我在Windows上使用Ruby的经验很少，但是当我开始使用Ruby时，我是在Windows上，我的总体印象是它不是Windows原生系统。因此，在主要使用Windows多年之后，开始使用Ruby促使我切换回原来的系统Unix，这次是Linux。Rub

  7. java - 从 JRuby 调用 Java 类的问题 - 2

    我正在尝试使用boilerpipe来自JRuby。我看过guide从JRuby调用Java，并成功地将它与另一个Java包一起使用，但无法弄清楚为什么同样的东西不能用于boilerpipe。我正在尝试基本上从JRuby中执行与此Java等效的操作:URLurl=newURL("http://www.example.com/some-location/index.html");Stringtext=ArticleExtractor.INSTANCE.getText(url);在JRuby中试过这个:require'java'url=java.net.URL.new("http://www

  8. ruby - 调用其他方法的 TDD 方法的正确方法 - 2

    我需要一些关于TDD概念的帮助。假设我有以下代码defexecute(command)casecommandwhen"c"create_new_characterwhen"i"display_inventoryendenddefcreate_new_character#dostufftocreatenewcharacterenddefdisplay_inventory#dostufftodisplayinventoryend现在我不确定要为什么编写单元测试。如果我为execute方法编写单元测试，那不是几乎涵盖了我对create_new_character和display_invent

  9. 【鸿蒙应用开发系列】- 获取系统设备信息以及版本API兼容调用方式 - 2

    在应用开发中，有时候我们需要获取系统的设备信息，用于数据上报和行为分析。那在鸿蒙系统中，我们应该怎么去获取设备的系统信息呢，比如说获取手机的系统版本号、手机的制造商、手机型号等数据。1、获取方式这里分为两种情况，一种是设备信息的获取，一种是系统信息的获取。1.1、获取设备信息获取设备信息，鸿蒙的SDK包为我们提供了DeviceInfo类，通过该类的一些静态方法，可以获取设备信息，DeviceInfo类的包路径为：ohos.system.DeviceInfo.具体的方法如下：ModifierandTypeMethodDescriptionstatic StringgetAbiList​()Obt

  10. Vscode+Cmake配置并运行opencv环境(Windows和Ubuntu大同小异) - 2

    之前在培训新生的时候，windows环境下配置opencv环境一直教的都是网上主流的vsstudio配置属性表，但是这个似乎对新生来说难度略高(虽然个人觉得完全是他们自己的问题)，加之暑假之后对cmake实在是爱不释手，且这样配置确实十分简单(其实都不需要配置)，故斗胆妄言vscode下配置CV之法。其实极为简单，图比较多所以很长。如果你看此文还配不好，你应该思考一下是不是自己的问题。闲话少说，直接开始。0.CMkae简介有的人到大二了都不知道cmake是什么，我不说是谁。CMake是一个开源免费并且跨平台的构建工具，可以用简单的语句来描述所有平台的编译过程。它能够根据当前所在平台输出对应的m

随机推荐