Einzelnen Beitrag anzeigen

GoTo0815

Registriert seit: 18. Mai 2004
148 Beiträge
 
Delphi XE2 Professional
 
#14

AW: [D2010] Dateien in Zwischenablage kopieren (PDF)

  Alt 15. Mai 2015, 16:47
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!
  Mit Zitat antworten Zitat