|
Буфер обмена
|
|
| Myips | Дата: Пятница, 13.05.2011, 20:53 | Сообщение # 1 |
Частый гость
Зарегистрирован: 13.05.2011
Группа: Пользователи
Сообщений: 26
Статус: Offline
| Интересует, как вытащить текст из буфера и сохранить в txt файл без перезаписи?
|
| |
| |
| gravitas | Дата: Пятница, 13.05.2011, 21:00 | Сообщение # 2 |
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
| Code Uses
Clipbrd
var
a:String;
F:textfile;
begin
a:=clipboard.astext;
AssignFile(f, '1.txt');
Rewrite(f);
writeln(f, a);
CloseFile(f);
end;
Писал по памяти. Возможно ошибся в имени модуля. Погугли на тему "Пием троян для WebMoney delphi".
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
| |
| Myips | Дата: Пятница, 13.05.2011, 21:11 | Сообщение # 3 |
|
Частый гость
Зарегистрирован: 13.05.2011
Группа: Пользователи
Сообщений: 26
Статус: Offline
| Работает спасибо, я писал похожее, но проблема в том, что файл перезаписывает. Как сделать чтобы в файл добавлялся текст из буфера, а не перезаписывал текст?
|
| |
| |
| gravitas | Дата: Пятница, 13.05.2011, 21:12 | Сообщение # 4 |
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
| Code var
a:String;
F:textfile;
begin
a:=clipboard.astext;
AssignFile(f, '1.txt');
Append(f);
writeln(f, a);
CloseFile(f);
end;
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
| |
| Myips | Дата: Пятница, 13.05.2011, 21:21 | Сообщение # 5 |
|
Частый гость
Зарегистрирован: 13.05.2011
Группа: Пользователи
Сообщений: 26
Статус: Offline
| Спасибо
|
| |
| |
| Myips | Дата: Пятница, 13.05.2011, 21:27 | Сообщение # 6 |
|
Частый гость
Зарегистрирован: 13.05.2011
Группа: Пользователи
Сообщений: 26
Статус: Offline
| Еще одна проблема, как проверить текст в файле, а то при использовании таймера он в файл записывает один и тот же текст из буфера.
|
| |
| |
| dolphin | Дата: Пятница, 13.05.2011, 22:13 | Сообщение # 7 |
Администратор
Сообщений: 906
Статус: Offline
| Вроде так Доступно только для пользователей
Система: Windows 10 x64, Kali Linux
Среды программирования: Delphi 7, Delphi 10.x
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
Сообщение отредактировал dolphin - Пятница, 13.05.2011, 22:15 |
| |
| |
| Myips | Дата: Пятница, 13.05.2011, 22:31 | Сообщение # 8 |
|
Частый гость
Зарегистрирован: 13.05.2011
Группа: Пользователи
Сообщений: 26
Статус: Offline
| Спасибо БОЛЬШОЕ, очень помог!
|
| |
| |
