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原来可以这么简单的与脚本结合，网络上那么多漂亮的特效，不都可以拿过来用了？
高手来拍砖了，呵呵
