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