Как извлечь текст из буфера в строку?

[Brother]

Приветствую!

Не подскажите, пожалуйста, какой командой:
1) извлечь текст из буфера и записать его в строку
2) записать строку в буфер

А то я застрял гдето здесь:
// выделяю текст
SendMessage( hWnd, EM_SETSEL, 5, 7 );
// вырезаю
SendMessage( hWnd, WM_CUT, 0, 0 );
???

Благодарствую!

[BOBAH13]

на счет буфера на апи не юзал посмотрите код класса TClipBoard ( clbrd.pas - вроде )

[bill]

Сообщение от BOBAH13

( clbrd.pas - вроде )

модуль clipbrd.pas

[rpy3uH]

вывод сообщения с текстом который находится в буфере обмена

procedure TForm1.Button1Click(Sender: TObject);
var
  str:pchar;
begin
  OpenClipboard(0);
  str:=pchar(GetClipboardData(CF_TEXT));
// в str указатель на строку
  ShowMessage(str);
  CloseClipboard;
end;