{$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.