在虾们，急啊，帮我啊！

我用下面的代码获得系统图：
   在win2000下面就很正常啊！
   在win98下面就不行了，急急啊！
procedure TForm1.FormCreate(Sender: TObject);
begin
  with listview1 do
    begin
      smallimages:=Timagelist.CreateSize(32,32);
      smallimages.ShareImages:=true;
      smallimages.Handle:=shgetfileinfo(nil,0,shfileinfo,sizeof(shfileinfo),
                    shgfi_largeicon or shgfi_icon or shgfi_sysiconindex);
      largeimages:=Timagelist.CreateSize(32,32);
      largeimages.ShareImages:=true;
      largeimages.Handle:=shgetfileinfo(nil,0,shfileinfo,sizeof(shfileinfo),
                    shgfi_largeicon or shgfi_icon or shgfi_sysiconindex);
    end;
  { 分配系统资源给ListView1组件以显示图标 }
end;