获得文件ICON Windows API
Get files icon
//-------------------------------//
{
Function:
Get files icon
Parameter:
Filename: File path which icon will been gotten
SmallIcon: If true will get 16*16 size icon, false will get 32*32 size icon
Return value:
Icon's handle
Example:
frmTest.Icon.Handle := GetFileIcon('d:\test.doc', true);
image1.Picture.Icon.Handle := GetFileIcon('d:\test.doc', false);
}
function GetFileIcon(const Filename: string; SmallIcon: Boolean): HICON;