FreePascal.ru

Нет возможности проверить на х64 Попробуйте так:

Не так всё просто в Lazarus с обработкой сообщений Windows. Вот рабочий код для отслеживания буфера обмена.
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Windows, Clipbrd;

type
TFormViewer = class(TForm)
Memo1&#58 ...

Или может я вопрос не понял...
Дело в том, что в Delphi можно сделать так:
procedure WMDrawClipboard(var Msg: TWMCLIPBOARDUPDATE); message WM_CLIPBOARDUPDATE;

procedure WMDrawClipboard(var Msg: TWMCLIPBOARDUPDATE);
begin
// обработка
Msg.Result := 0;
end;
Вероятно, вот этот ноль ...

alex208210 писал(а):в функции если условие выполнится, то результата у функции не будет.. перед exit присвойте result какое нить значение

Да, действительно... А какое конкретно в данном случае значение нужно присвоить?

Здравствуйте, уважаемые.
Изучаю Lazarus (пока под Windows). Столкнулся с обработкой сообщений. Сделал так:
var PrevWndProc: WNDPROC;
...
function WndCallback(Ahwnd: HWND; uMsg: UINT; wParam: WParam; lParam: LParam): LRESULT; stdcall;
begin
if (uMsg = WM ...