Идёт загрузка страницы...

htp://aptem.net.ru





Delphi 1

Помещение изображения в буфер обмена


   
var
BMP: TBitmap;hBmp:HBITMAP;
begin
BMP := TBitmap.Create;
BMP.LoadFromFile('имя файла');

hBmp:=BMP.Handle;

Clipboard.Assign(BMP);
{здесь освобождаем объекты}
end;

(Очевидно) Clipboard.Assign требует наличия HBITMAP, и чтобы он создавался не LoadFromFile, но HBITMAP создается при ссылке на BMP.Handle. (Примеры в документации - Clipboard.Assign(aTImage.Picture); у нас уже создан дескриптор окна.)

Надеюсь, это поможет.

- Dave Ullrich