FreeBasic
Главная
Вход
Регистрация
Пятница, 29.03.2024, 12:01Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Исходники » Текст в ClipBoard (Текст в буфер обмена)
Текст в ClipBoard
haavДата: Четверг, 18.10.2012, 07:34 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1361
Репутация: 49
Статус: Offline
Код этой функци взял из моей библиотеки.

Code
#Include once "windows.bi"

Function SetClipBoardText(ByVal Text As String) As integer Export
    Var Clip = GlobalAlloc(GMEM_MOVEABLE Or GMEM_SHARE, Len(Text)+1)
    OpenClipboard(0)
    EmptyClipboard()
    Var Mem = GlobalLock(Clip)
    CopyMemory(Mem, Strptr(Text), Len(Text))
    GlobalUnlock(Mem)
    Function=cast(integer,SetClipboardData(CF_TEXT,Clip))
    CloseClipboard()
    GlobalFree(Clip)
End Function

SetClipBoardText("TEXT")


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Форум » Freebasic » Исходники » Текст в ClipBoard (Текст в буфер обмена)
  • Страница 1 из 1
  • 1
Поиск: