windows在关机的时候灰暗的状态怎么实现?我以前看过这方面的例子,感觉不太好.

Question

windows在关机的时候灰暗的状态怎么实现?我以前看过这方面的例子,感觉不太好.有没有什么简单的办法.

Answer 1

//--其实这是一种对窗口的一种灰度的颜色处理,自己再控制窗口和刷新var bBmp:array[0..15] of integer;
begin
bBmp[0]:=$55;
bBmp[2]:=$aA;
bBmp[4]:=$55;
bBmp[6]:=$aA;
bBmp[8]:=$55;
bBmp[10]:=$aA;
bBmp[12]:=$55;
bBmp[14]:=$aA;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a:HBitmap;
pattern:hgdiobj;
oldh:THandle;
v:hdc;
begin
a:=createbitmap(8,8,1,1,@bmp);
pattern:=createpatternbrush(a);
v:=getdc(0);
oldh:=selectobject(v,pattern);
bitblt(v,0,0,800,600,v,0,0,mergecopy);
selectobject(v,oldh);
releasedc(0,v);
deleteobject(a);
deleteobject(pattern);
end;
恢复屏幕
procedure TForm1.Button2Click(Sender: TObject);
var arect:Trect;
begin
arect:=rect(0,0,800,600);
invalidaterect(0,@arect,true);
end;
end.