ShellShock Komponenten

[Michaela_]

Hi Christian,

habe ein simples Formular mit TStShellComboBox, TStShellListView und der TstShellTreeView.
Ich möchte nur eine Dateiauswahl wie im Explorer erstellen. Die Komponenten sind untereinander Verbunden. Komischerweise gehts ja aber hin und wieder nach erneuten Kompilieren bricht die TreeView eben mit einem Fehler ab.

Es ist die TStShellItem.CreateFromPidl() Funktion die Fehlschlägt.
Und in dieser Funktion ist es der Befehl ILClone(Pidl);

Delphi-Quellcode:

constructor TStShellItem.CreateFromPidl(Pidl : PItemIDList;
  AController : TStCustomShellController);
var
...                                      
begin
  inherited Create;
  if Pidl = nil then Exit;
  FPidl := ILClone(Pidl);    <--- FEHLER
  FSimplePidl := ILClone(ILFindLastID(Pidl));
  ...

Wenn der Fehler immer auftreten würde wärs sicher einfacher.
Delphi7 hätte ich ja auch, aber das Projekt läuft noch auf v5 und wäre zu Aufwendig jetzt
nur deswegen umzustellen.