VST -> Stateimages durch handle auf ShellIcon?

[stOrM]

Hmm bin mir nicht sicher ob es das ist was du suchst, aber ich hab das mal so in etwa gemacht:

Delphi-Quellcode:

function GetIconIndex(Name: string; Flags: Cardinal): Integer;
// Returns the index of the system icon for the given file object.
var
  SFI : TSHFileInfo;
  Tmp         : String;
  ResPath     : String;
begin
 Tmp := lowercase(trim(Name));
 ResPath := VBSplit('.exe', Tmp, 0);
 ResPath := ResPath + '.exe';
 KillChars(ResPath, ['"', ',']);

  if SHGetFileInfo(PChar(ResPath), 0, SFI, SizeOf(TSHFileInfo), Flags) = 0 then
    Result := -1
  else
    Result := SFI.iIcon;
end;

procedure TForm1.vRegGetImageIndex(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
  var Ghosted: Boolean; var ImageIndex: Integer);
  var Data : PRegObjectData;
begin
  if Column = 0 then
  begin
    Data := Sender.GetNodeData(Node);
    case Kind of
      ikNormal,
      ikSelected:
        begin
          if Sender.Expanded[Node] then
            ImageIndex := -1
          else
            ImageIndex := GetIconIndex(Data.ImagePath, SHGFI_SYSICONINDEX or SHGFI_LARGEICON);
        end;

usw...

Grüße
s!