Скачать: CL | DM;

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

← →
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)

---

← →
G_M_S ©   (2007-06-16 10:18) [5]

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

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

---

← →
TUser ©   (2007-06-16 12:25) [6]

> G_M_S ©   (16.06.07 10:18) [5]

if HasFormat()

Но лучше ловить WM_DRAWCLIPBOARD, см. также SetClipboardViewer

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c