Code:

{ **** UBPFD *********** by kladovka.net.ru ****

>> ��������� ������ �� ������ ������ ��� ������������� ������ Clipbrd

Wnd - Handle ����, ����������� ������ � ������ ������;

Str - ������, � ������� ����� ���������� �����;

�����������: Windows

�����:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, �����-���������

Copyright:   Dimka Maslov

����:        22 ������� 2002 �.

********************************************** }

function GetClipboardText(Wnd: HWND; var Str: string): Boolean;

var

hData: HGlobal;

begin

Result:=True;

if OpenClipboard(Wnd) then begin

try

  hData:=GetClipboardData(CF_TEXT);

  if hData<>0 then begin

   try

    SetString(Str, PChar(GlobalLock(hData)), GlobalSize(hData));

   finally

    GlobalUnlock(hData);

   end;

  end else Result:=False;

  Str:=PChar(@Str[1]);

finally

  CloseClipboard;

end;

end else Result:=False;

end;

Code:

function TForm1.Button2Click(Sender: TObject)

var

Str: string;

begin

GetClipboardText(Handle, Str);

ShowMessage(Str);

end;