Получение текста из буфера обмена без использования модуля ClipbrdDelphi , ОС и Железо , Буфер обменаПолучение текста из буфера обмена без использования модуля Clipbrd
Автор: Dimka Maslov { **** UBPFD *********** by delphibase.endimus.com **** >> Получение текста из буфера обмена без использования модуля 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; Пример использования: function TForm1.Button2Click(Sender: TObject) var Str: string; begin GetClipboardText(Handle, Str); ShowMessage(Str); end; Статья Получение текста из буфера обмена без использования модуля Clipbrd раздела ОС и Железо Буфер обмена может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Буфер обмена ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |