Скопировать изображение в буфер обмена

#define CF_BITMAP 2
#define IMAGE_BITMAP 0
#define LR_LOADFROMFILE 0x00000010
external(INT, "OpenClipboard", "OpenClipboard", "User32.dll" );
external(INT, "CloseClipboard", "CloseClipboard", "User32.dll" );
external(INT, "EmptyClipboard", "EmptyClipboard", "User32.dll" );
external(INT, "SetClipboardData", "SetClipboardData", "User32.dll" );
external(INT, "LoadImage", "LoadImageA", "User32.dll");
external(INT, "DeleteObject", "DeleteObject", "Gdi32.dll");

write_clipboard("C:\Image.bmp"); // скопировать изображение в буфер


function write_clipboard(string path)
{
int image = LoadImage(0, path, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE);
if(image==0){messagebox("Картинка не загружена"); return;}
OpenClipboard(0); // открыть буфер
EmptyClipboard(); // очистить
SetClipboardData(CF_BITMAP, image); // запись в буфер
CloseClipboard(); // закрыть буфер
DeleteObject(image); // удалить изображение
}