画图法:<br><br>var<br> FullscreenCanvas:TCanvas;<br> DC:HDC;<br>begin<br> DC:=GetDC(0);<br> FullscreenCanvas := TCanvas.Create;<br> FullscreenCanvas.Handle := DC;<br> {<br> //逐点逐行画屏幕底部 ,回避掉你的modal窗体:<br> //有标准的灰度转换算法,查一下。<br> for ....<br> FullScreenCanvas.Pixels[x,y]:=color;<br> } <br> FullscreenCanvas.Free;<br> ReleaseDC(0,DC);<br><br>(有缺点,鼠标点中图标,图标应该会响应,变亮)<br><br>应该有其他更好的方法,比如取得EXPLORER的句柄做操作,猜测而已。