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);