type thiconarray = array[0..0] of hicon;
type phiconarray = ^thiconarray;
function extracticonex(lpszfile: pansichar;
niconindex: integer;
phiconlarge : phiconarray;
phiconsmall: phiconarray;
nicons: uint): uint; stdcall;
external 'shell32.dll' name 'extracticonex';
2delphi7 sdk帮助里的这个函数也有问题：
the extracticon function retrieves the handle of an icon from the specified executable file, dynamic-link library (dll), or icon file.
hicon extracticon(
hinstance hinst, // instance handle
lpctstr lpszexefilename, // filename of file with icon
uint niconindex // index of icon to extract
);
parameters
hinst
identifies the instance of the application calling the function.
lpszexefilename
points to a null-terminated string specifying the name of an executable file, dll, or icon file.
niconindex
specifies the index of the icon to retrieve. if this value is 0, the function returns the handle of the first icon in the specified file. if this value is -1, the function returns the total number of icons in the specified file.
return values
if the function succeeds, the return value is the handle to an icon. if the file specified was not an executable file, dll, or icon file, the return is 1. if no icons were found in the file, the return value is null.
