Hello, com forumers I have to change the code to add more files to the VST in the opendialog multiselect is set
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Node: PVirtualNode;
Data: PData;
i: Integer;
begin
if OpenDialog1.Execute then
begin
VST.NodeDataSize := SizeOf(TData);
Node := VST.AddChild(nil);
Data := VST.GetNodeData(Node);
for i := 0 to OpenDialog1.Files.Count -1 do
Data^.PATH := ExtractFilePath(OpenDialog1.files[i]);
Data^.FImage := ExtractFileName(OpenDialog1.Files[i]);
end;
end;