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

[)Игнат(]

Здравствуйте уважаемые форумчане.
Я начал писать программу, которая регулярно(по таймеру) заносит в буфер обмена некоторый текст.
И столкнулся со следующей проблемой:
если я пытаюсь вставить текст из буфера обмена, к примеру, в блокнот,
и мое действие происходит одновременно с занесением нового текста в буфер, выскакивает ошибка "Cannot open Clipboard"
программа при этом не вылетает, продолжает работать.
Как можно решить/проигнорировать эту ошибку?
Заранее благодарен.

[Alex Cones]

Если занесение данных не критически важно, то вставляем в try except. Иначе решаем проблему при помощи флагов. Пока буфер "занят" ставьте флаг, освобождаете буфер - снимайте флаг.

[)Игнат(]

Сообщение от Alex Cones

Если занесение данных не критически важно, то вставляем в try except. Иначе решаем проблему при помощи флагов. Пока буфер "занят" ставьте флаг, освобождаете буфер - снимайте флаг.

Занесение не важно критически.
а вот в какой форме должно выглядеть

try except

если код занесения в буфер следующий:

Clipboard.SetTextBuf(PChar(текстовая_переменная));

[Alex Cones]

Когда программа вылетает с ошибкой она показывает коовое название ошибки, например EOnZeroDivide.

Делаем так:

Try
 Clipboard.SetTextBuf(PChar(текстовая_переменная));
Except
 On КОДОВОЕ_НАЗВАНИЕ_ОШИБКИ Do ДЕЙСТВИЯ ПРИ ОШИБКЕ. Например занесем это в лог программы.

Учтите, что при отладке в дебаггере ошибка будет по прежнему выскакивать, но при запуске exe - больше нет.

[)Игнат(]

А можно последний вопрос?
как узнать кодовое имя ошибки?
она на скрине

[Alex Cones]

Хм... Странно. Обычно тип ошибки показывается...
Попробуйте указать просто Exception

[)Игнат(]

Try
 Clipboard.SetTextBuf(PChar(текстовая_переменная));
Except
 On Exception  Do действие;

тогда вот вопрос, можно ли просто пропустить ошибку?
оператор Continue работает только в цикле

***Добавлено***
Решил проблему так:
создал холостую переменную, и менял ее значение то на ноль, то на 1
Спасибо за помощь!

[psycho-coder]

Try
 Clipboard.SetTextBuf(PChar(текстовая_переменная));
Except
End;

[Пепел Феникса]

в except/finally не обязательно писать On
можно и опустить(а можно написать On E:Exception do и затем использовать сообщение исключения)