procedure loadingCursor(turnON:boolean);
var
h:HCURSOR;
begin
if turnON then
begin
h:=LoadCursorFromFile('loading.ani');
setSystemCursor(h,ocr_normal);
end
else
SystemParametersinfo(SPI_SETCURSORS,0,nil,SPIF_SENDCHANGE);
end;
这段代码是改变鼠标光标的.我用memoryProof测试, 抱出说h变量没释放,所以导致内存泄露, 请问,这种变量需要释放吗?应该怎么释放?
var
h:HCURSOR;
begin
if turnON then
begin
h:=LoadCursorFromFile('loading.ani');
setSystemCursor(h,ocr_normal);
end
else
SystemParametersinfo(SPI_SETCURSORS,0,nil,SPIF_SENDCHANGE);
end;
这段代码是改变鼠标光标的.我用memoryProof测试, 抱出说h变量没释放,所以导致内存泄露, 请问,这种变量需要释放吗?应该怎么释放?
还有,什么才是内核对象的句柄?能举个例子吗
close(hpi.hprocess);