Der Ansatz ist schonmal richtig, aber zum hinzufügen fehlt noch ein bißchen Code.
Zu finden ist das ganze in der DemoApp im Ordner Demo.
Die wichtigen Teile für eine ISO sind unter
WMDropFiles bei "case pcWrite.TabIndex of" zu finden:
Delphi-Quellcode:
1:
begin
if Assigned(NeroWriteCD) then
ReallocMem(NeroWriteCD, SizeOf(NERO_WRITE_CD))
else
NeroWriteCD :=AllocMem(SizeOf(NERO_WRITE_CD));
if not Assigned(RootIsoItem) then
begin
RootIsoItem := NeroCreateIsoItem();
RootIsoItem.fileName := '';
end;
{ TODO : Add Visual return of added files and directories }
AddFileToRootIsoItem(RootIsoItem, WhichFiles.Strings[i]);
tvIso.Items.Add(TTreeNode.Create(tvIso.Items), WhichFiles.Strings[i]);
end;
Die tvIso-Zeile hab ich zu Testwecken hinzugefügt (unsicher), um die Visualisierung zu testen.
Für den weiteren wichtigen Code musst du dir die Prozedur
AddFileToRootIsoItem angucken.