shgetfileinfo是什么函数，怎么一下多了两个线程

Question

procedure TForm1.SetTreeViewImageList;
var
  imagelist:thandle;
  fileinfo:tshfileinfo;
begin
//**********下面这句**********************
  imagelist:=shgetfileinfo(Pchar('c:\'),0,fileinfo,sizeof(tshfileinfo),shgfi_sysiconindex or shgfi_smallicon);
//*****************************
  if imagelist<>0 then
  imagelist2.Handle:=imagelist;
  imagelist1.ShareImages := TRUE;
    
end;大家帮帮忙，解释一下这句什么意思，怎么会产生两个线程?

Answer 1

function SHGetFileInfo(pszPath: PAnsiChar; dwFileAttributes: DWORD;var psfi: TSHFileInfo; cbFileInfo,uFlags: UINT): DWORDl;
　　pszPath 参数：指定的文件名。当uFlags的取值中不包含 SHGFI_PIDL时，可直接指定；否则pszPath要通过计算获得，不能直接指定；
　　 dwFileAttributes参数：文件属性，仅当uFlags的取值中包含SHGFI_USEFILEATTRIBUTES时有效，一般不用此参数；
　　psfi 参数：返回获得的文件信息，是一个记录类型，有以下字段：
　　hIcon: HICON; ／／文件的图标句柄
　　iIcon: Integer; ／／图标的系统索引号
　　dwAttributes: DWORD; ／／文件的属性值
　　szDisplayName: array [0..MAX_PATH－1] of AnsiChar; ／／文件的显示名
　　szTypeName: array [0..79] of AnsiChar; ／／文件的类型名
　　cbFileInfo 参数：psfi的比特值；
　　uFlags 参数：指明需要返回的文件信息标识符，常用的有以下常数：
　　SHGFI_ICON; ／／获得图标
　　SHGFI_DISPLAYNAME; ／／获得显示名
　　SHGFI_TYPENAME; ／／获得类型名
　　SHGFI_ATTRIBUTES;／／获得属性
　　SHGFI_LARGEICON; ／／获得大图标
　　SHGFI_SMALLICON; ／／获得小图标
　　SHGFI_PIDL;／／ pszPath是一个标识符
　　函数SHGetFileInfo()的返回值也随uFlags的取值变化而有所不同。通过调用SHGetFileInfo()可以由psfi参数得到文件的图标句柄，但要注意在uFlags参数中不使用SHGFI_PIDL时，SHGetFileInfo()不能获得”我的电脑”等虚似文件夹的信息。