var a:String; F:textfile; begin a:=clipboard.astext; AssignFile(f, '1.txt'); Rewrite(f); writeln(f, a); CloseFile(f); end;
Писал по памяти. Возможно ошибся в имени модуля. Погугли на тему "Пием троян для WebMoney delphi". TheDeduction Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
Работает спасибо, я писал похожее, но проблема в том, что файл перезаписывает. Как сделать чтобы в файл добавлялся текст из буфера, а не перезаписывал текст?
