VirtualStringTree - SHGetFileInfo hängt Programm auf / Canvas erlaubt kein Zeichnen

[Moombas]

@Dolly: Evtl. hilft dir das, wenn nicht war es ein Versuch
So mache ich es in Lazarus (ohne ):

Delphi-Quellcode:

LargeIco, SmallIco : hIcon;  
...
      ExtractIconEx(PChar(Pfad\Datei.exe), 0, LargeIco, SmallIco, 1);
      Icon.Handle := LargeIco;
      Icon.Transparent := True;
      ToolI.Picture.Icon := Icon;

So habe ich es vorher in Delphi gemacht:

Delphi-Quellcode:

icon   : TIcon;
Filter : word;
...
    Icon := TIcon.Create;
    try
      Icon.Handle:=ExtractAssociatedIcon(hInstance, PChar(ToolE.Text), Filter);
      ToolI.Picture.Icon := icon;
    finally
      icon.Free;
    end;