procedure TForm1.FormCreate(Sender: TObject);

begin

  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

  WebBrowser1.Navigate('res://' + ParamStr(0) + '/myhtml');

end;



procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;

  const pDisp: IDispatch; var URL: OleVariant);

begin

  WebBrowser1.OleObject.Document.body.Scroll :='no';

  WebBrowser1.OleObject.Document.Body.style.border := 'none';

  WebBrowser1.OleObject.Document.Body.Style.margin := '0px';

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

  if GetKeyState(VK_ESCAPE)<0 then close;

end;

源码下载：http://download.csdn.net/download/mwy654321/4148813

没有积分的朋友可以到这里下载：http://www.mwymwy.com/res.rar



源码是实现一颗五角星缓缓升空后的爆炸效果，代码虽然只有6行（甚至可以更少），但因为使用了res资源，所以想看到实际效果，还是以工程的方式给大家比较好。

至于res里面是什么东西，有源码，你完全可以写段代码将res中的文件释放出来看个究竟。

今年决定放弃delphi工作，转做苹果手机开发，重新给自己充充电。



这个小程序没什么难度，只是用最少的代码实现了一个漂亮的特效，如果不借用网页，单纯的用delphi的图像处理功能实现这样的效果，代码量就不是6行这么简单了，这里将效果难度移到JavaScript来实现，delphi只是调用。这个代码虽然不多，但如果你是个新手，应该可以给你以下帮助：

第一，res协议的使用规范。
第二，一行代码实现webbrowser加载自己的资源。
第三，webbrowser去边框的方法
第四，透明窗体和透明webbrowser效果的实现。
第五，最简单定义ESC键退出程序的方法。此定义不会引起快捷键冲突。
第六，delphi原来可以这么简单的与脚本结合，网络上那么多漂亮的特效，不都可以拿过来用了？