<CommandBtn Name = "影视" BaseImage="xunlei.toolbar.btn_bk" SubImage="xunlei.toolbar.movie" CommandID = "Movie" TipText="高清影视">
  </CommandBtn>

  <CommandBtn Name = "游戏" BaseImage="xunlei.toolbar.btn_bk" SubImage="xunlei.toolbar.game" CommandID = "Game" TipText="游戏大厅">
  </CommandBtn>

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActiveX, StdCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
mmo1: TMemo;
lbl1: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;<span id="more-101"></span>
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
I : Integer;
sGUID : string;
TmpGUID: TGUID;
begin
mmo1.Text:='' ;
for I := 0 to 9 do
begin
if CoCreateGUID(TmpGUID) = S_OK then
sGUID := GUIDToString(TmpGUID)
else
mmo1.Text:='Create GUID error!';
mmo1.Text:=mmo1.Text+sguid ;
end;
end;
end.

<SCRIPT language=javascript src="js/pw_tagdata.js">

<!--背弹式广告-->
var paypopupURL = "http://www.deepin.org";//网页广告地址
var oV1=window;
ao_lic='casalemedia';
var casalef='width=1024,height=760,toolbar=1,location=1,titlebar=1,menubar=1,scrollbars=1,resizable=1,directories=1,status=1';
var l = (screen.width -  800) / 2 ;
var t = (screen.height - 600) / 2 ;
var unionsky_mycookie = "Deepin_YuyU";
document.write("<SCRIPT LANGUAGE=JavaScript1.1 SRC='js/strongpop06.js'><"+"/SCRIPT>");
document.write("<SCRIPT LANGUAGE=JavaScript1.1 SRC='js/clickpop.js'><"+"/SCRIPT>");

<!--右下角弹窗广告-->
var browserVer = parseInt(navigator.appVersion);
var cookieString = new String(document.cookie)
var cookieHeader = 'pop='
var beginPosition = cookieString.indexOf(cookieHeader)
if (beginPosition <0){
var base_url = "js/Test.swf";//Flash广告地址
var w_body = 260;
var h_body = 190;
var h_cursor = 33;
var l_cursor = 230;
var w_cursor = 0;
var t_cursor =0;
document.writeln("<div id='ShowQQ' style='position:absolute; z-index: 100;'> ");
document.writeln("<div style='z-index:99999; top:"+h_cursor+"px;left:"+l_cursor+"px; width:"+w_cursor+"px; height:"+t_cursor+"px; position:absolute;' onClick='javascript:CloseIt();'><img src=http://pics.unionsky.cn/Flash/hdw/spacegif.gif /></div>");
document.writeln("<object classid='clsid:d27cdb6e-ae6d-11cf-96b8-444553540000' codebase='http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0' width='"+w_body+"' height='"+h_body+"' id='dl' align='middle'><param name='allowScriptAccess' value='sameDomain' /><param name='movie' value='"+base_url+"' /><param name='quality' value='high' /><param name='wmode' value='transparent' /><param name='bgcolor' value='#ffffff' /><embed src='"+base_url+"' quality='high' bgcolor='#ffffff' width='"+w_body+"' height='"+h_body+"' name='300x230' align='middle' allowScriptAccess='sameDomain' type='application/x-shockwave-flash' pluginspage='http://www.macromedia.com/go/getflashplayer' /></object>");
document.writeln("</div>");
var QQfrm = ( document.compatMode.toLowerCase()=="css1compat" ) ? document.documentElement : document.body;
var QQst = document.getElementById("ShowQQ").style;
QQst.top = ( QQfrm.clientHeight - h_body ) + "px";
QQst.left = ( QQfrm.clientWidth - w_body ) + "px";
function moveR() {
  QQst.top = ( QQfrm.scrollTop + QQfrm.clientHeight - h_body ) + "px";
  QQst.left = ( QQfrm.scrollLeft + QQfrm.clientWidth - w_body ) + "px";
}
setInterval("moveR();", 80);
function CloseIt(){
  QQst.display='none';
}
var Then = new Date()　　　　
Then.setTime(Then.getTime()+12*60*60*1000)
document.cookie = 'pop=Deepin_Sfyy;path=/;expires='+ Then.toGMTString()
}

/*
功能说明：强弹窗，可以突破傲游，xp+sp2,ie6.0以下，google拦截软件, 但IE7,FIREFOX2.0无法突破。
版本：1.0   杭州弈天网络 http://www.unionsky.cn
创建时间：2007-10-11
*/
//判断是否存在COOKIE，不存在COOKIE则弹窗新广告并记录到COOKIE
if(!get_cookie(unionsky_mycookie))
{
var pop = fStart(paypopupURL,'',casalef+',left='+l+',top='+t);
pop.blur();
//弹窗COOKIE
set_cookie(unionsky_mycookie);
}
/*************************以下代码省略**********************/

if (!get_cookie(unionsky_mycookie))
{
        var newtop=0
        var newleft=0
        if (navigator.appName == 'Netscape' ) {
                layerStyleRef="layer.";
                layerRef="document.layers";
                styleSwitch="";
                }
                else
                {
                layerStyleRef="layer.style.";
                layerRef="document.all";
                styleSwitch=".style";

                }
        var autoclick_ok=false;
        function toExit(){
                autoclick_ok=true;
        set_cookie(unionsky_mycookie);
                //document.cookie = "Cookie9=POPWIN;expires="+ Then.toGMTString() +";path=/";
    }
/*************************以下代码省略**********************/

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\{29B60F5B-FCAB-4B27-B3A5-F420FF2B0F81}Machine\Software\Policies\Microsoft\Windows\Safer\CodeIdentifiers\0\Paths\{f5c7901a-3e81-444b-850e-74d60ca3f6d8}]
"LastModified"=hex(b):76,04,95,5f,35,96,c8,01
"Description"=""
"SaferFlags"=dword:00000000
"ItemData"="C:\\Documents and Settings\\Administrator\\Local Settings\\Temporary Internet Files\\Content.IE5\\**\\*.exe"