CSIDL_DESKTOP
是“表示Windows桌面的虚拟文件夹,命名空间的根目录”。因此,它没有文件系统路径可以传递给SHGetFileInfo()
。你可能想到的应该是CSIDL_DESKTOPDIRECTORY
,它是“用于在桌面上物理存储文件对象的文件系统目录(不要与桌面文件夹本身混淆)”:
GetFolderIcon(GetSpecialFolder(CSIDL_DESKTOPDIRECTORY))
当使用
SHGetFileInfo()
时,您可以指定
SHGFI_PIDL
标志,以便传递
PIDL
而不是文件系统路径。这允许查询虚拟项。您的代码已经使用了
SHGFI_PIDL
,但没有使用任何
PIDL
,这意味着您一开始就错误地使用了
SHGetFileInfo()
。
尝试这样做:
uses
..., ShlObj, SHFolder;
function GetSpecialFolderPath(FolderID: Integer): String;
var
Path: array[0..MAX_PATH] of Char;
begin
if SHGetFolderPath(0, FolderID, nil, SHGFP_TYPE_CURRENT, Path) = 0 then
Result := Path
else
Result := '';
end;
function GetSpecialFolderPidl(FolderID: Integer): PItemIDList;
begin
Result := nil;
SHGetSpecialFolderLocation(0, FolderID, Result);
end;
function GetFolderIcon( FName: String ): integer; overload;
var
FInfo: TSHFileInfo;
begin
ZeroMemory(@FInfo, SizeOf(FInfo));
if SHGetFileInfo(PChar(FName), FILE_ATTRIBUTE_NORMAL, FInfo, SizeOf(FInfo), SHGFI_USEFILEATTRIBUTES or SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_ICON or SHGFI_OPENICON ) <> 0 then
begin
Result := FInfo.iIcon;
if FInfo.hIcon <> 0 then DestroyIcon(FInfo.hIcon);
end else
Result := -1;
end;
function GetFolderIcon( Pidl: PItemIDList ): integer; overload;
var
FInfo: TSHFileInfo;
begin
if SHGetFileInfo(PChar(Pidl), FILE_ATTRIBUTE_NORMAL, FInfo, SizeOf(FInfo), SHGFI_PIDL or SHGFI_USEFILEATTRIBUTES or SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_ICON or SHGFI_OPENICON ) <> 0 then
begin
Result := FInfo.iIcon;
if FInfo.hIcon <> 0 then DestroyIcon(FInfo.hIcon);
end
else
Result := -1;
end;
var
Icon: Integer;
Pidl: PItemIDList;
begin
Icon := -1;
Pidl := GetSpecialFolderPidl(CSIDL_DESKTOP);
if Pidl <> nil then
try
Icon := GetFolderIcon(Pidl);
finally
CoTaskMemFree(Pidl);
end;
end;
var
Icon: Integer;
Path: string;
begin
Icon := -1;
Path := GetSpecialFolderPath(CSIDL_DESKTOPDIRECTORY);
if Path <> '' then
Icon := GetFolderIcon(Path);
end;
iniFile
的值是多少? - Jerry DodgeSHFILEINFO.iIcon
是系统图像列表中的索引。0 是有效的索引,但 -1 不是。因此,-1 是此代码的正确返回值。 - Remy Lebeau