Speicher problem mit SHGetFileInfo

[EWeiss]

Hatten wir schon mal.

Delphi-Quellcode:

procedure TSkinListView.SetSysItemIcon(nItem, nSubItem: Integer; wsItems: WideString);
var
  fi: TSHFileInfo;
begin

  ZeroMemory(@fi, sizeof(TSHFileInfo));
  if SHGetFileInfo(PWideChar(wsItems), 0, fi, sizeof(TSHFileInfo),
    SHGFI_DISPLAYNAME Or SHGFI_SYSICONINDEX or SHGFI_SMALLICON or SHGFI_ICON) <> 0 then
  begin
    SetLength(ItemsInfo, nItem + 1);
    ItemsInfo[nItem].Item := nItem;
    ItemsInfo[nItem].SubItem := nSubItem;
    ItemsInfo[nItem].ImgIcon := fi.hIcon;
  end;
end;

Wenn ich mir von 5000 Dateien das Icon hole gibt es ein Speicherproblem
Muss ich noch irgendetwas freigeben ?

Wüsste jetzt nicht wo.

Zitat:

read of address 0x000003b0

Habe da mal was gegoogelt irgendwas mit Grafikkarten Speicher.
Aber ich hab 8GB Ram.


gruss