刚好前几天写的程序中有<br>Var<br> Wnd: HWND;<br>begin<br>//不在任务栏显示<br> ShowWindow(application.Handle, SW_HIDE);<br> SetWindowLong(application.Handle, GWL_EXSTYLE, GetWindowLong(application.Handle, GWL_EXSTYLE) Or WS_EX_TOOLWINDOW And Not WS_EX_APPWINDOW);<br><br>//透明窗体<br> SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) Or WS_EX_TRANSPARENT Or WS_EX_LAYERED);<br> SetLayeredWindowAttributes(Handle, Color, 80, LWA_ALPHA Or LWA_COLORKEY);<br><br>//将窗体放到桌面上<br> Wnd := GetWindow(GetWindow(FindWindow(PChar('Progman'), Nil), GW_CHILD), GW_CHILD);<br> Windows.SetParent(self.Handle, Wnd);<br>end;