Операционная система

Операционная система

Буфер обмена

Просмотр буфера обмена

Пример на основе простого модуля-класса, осуществляющего просмотр буфера обмена.

unit ClipboardViewer;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type TForm1 = class(tform)

 procedure FormCreate(Sender: TObject);

 procedure FormDestroy(Sender: TObject);

private

 FNextViewerHandle : THandle;

 procedure WMDrawClipboard(var message: TMessage); message WM_DRAWCLIPBOARD;

 procedure WMChangeCBCHain(var message: TMessage); message WM_CHANGECBCHAIN;

public

end;

var Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

 // Проверяем работоспособность функции.

 // При невозможности просмотра буфера обмена

 // функция возвратит значение Nil.

 FNextViewerHandle:= SetClipboardViewer(Handle);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

 // Восстанавливаем цепочки.

 ChangeClipboardChain(Handle, FNextViewerHandle);

end;

procedure TForm1.WMDrawClipboard(var message: TMessage);

begin

 // Вызывается при любом изменении содержимого буфера обмена

 message.Result := SendMessage(WM_DRAWCLIPBOARD, FNextViewerHandle, 0, 0);

end;

procedure TForm1.WMChangeCBCHain(var message: TMessage);

begin

 // Вызывается при любом изменении цепочек буфера обмена.

 if message.wParam = FNextViewerHandle then begin

  // Удаляем следующую цепочку просмотра. Корректируем внутреннюю переменную.

  FNextViewerHandle:= message.lParam;

  // Возвращаем 0 чтобы указать, что сообщение было обработано

  message.Result:= 0;

 end else begin

  // Передаем сообщение следующему окну в цепочке.

  message.Result:= SendMessage(FNextViewerHandle, WM_CHANGECBCHAIN, message.wParam, message.lParam);

 end;

end;

end.

Поделитесь на страничке

Следующая глава >

Похожие главы из других книг:

О книге «Операционная система UNIX»

Из книги автора

О книге «Операционная система UNIX» Посвящается моим близким Назначение книги Данная книга не является заменой справочников и различных руководств по операционной системе UNIX. Более того, сведения, представленные в книге, подчас трудно найти в документации, поставляемой


Операционная система

Из книги автора

Операционная система Операционная система (ОС) – это комплекс программ, обеспечивающих пользовательский интерфейс, ввод и вывод информации, работу с файлами, выполнение прикладных программ, подключение компьютера к сети и координацию работы аппаратных средств. Помимо


Операционная система

Из книги автора

Операционная система Все перечисленные компоненты для написания примеров были установлены на одном компьютере, работающем под управлением Windows NT4 Service Pack 5, Internet Explorer


Операционная система

Из книги автора

Операционная система Устойчивая работа программы Premiere Pro гарантируется на компьютере с инсталлированной операционной системой Microsoft Windows XP с установленным пакетом исправлений Service Pack 2 или выше или Microsoft Windows


15.1. Операционная система, дружественная к разработчику

Из книги автора

15.1. Операционная система, дружественная к разработчику За операционной системой Unix давно закрепилась репутация хорошей среды для разработки программ. Она хорошо оснащена инструментами, написанными программистами для программистов. Данные инструменты автоматизируют


ОПЕРАЦИОННАЯ СИСТЕМА UNIX.

Из книги автора

ОПЕРАЦИОННАЯ СИСТЕМА UNIX. Переключение вывода Предположим, вы осуществили компиляцию программы ввод-вывод4 и поместили выполняемый объектный код в файл с именем getput4. Затем, чтобы запустить данную программу, вы вводите с терминала только имя файла getput4и программа


Операционная система UNIX

Из книги автора

Операционная система UNIX Waite Mitchell, Martin Don and Praia Stephen , UNIX Primer Plus, Howard W. Sams and Company, Inc., 1983.Эта книга - легко читаемое введение в операционную систему UNIX. В неe включены некоторые мощные расширения этой системы, реализованные в Калифорнийском университете (Беркли).


Операционная система

Из книги автора

Операционная система Буфер обмена Просмотр буфера обмена Пример на основе простого модуля-класса, осуществляющего просмотр буфера обмена.unit ClipboardViewer;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(tform) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender:


Операционная система

Из книги автора

Операционная система Существует несколько вариантов той большой программы, называемой операционной системой, которая будет управлять работой мобильного компьютера:> Windows XP – самый надежный и стабильный вариант. Если же хочется красивостей из Windows Vista, то это легко


Предустановленная операционная система

Из книги автора

Предустановленная операционная система На ноутбуки, построенные на платформе РС, обычно предустанавливают одну из трех операционных систем: DOS, Linux или Microsoft Windows. Все три варианта (разумеется, мы говорим только о лицензионных компьютерах и операционных системах!) имеют


Глава 2 Операционная система Windows

Из книги автора

Глава 2 Операционная система Windows • Рабочее место• Ярлыки и папки• Окна• Файлы• Работа с файламиВаш компьютер работает под управлением операционной системы Windows. Вообще говоря, различные версии Windows (95, 98, 2000, Me, XP…) отличаются друг от друга. Но главное их достоинство –


Операционная система

Из книги автора

Операционная система Что такое «операционная система»? Название настораживает. Не успев начать изучение компьютера, уже пора заботиться о здоровье? Да еще таким способом?Спокойно, врачи нам не нужны.Для того чтобы в нашем железном друге было все в порядке и


Откуда берется операционная система

Из книги автора

Откуда берется операционная система На вашем компьютере она может появиться несколькими способами.1) Самый простой способ – купить компьютер с установленной операционной системой. Но нам простые пути не нужны, сами с усами. То есть не хуже тех, кто с усами. Тем более что