Среда, 13.11.2024, 09:00 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
Буфер обмена
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
Спасибо БОЛЬШОЕ, очень помог!
 
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz