Форум: "Прочее";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];
Вниз
Буффер обмена Найти похожие ветки
← →
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 вся ветка
Форум: "Прочее";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.04 c
