Буффер обмена

← →
ShadowGM © (2007-06-16 03:41) [0]

Кто подскажет исходник такой задачи:
begin
1. ждем появления в буфере обмена такое содержимое: А............
(вместо точек любые знаки, только именно 12)
2. если такое содержимое появляется, то заменяет на: В............
end;
end.
Кто напишет огромный респект и уважуха!!! Заранее спасибо!

← →
Германн © (2007-06-16 03:56) [1]

> Кто напишет огромный респект и уважуха!!! Заранее спасибо!
>
>

Пошёль нафик, с Новыым Годои!
:)

← →
ShadowGM © (2007-06-16 04:17) [2]

спс

← →
Германн © (2007-06-16 04:23) [3]

пжста

← →
G_M_S © (2007-06-16 09:54) [4]

> Кто подскажет исходник такой задачи:

А самому написать слабо? Хотя если "респект и уважуха" будет выражена в виде 40 WMZ... То без проблем, напишу. За подробностями - в асю (276-506-698)

Ладно, держи нашару:

procedure TForm2.Timer1Timer(Sender: TObject);
var
cl: TClipboard;
s: String;
begin
cl := Clipboard;
s:= cl.AsText;
if Length(s) = 13 then
if s[1] = "A" then
s[1] := "B";
cl.AsText := s;
end;

Не забудь:
1) таймер кинуть на форму и присвоить интервал 50
2) прописать в USES юнит Clipbrd

Буффер обмена Найти похожие ветки