Delphi创建一个虚幻的层窗口(Win2000/XP)

procedure TForm1.FormCreate(Sender: TObject);
var
  ExSty:DWORD;
begin
  ExSty:=GetWindowLong(Handle,GWL_EXSTYLE);
  ExSty:=ExSty or WS_EX_TRANSPARENT or WS_EX_LAYERED;
  SetWindowLong(Handle,GWL_EXSTYLE,ExSty);
  SetLayeredWindowAttributes(Handle,cardinal(clBtnFace),125,LWA_ALPHA);
  MoveWindow(Handle,Screen.Width-Self.Width,0,Self.Width,Self.Height,false);
end;
试试,在Win2000\XP下有效果.
本文来自Delphi之窗，原文地址：http://www.52delphi.com