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

[Gerzs]

У меня безоконное приложение.
Как добавить свое приложение к цепочке приложений получающих сообщений WM_DRAWCLIPBOARD?
Для SetClipboardViewer нужно указать HWnd окна, а у меня окна нет.

[raxp]

тырк

program no_form;

uses windows, classes, messages, clipbrd;

type
 TF = class
 protected
  FWnd: HWnd;
  constructor Create;
  destructor Destroy;
  procedure WndProc(var Msg:TMessage); message WM_DRAWCLIPBOARD;
end;

var PrevHwnd : Hwnd;
     fwnd: HWND;
     t:tf;
     Msg: tmsg;

constructor TF.Create;
begin
 inherited Create;
 FWnd:= AllocateHWnd(WndProc);
 //
 PrevHwnd:= SetClipboardViewer(FWnd)
end;

destructor TF.Destroy;
begin
 inherited Create;
 deAllocateHWnd(fWnd)
end;

procedure tf.WndProc(var Msg:TMessage);
VAR p: PChar;
    H: THandle;
begin
 if Msg.wparam = WM_DRAWCLIPBOARD then begin

  SendMessage(PrevHWnd, WM_DRAWCLIPBOARD, 0, 0);
  IF Clipboard.HasFormat(CF_TEXT) THEN BEGIN
   H := Clipboard.GetAsHandle(CF_TEXT);
   P := GlobalLock(H);
   ///speeks(p); //озвучка // тут делаем что-необходимо
   GlobalUnlock(H);
  END;
  Msg.Result := 0;

 end
end;


begin
 t:= tf.Create;
 //
 try while GetMessage(Msg, 0, 0, 0) do begin
  TranslateMessage(Msg);
  DispatchMessage(Msg)
 end finally t.destroy end
// END СКЕЛЕТ ============================================

end.

[Gerzs]

Благодарю!