FreeBasic
Главная
Вход
Регистрация
Четверг, 28.03.2024, 15:04Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Исходники » Битмап в CilpBoard (Изображение в буфер обмена)
Битмап в CilpBoard
haavДата: Четверг, 11.10.2012, 07:52 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1361
Репутация: 49
Статус: Offline
Изображение в буфер обмена


Code

#Include "windows.bi"

Function Clip() As Integer
         Dim hBmp As HBITMAP
         hBmp=LoadImage(0,"1.bmp",IMAGE_BITMAP,0,0,LR_LOADFROMFILE Or LR_DEFAULTSIZE)
         OpenClipboard(0)
         EmptyClipboard()
         If SetClipboardData(CF_BITMAP,CopyImage(hBmp,IMAGE_BITMAP,0,0,LR_COPYRETURNORG)) Then Return TRUE
         CloseClipboard()
End Function
Clip()


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