Guten Tag,
ggf. habe ich ein riesiges Brett vor dem Kopf, aber ich versuche Dateien, deren Dateipfad und Dateinamen ich in einer StringListe gespeichert habe mittels CopyFilesToClipboard in die Zwischenablage kopieren, damit ich diese per Strg+V in beispielsweise Outlook einfügen kann.
Delphi-Quellcode:
procedure TForm1.BitBtn5Click(Sender: TObject);
var
aList : TStringList;
s, aListString : String;
begin
try
aList := TStringList.Create;
aList.Clear;
// hier wird die Liste mit den Dateinamen erstellt, ich habe die Dateinamen und Pfade auch aus der
// Liste mal wieder ausgeben lassen, die sind in Ordnung, wobei die teilweise Leerzeichen enthalten.
// Habe aber auch schon versucht die einzelnen Dateinamen inkl. Pfad in Anführungszeichen zu betten.
// Alles irgendwie ohne Erfolg.
// Muss eigentlich bei dem letzten Dateinamen dann das #0 weggelassen werden, da ja in der
// CopyFilesToClipboard dann #0#0 ergänzt wird?
aListString := '';
for i := 0 to aList.Count -1 do
begin
s:= aList[i];
aListString:= aListString + s + #0;
end;
CopyFilesToClipboard(aListString);
finally
FreeAndNil(aList);
end;
end;
Falls ich mal ein "DANKE" vergesse, hier schon mal eins im Voraus: Danke für Eure Zeit!