求Delphi高手帮忙

Question

你没有释放资源,而且,在再次触发Timer事件后,又会同样占用另一大小的系统资源!

Answer 1

请把Timer.Interval设成100请多等一会，在“我的电脑/系统资源”中自然会看到资源不断减少。

Answer 2

我在2000中,procedure TForm1.Timer1Timer(Sender: TObject);
var
  pIconInfo: _iconinfo;
  Hand:HIcon;
begin
  timer.enable :=false;  //...
  Hand:=GetCursor();
  GetIconInfo(Hand, pIconInfo);
  timer1.enable :=true;   //....
end;

Answer 3

是不是Win98内部的BUG?
很明显,资源消耗是在GetIconInfo内部,可它有时WIN API...
如果它在内部申请资源,我们在外面如何释放呢?

Answer 4

感谢bcb高手，使用deleteObject(pIconInfo.hbmMask)搞定。