知道一个Icon.Handle怎么draw它呀. ( 积分: 50 )

如题.{function GetFileIcon(FileName: string; var Icon: TIcon): Boolean;
var
SHFileInfo: TSHFileInfo;
h: HWND;
begin
if not Assigned(Icon) then
Icon := TIcon.Create;
h := SHGetFileInfo(PChar(FileName),0,SHFileInfo,SizeOf(SHFileInfo),SHGFI_ICON or SHGFI_SYSICONINDEX);
Icon.Handle := SHFileInfo.hIcon;
Result := (h <> 0);
end;}
这个函数是api还是delphi的.要uses什么呀.

如题.{function GetFileIcon(FileName: string; var Icon: TIcon): Boolean;
var
SHFileInfo: TSHFileInfo;
h: HWND;
begin
if not Assigned(Icon) then
Icon := TIcon.Create;
h := SHGetFileInfo(PChar(FileName),0,SHFileInfo,SizeOf(SHFileInfo),SHGFI_ICON or SHGFI_SYSICONINDEX);
Icon.Handle := SHFileInfo.hIcon;
Result := (h <> 0);
end;}
这个函数是api还是delphi的.要uses什么呀.

这个应该是自己写的函数吧