Hab doch noch eine Lösung gefunden und möchte Euch natürlich noch dran teilhaben lassen. Mein Kollege hat mir verraten, dass man mit STRG+C die aktuell markierte Zeile in den überwachten Ausdrücken kopieren kann. Drum hab ich mir ein kleines Prog geschrieben, dass die Zeilen dann direkt in eine Datei schreibt:
Delphi-Quellcode:
program ClipboardTextToFile;
uses
sysutils,
dialogs,
Classes,
Windows,
clipbrd;
var
Liste: TStringlist = nil;
Ablage: TClipBoard = nil;
Dateiname: string = 'clipboard.txt';
begin
//Tastendruck strg+c simmulieren
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
keybd_event(99, 81, 0, 0);
keybd_event(99, 81, KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);
if paramcount > 0 then
begin
if (uppercase(paramstr(1)) = '/HELP') or (paramstr(1) = '/?') then
begin
showmessage('Fügt den Inhalt der Zwischenablage an eine Datei an, die als Parameter übergeben wird');
Dateiname:='';
end
else
Dateiname := Paramstr(1);
end;
try
Ablage := TClipBoard.Create;
Liste := TStringlist.create;
if Fileexists(Dateiname) then
Liste.LoadFromFile(Dateiname);
Liste.add(Ablage.AsText);
Liste.SaveToFile(Dateiname);
finally
Liste.Free;
Ablage.Free;
end;
end.
Das ganze auf eine Sondertaste meiner Tastatur gelegt... und es funzt wunderbar.