假如你需要存取WIN95的系统图象列表，这里给出具体方法。第一个函数将系统图象列表的索引保存到一个特殊类型的文件中：
function GetFileIcoIndex(Filename:String):Integer;
var
Ext: String;
ShFileInfo: TSHFILEINFO;
begin
Ext := filename;
ShGetFileInfo(PChar(Ext), 0, SHFileInfo,
SizeOf(SHFileInfo), SHGFI_SMALLICON or
SHGFI_SYSICONINDEX or SHGFI_TYPENAME);
result:= SHFileInfo.iIcon;
end;
下面将系统图象列表连接到TListView
控件上。注意我们设置动态建立的图象列表的ShareImages属性为真，这可以确保我们不试图释放Windows系统拥有的图象。在窗体的OnCreate事件处理
程序中加上：
with YourListView do
begin
SmallImages := TImageList.CreateSize(16,16);
SmallImages.ShareImages := True;
SmallImages.Handle := ShGetFileInfo('*.*', 0,
SHFileInfo, SizeOf(SHFileInfo), SHGFI_SMALLICON or
SHGFI_ICON or SHGFI_SYSICONINDEX);
LargeImages := TImageList.Create(nil);
LargeImages.ShareImages := True;
LargeImages.Handle := ShGetFileInfo('*.*', 0,
SHFileInfo, SizeOf(SHFileInfo), SHGFI_LARGEICON or
SHGFI_ICON or SHGFI_SYSICONINDEX);
end;
关闭窗体时，在其OnDestroy事件处理
程序中加上以下代码，释放申请的系统资源：
YourListView.SmallImages.Free;
YourListView.LargeImages.Free;
