Добавление текста в буфер обмена без использования модуля ClipbrdDelphi , ОС и Железо , Буфер обменаДобавление текста в буфер обмена без использования модуля Clipbrd
Автор: Dimka Maslov { **** UBPFD *********** by delphibase.endimus.com **** >> Добавление текста в буфер обмена без использования модуля Clipbrd Wnd - Handle окна, получающего доступ к буферу обмена, может быть Application.Handle или Form.Handle Value - текст, помещаемый в буфер обмена Зависимости: Windows Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург Copyright: Dimka Maslov Дата: 22 августа 2002 г. ***************************************************** } function SetClipboardText(Wnd: HWND; Value: string): Boolean; var hData: HGlobal; pData: pointer; Len: integer; begin Result := True; if OpenClipboard(Wnd) then begin try Len := Length(Value) + 1; hData := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, Len); try pData := GlobalLock(hData); try Move(PChar(Value)^, pData^, Len); EmptyClipboard; SetClipboardData(CF_Text, hData); finally GlobalUnlock(hData); end; except GlobalFree(hData); raise end; finally CloseClipboard; end; end else Result := False; end; Пример использования: procedure TForm1.Button1Click(Sender: TObject); begin SetClipboardText(Handle, 'qwerty'); end; Статья Добавление текста в буфер обмена без использования модуля Clipbrd раздела ОС и Железо Буфер обмена может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Буфер обмена ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |