关于HPEN的问题

[KyosukeNo1]

小弟在写一个程序DirectX时，用了HPEN画线，程序如下：
在程序运行初期正常（期间因为刷新，不断调用下面的程序段），但过了一段时间后就不能画出线来了，请问这是为什么？要怎么解决？

HDC hdc;
lpDDSBack->GetDC(&hdc);
HPEN hpen;

hpen = CreatePen(PS_SOLID, 1, RGB(255,255,255));
SelectObject(hdc, hpen);
MoveToEx(hdc, Pos.x+30, Pos.y+4, NULL);
LineTo(hdc, Pos.x+25, Pos.y+4);
LineTo(hdc, Pos.x+25, Pos.y+80);
LineTo(hdc, Pos.x+30, Pos.y+80);
MoveToEx(hdc, Pos.x+82, Pos.y+4, NULL);
LineTo(hdc, Pos.x+87, Pos.y+4);
LineTo(hdc, Pos.x+87, Pos.y+80);
LineTo(hdc, Pos.x+82, Pos.y+80);

lpDDSBack->ReleaseDC(hdc);

[In355Hz]

不要每次调用都创建 HPEN，第一次调用时创建后保存；
此外 ReleaseDC 前最好恢复原来的 HPEN:

HPEN hOldPen = (HPEN)SelectObject(hdc, hpen);
...

SelectObject(hdc, hOldPen);
lpDDSBack->ReleaseDC(hdc);

[KyosukeNo1]

那删除HPEN的函数是什么？

[robothn]

::DeleteObject(hpen);

====