DELPHI实现类似仿360桌面的程序界面

1.窗体半透明： Alphablend属性为true;Alphablendvalue的值为100

 

2.窗体透明：

formCreate:

Self.TransparentColor := True;
Self.TransparentColorValue := clBlack;

self.color := clblack;

 

3.隐藏桌面图标

var  h: HWND;

begin 

 h := FindWindow('Progman', nil);  {Progman 是桌面窗口的类名} 

 ShowWindow(h, SW_HIDE);

 

4.显示桌面图标

var  h: HWND;

begin 

 h := FindWindow('Progman', nil);  {Progman 是桌面窗口的类名} 

ShowWindow(h, SW_RESTORE);

 

转载于:https://www.cnblogs.com/hnxxcxg/archive/2011/07/14/2940598.html