{$I KEYS} unit BMP2; interface uses WinTypes; procedure DrawBitMap(DC :HDC; BmpName :pChar; x,y :integer); implementation uses WinProcs, Win31, WinOut; var hInst :integer; procedure DrawBitMap(DC :HDC; BmpName :pChar; x,y :integer); var MemDC :HDC; Bmp, OldBmp :HBitmap; w, h :integer; L :longint; begin Bmp :=LoadBitMap(hInst, BmpName); L :=GetBitMapDimension(Bmp); w:=LOWORD(L); h:=LOWORD(L); w:=541; h:=355; MemDC :=CreateCompatibleDC(DC); OldBmp:=SelectObject(MemDC, Bmp); BitBlt(DC, x, y, w, h, MemDC, 0, 0, srcCopy); SelectObject(MemDC, OldBmp); DeleteObject(Bmp); DeleteDC(MemDC); end; begin hInst:=hInstance; end.