有个鼠窝

生活中我们会看到这样的现象，一些婴儿，即使不熟悉的女性逗他，他也会微笑，而父亲逗他则反而会哭，别说其他的男性了。这正是孩子从胎儿期到出生后的一段时间里，对男性的声音不熟悉造成的。

为了消除孩子对男性包括对父亲的不信任感，豆豆妈建议各位准爸爸参与到胎教工作中来。下面将为大家推荐几种适合准爸爸的胎教方式。

一、对话胎教

声学研究表明：胎儿在子宫内最适宜听中、低频调的声音，而男性的说话声音正是以中、低频调为主。因此，父亲坚持每天对子宫内的胎儿讲话，让胎儿熟悉父亲的声音，能够唤起胎儿最积极的反应，有益于胎儿出生后的智力及情绪稳定。

1.父亲的开场白和结束语

父亲在开始和结束对胎儿讲话的时候，都应该常规地用抚慰及能够促使胎儿形成自我意识的语言对胎儿讲话。开场白结束语的设计可以如下：

开场白的语言是：“宝贝(或者叫乳名)，我是你的爸爸，我会天天和你讲话，我会告诉你外界一切美好的事情。”

对话结束时，要对胎儿给予鼓励：“宝贝学习很认真，你是一个聪明的孩子，但愿我对你讲授的一切都能对你将来的人生有用。好吧，今天就学习到这儿，再见！”

在可能的情况下，父亲应每天和胎儿对话，这样才能加深与宝宝的感情。

2.具体与胎儿对话的方法

丈夫可以让孕妻坐在宽大舒适的椅子上，然后由妻子对胎儿说：“乖孩子，爸爸就在旁边，你想听他对你说什么吗？”这时，丈夫应该坐在距离妻子50厘米的位置上，用平静的语调开始对话，随着对话内容的展开再逐渐提高声音，不能一下子发出高音而惊吓了胎儿。

讲授的话题最好事先构思好，先拟定一篇小小的讲话稿，稿子的内容可以是一段优美动人的小故事、一首纯真的儿歌、一首内容浅显的古诗，也可以谈自己的工作及对周围事物的认识。用诗一般的语言，童话一般的意境，告诉孩子外面的这个美丽新世界。

贴心话：对宝宝的爱是准爸爸进行对话胎教是最重要的工具。宝宝感受到你的爱后，才能够更愉快地成长。

二、情绪胎教

情绪胎教，是通过对孕妇的情绪进行调节，使之忘掉烦恼和忧虑，创造清新的氛围及和谐的心境，通过妈妈的神经递质作用，促使胎儿的大脑得以良好的发育。

作为丈夫，在情绪胎教中有着义不容辞的责任，应该注意做好以下几方面的工作：

1、 当好“后勤部长”：怀孕的妻子一个人要负担两个人的营养及生活非常劳累。如果营养不足或食欲不佳，不仅使妻子体力不支，而且严重地影响胎儿的智力发育。因为，宝宝的智力形成的物质基础，有2/3是在胚胎期形成的。所以丈夫要关心妻子孕期的营养问题，尽心尽力当好妻子和胎儿的“后勤部长”。

2、 丰富生活情趣：早晨陪妻子一起到环境清新的公园、树林或田野中去散步，做做早操，嘱咐妻子白天晒晒太阳。这样，妻子也会感到丈夫温馨的体贴，心情舒畅惬意。

3、 风趣幽默处事：妻子由于妊娠后体内激素分泌变化大，产生种种令人不适的妊娠反应，因而情绪不太稳定，因此，特别需要向丈夫倾诉。这时，丈夫唯有用风趣的语言及幽默的笑话宽慰及开导妻子，才是稳定妻子情绪的良方。

4、 协助妻子胎教：丈夫对妻子的体贴与关心，爸爸对胎儿的抚摸与“交谈”，都是生动有效的情绪胎教。

贴心话：孕妈咪的好心情对宝宝来说是最好的胎教方式。准爸爸对妻子的爱会间接地传递给胎儿，在爱中成长的胎宝宝会更健康。

三、抚摸胎教

怀孕6个月时，可以在孕妇腹部明显地触摸到胎儿的头、背和肢体。抚摩胎教是促进胎儿智力发育、加深父母与胎儿之间情感联系的有效方法。

操作方法：起床后和睡觉前是进行抚摩胎教的好时机，应避免在饱食后进行。一般每天可进3次，每次约5分钟。具体的方法是，孕妇排空小便，平卧床上，下肢膝关节向腹部弯曲，双足平放于床上，全身放松，此时孕妇腹部柔软，利于触摸。

准爸爸应先用手在腹部轻轻抚摩片刻，再用手指在胎儿的体部轻压一下，可交替进行。有的胎儿在刚开始进行抚摩或按压时就会作出反应，随着孕周的增加，胎儿的反应会越来越明显，当胎儿习惯指压后，他会主动迎上来。轻轻的触摸配合轻轻的指压可区别出胎儿圆而硬的头部、平坦的背部、圆而软的臀部以及不规则且经常移动的四肢。当轻拍胎儿背部时胎儿有时会翻身，手足转动，此时可以用手轻轻抚摩以安抚之。

贴心话：在进行抚摩胎教时，抚摩及按压时动作一定要轻柔，以免用力过度引起意外。有的孕妇在怀孕中、后期经常有一阵阵的腹壁变硬，可能是不规则的子宫收缩，此时不能进行抚摩胎教，以免导致早产。孕妇如果有不良分娩史，如流产、早产、产前出血等，则不宜使用抚摩胎教。

音乐胎教分段进行

一般在怀孕头3个月里，妊娠反应比较明显，忧郁和疲劳极为常见；在妊娠中期(怀孕第4-7个月)，孕妇的食欲较旺盛，精力也显得充沛；到了妊娠晚期，孕妇的身体笨重，思想压力较大，焦虑现象也多。针对这些问题，灵活选择胎教音乐可大大提高胎教效果。

受孕早期：宜听轻松愉快、诙谐有趣、优美动听的音乐。力求将孕妇的忧郁和疲乏消除在音乐之中。

受孕中期：孕妇开始感觉出了胎动，胎儿也已开始有了听觉功能，这时的胎教音乐从内容上可以更丰富一些。通过音乐的欣赏，不仅陶冶了孕妇的情操，调节了孕妇的情绪，同时对胎儿也将产生潜移默化的影响。

受孕晚期：孕妇很快就要分娩，心理上难免有些紧张，况且这时胎儿发育逐渐成熟，体重已达3-4公斤，会使孕妇感到笨重。这时应选择既柔和而又充满希望的乐曲。

准妈妈在欣赏胎教音乐时保持心情愉快，让轻柔美妙的音乐充满空间。你可以想象，随着动听的音乐节奏，腹中胎儿迷人的笑脸和欢快的体态，在潜意识中同他进行情感交流，向他倾注博大的母爱，浇灌萌芽中的小生命！

什么样的音乐适合做胎教音乐？

医生建议母亲在怀孕期间，应尽量避免聆听过度嘈杂或不当的音乐(因胎儿不喜欢听到高振动频率之音波)；选择旋律温和自然、有规律性的音乐，如大自然的河川、溪流声、虫鸣鸟叫声。

古典音乐(特别是巴洛克音乐)因为其节奏和母亲的心跳旋律相近，所以对胎儿和新生儿有启发和安抚的作用，巴哈(G线上的旋律)、莫扎特(21号钢琴协奏曲)、韦作特(D调广板吉他协奏曲)、舒伯特(鳟鱼)钢琴和提琴五重奏，这些都是不错的选择。

医学研究指出，音乐确实能刺泪胎儿的脑部成长，但并不是所有的音乐都适合作为胎教之用，胎教音乐应具备下列条件：

(一)音乐的节奏不能太快，音量不宜太大；太快的节奏会使胎儿紧张，太大的音量会令胎儿不舒服；因此，节奏太强烈、音量太大的摇滚乐就不适合作为胎教音乐。

(二)音乐的音域不宜过高；因为胎儿的脑部发育尚未完整，其脑神经之间的分隔不完全；因此，过高的音域会造成神经之间的刺激串连，使胎儿无法负荷，造成脑神经的损伤。

(三)音乐不要有突然的巨响；因为这样会造成胎儿受到惊吓；所以，胎教音乐的戏刻性不要太过强烈。

(四)胎教音乐不宜过长；五至十分钟的长度是较适合的，而且要让胎儿反复的聆听，才能造成适当的刺激；等到胎儿出生之后听到这些音乐就有熟悉的感觉，能够令初生婴儿有待在母体内的安全感，对于安抚婴儿情绪有相当好的功能。

(五)胎教音乐应该具有明朗的情绪，和谐的和声。

从以上的条件看来，有许多古典音乐切合上述条件，适合作为胎教音乐；我们也为您挑选了一些适合作为胎教的曲目，供准妈妈们参考(如下)。

古典胎教音乐参考曲目

萨替：第一号琴诺佩第

此曲速度和缓，以单纯的旋律反复多次，具有缓和情绪的功用，音量适中，具有朦胧之美，相当适合作为胎教音乐。

舒曼：梦幻曲(选自儿时情景) 

“梦幻曲”是“儿时情景”中的第七首，曲风温馨感人，仿佛回到母亲的怀抱。

李斯特：爱之梦

音乐具有美丽爱情般的梦幻感觉，在情绪、速度各方面的条件都相当适合做胎教音乐。

贝多芬：月光奏鸣曲第一乐章

这个乐章以三连音乐的动机，犹如水波的荡漾，蕴含着幻想的气息，宁静的感觉，适合胎儿聆听。

布拉姆斯：摇篮曲

由大提琴改编的版本避免了女高音刺激的高音域，改以柔和的中低音域表现，具有和缓情绪的作用，不论是胎儿或是刚出生的幼儿都适合聆听。

朱利安·洛伊·韦伯：爸爸的歌

此曲速度和缓，音乐唯美，展现了父亲柔美的一面，相当感人，适合作为胎教音乐。

费尔德：第四号夜曲

夜曲是以简短的音符描绘夜晚浪漫气氛的音乐，十分浪漫动人。

舒伯特：鳟鱼(大提琴与钢琴演奏版本)

这首歌是描述鳟鱼在清澈的溪水中自在地游来游去，轻快的旋律配上可爱的歌词，而比较适合作为胎教的是器乐改编的版本。

韦尼奥夫斯提：浪漫曲

这首浪漫曲将十九世纪末的浪漫气氛捕捉地极为传神，相当适合作为胎教之用。

波普：小夜曲

大卫·波普的演奏风格优雅，音色变化极为丰富，这首小夜曲就是极为动人的一首。

史特拉汶斯基：俄罗斯少女之歌(大提琴与钢琴演奏版本)

改编自歌剧Mavra，音乐中去除了原始、暴戾的气息，展现了古典时期的雅典，又融合了俄罗斯的民谣风味，相当动听。

巴哈：羊儿可以安心地吃草(选自清唱剧第208号)

这首“羊儿可以安心地吃草”在和缓的节奏中传达了安详的气氛，相当适合胎儿与孕妇聆听。

林姆斯基－高沙可夫：小夜曲

这首乐曲充满了高雅的气质，不论旋律或抒情性都可以当作林姆斯基－高沙可夫的代表作。

佛瑞：第一号船歌

佛瑞摆脱了行销音乐的影响，以独特的清澄明亮风格赢得世人的喜爱，船歌正是他深受喜爱的作品之一。

华格纳：册叶小品

“册叶小品”是华格纳钢琴作品中最有趣、最精致的一首，充满了华格纳独特的乐思，展现了浪漫的精神。

卡隡尔斯；白鸟之歌

这首“白鸟之歌”是卡隡尔斯故乡的民谣，动人的琴音常使人潸然落泪。

舒伯特：降E大调慢板，D.897，“夜曲”

这个乐章因为十分柔美动听，所以被后世的人冠上“夜曲”的别称，相当适和作为胎教音乐。

孟德尔颂：G大调无言歌

无言歌是精致简短的小品，孟德尔颂把人类感情最的部分寄托于旋律，显现出幸福的特质。

莫扎特：单簧管五重奏

在五重奏中，单簧管展现了安祥的音色，令人全身舒畅，相当适合胎儿与婴儿聆听。

萧邦：降E大调夜曲，作品9第2号

这首“降E大调夜曲”是萧邦所有的夜曲中，知名度最高的一首，其甜美动人的音色仿佛水晶灯般的晶莹剔透，令人爱不释手。

理查·史特劳斯：木管小夜曲

“木管小夜曲”偏向古典乐派的曲风，再加上理查。史特劳斯特有的优美旋律，足以讨好每一双挑剔的耳朵，对于母亲腹中的胎儿来说也具有安定的作用。

巴哈：小步舞曲

巴哈的“小步舞曲”是一首可爱的乐曲，其轻快活泼的曲调深受世人喜爱，当然也非常适合胎儿聆听。

萧邦：流畅的行板(选自“流畅的行板与灿烂的大波兰舞曲”作品22)

“流畅的行板”只用钢琴演奏，是相当不寻常的设计，但在“流畅的行板”中所蕴含的诗情画意，却又如同萧邦其它的钢琴小品一样美妙无比，将它单独抽出来聆赏也是一件乐事。

托塞里：小夜曲

这首“小夜曲”其实是一首失恋的歌曲，但是改编为乐器演奏后却呈现另一种风貌，原来由男高音演唱的悲若激情减弱许多，音乐反而变成一种纤细唯美的情调。

舒伯特：小夜曲(选自“天鹅之歌”)

这首歌描述对少女的情爱，具有甜美的旋律和诗，普遍受到爱乐者的喜爱，改编成为器乐演奏的版本之后，相当适合婴幼儿聆听。

柴可夫斯基：弦乐小夜曲第二乐章，圆舞曲

“弦乐小夜曲”完全以弦乐器为表现的主体，没有木管与铜管乐器的紧张感觉，当中第二乐章采用圆舞曲的形式，勾动人心的优美弦律，绝对会融化防卫的心。

首先要说——折腾！

一直打算年后再操作此事，于是初七那天就跑去车管所，人家没上班，说初八正式上班，好吧，广东省好像很多事业单位也这样的，包括LP他们移动。初八一早跑去，咨询了一下，说转出基本没什么费用产生，然后又出去问了一下代办的，要价都不菲，最低都是500块，心一横，自己办！于是填表，拓号，然后跑去交档案，人家说，你身份证是珠海的，怎么转出？！要转入地的身份证，这边才能核档提档，好吧，算我之前没问清楚，打道回府，因为重庆的身份证办了还没去取，于是让爸妈先行回渝，帮我取身份证，然后EMS到珠海来，再继续办手续。。。

一等就是好几天，13号收到了身份证，14号（周一）一早，跑去车管所，提交申请，这下接受了我的申请表了，返回一份回执，核档过程三个工作日，17日凭回执领取结果。

17日早上，按着回执上写的时间，10点钟跑到车管所一楼8号窗口，拿到了之前提交的申请表等资料。叫我去验车，OK，探索开始，折腾开始！

拿了资料，开车去新港，说要验车，一开始不知道要照相，就绕过照相岗，直接开到验车岗，一问，要先照相的，人家叫我兜一圈，去照相，好，出来兜一圈，走要照相的那条通道。开过去，人家说你车膜要切，不然不给照相。晕倒，赶紧打电话给巧手贴膜，那边给的回复是，照相就必须切膜，年审就可以不切，说你来切吧，就不收你钱了。好吧，反正都要挨这一刀，那就去切掉吧，忍痛了。照相没照成，又兜出来（这就在检测线上跑了两圈了），飙车去吉大切膜。

到吉大巧手贴膜那里，很清闲，没啥生意的样子，几个工人三下五除二给我切好，过程中我们还聊得热火朝天的，因为以前就住那边，工人们对我们这台车很熟悉。。。汗一个。。。

切完膜，火速赶回新港，拍照，这下顺利通过，然后到开下一岗，验车。验车岗的民警问，做刑侦查验了吗？我：啊？！啥？然后他给我们解释了一遍。我勒个去~~~还要做刑侦查验，从没人提到啊。于是又兜出来（好吧，兜了三圈了），问了门口的执勤民警（赞一个，问啥都很耐心），在叫号大厅旁边的小篮球场做刑侦。进去叫号大厅，叫号1、2、3窗口的右侧，就是刑侦窗口，人家给了一张表，填了，同机动车登记证书（绿色那本大的）一起交给他们，一会儿就会出来验车，也就是看看车架号和发动机号，可能之前还在电脑上查了什么违章记录啊犯罪记录的，反正我们是清白的，不怕刑侦。验完车就把填的表（已盖好章）和绿本交还给我们。

此时再次回到验车岗。验车岗收取了行驶证，以及前面提到的所有资料。同时又要求打开发动机舱看车架号和发动机号，并且要求出示三角警示牌，这些都是随车的，大家应该都有，反正我很麻利的拿出来给检查了。之后通知下午三点去叫号大厅取结果。

这也就基本上到中午了。出去吃饭。同时去了凤凰北的国税专管购置税的大厅，下午两点半才上班，等了好一阵，进去一看，办理完税档案转出，需要绿本，完蛋了，已经上交了，这事儿就办不了了。

之后出来去咨询了一下保险，答复我路上可以继续使用，到重庆上了新的牌，再退这边的保，需要哪些资料都给我写好了，到时候EMS过来，他们给办理。这里态度超好，服务行业跟国家的服务窗口比，就是不一样！

然后接近三点，转去新港叫号大厅，领取验车资料。中间小插曲，我不太清楚重庆的车管所结构，填错了，其实转到重庆市区，直接填重庆市车管所就可以了，不用写巴山、江南、江北的，否则他们电脑上查不到。然后核对身份证后，封档给我，叫我回车管所办理后续手续。

离开新港，回到车管所，上二楼办理后续手续，结果说要路桥费缴费收据。我吐吐舌头，这路桥费还是逃不掉啊。不过说可以只缴一月份的，二月的不用。于是赶紧去红山路行政服务中心缴费。到了那里人山人海的，差点晕倒，排了个号，前面有63位等待，有一种想死的感觉。。。不过等了半个小时，还是搞定了路桥费，其实前面很多空号，实际上没那么多人。

回到车管所，排号，等到叫号了，又说，你的铁牌呢？要取下来，剪断，交回来啊，不然怎么给你发临牌？晕倒，于是又出来，想去众大利把铁牌取下来，可人家说，我们可以上牌，但是下牌需要切割机，我们没办法，去新港吧，那边专业的。唉，还是去新港。在上牌区，20块钱，把牌取下来了。再次赶回车管所，用铡刀把咱心爱的牌咔嚓切个口，然后到二楼，又排个号，等到叫号了，这才通过，拿到临牌。而此时我本以为登记证书（绿本）会还给我，可是，他说要三个工作日后，跟档案一起领取。OMG，档案我打算邮寄啊，那绿本也跟着邮寄，我拿什么去办完税档案？车管所说，转籍不需要完税档案，那个你以后再办咯。那好吧，以后有空回珠海再去办了。。。

总结：
总共花费：
拓号20 + 取牌20 + 临时牌号费5 + 邮寄费21（省外，本地的是15）= 66
加上跑路的油费，也就一百来块吧，比500可便宜多了，还积累了经验。

教训：
1、问民警，最好把想到的都问清楚，不要指望他给你说很多步骤，他总是跟你说最近的一个步骤，你一个一个问，就等着一个一个跑吧。。。
2、购置税完税档案，一定要验车之前办，不然一验车，绿本子就收不回来了，完税档案就转不了了。（不过很纠结，如果验车验不过，这完税档案又转了，就。。。）

流程总结：
1、车管所1楼5号窗（咨询台）拿转出申请表和验车单，填转出申请表
2、拓号，车架号贴1张在验车单上，剩下的几份车架号和发动机号拓印后面还有用
3、复印身份证1份（必须是转入地的身份证，如果是居住证，要和身份证一起复印）
4、车管所2楼排个号，提供身份证（转入地的）原件（如果是异地身份证就要转入地的居住证），交申请表、验车单、身份证复印件，接受后会填写一张回执单给你，会写明哪天的几点钟到1楼8号窗口领取结果。
5、等到领取结果的那天，按时间去1楼8号窗口领取结果，通过了，就可以去验车。
6、最好先别去验车，先去办完税档案的转移。复印一下机动车登记证书（绿本子）和身份证，带上完税证明那个小黑本（应该是要随车带的），驱车到凤凰北，柏宁公司旁边，国税的机动车购置税办理大厅，挺好找的。这个我没办，具体怎么办就下回分解了。
7、去新港验车。（如果没切膜，自己老老实实切了吧，逃不掉。）先到叫号大厅旁的篮球场停车，进叫号大厅，到刑侦窗口填一张表（需要在上面粘贴发动机和车身编码的拓号各一张)，交机动车登记证书（绿本子）。一会儿会有人叫你开引擎盖检查，检查完会返还给你绿本和填的那个表（已盖好章）。进照相通道，先照相，然后把相片贴在验车单上，往前到验车岗，又要打开引擎盖检查，并要求出示三角警示牌。完了会收走机动车登记证书（绿本子）、行驶证、以及前面拿到的所有表格。然后通知你什么时间去叫号大厅拿结果。
8、按时去叫号大厅拿结果，要求出示身份证，确认身份后，会将前面提到的所有收走的东西封档，让你带回车管所继续后面的步骤。
9、别离开新港，直接去上牌的地方要求取铁牌下来，20块钱，跑不掉的。收好取下的铁牌。
10、如果没交路桥费，去交吧，交到上一个月，保险一些的话，就交到本月。路桥费收据下一步要用。
11、车管所一楼靠近8号窗口的楼梯下面有铡刀，自己把车牌铡断，其实切一个口子就行，就是剪烂它，让它作废。然后上2楼取号排队。交回封档、切了的铁牌一对、路桥费收据。窗口核对资料后，给打印临时牌照，需要交5块钱临牌费。然后给打印一个回执，3个工作日取档案和机动车登记证书（绿本子）。我采用了邮政快递，后续就不清楚了。

P.S.现在的临牌都是发两张，一张放前挡，一张放后挡，办理转移的临牌有效期是一个月。有效期内去转入地上户。

转出手续就办完了。挺复杂的，但是搞懂了就可以办得很快了。

Windows7正式版已经用了很久了，MSDN上面正式版Windows7已经发布很久了。

发现Windows7的TaskBar很漂亮，也有很多功能。例如IE下载的时候可以看到进度，可以叠加图标等等特效。

Delphi2010也发布很久了，Delphi2010号称支持Windows7的新增API，那么看看有没有TaskBar相关的API。

一提到Taskbar相关，首先就想到ITaskBarList不同版本接口。到shlobj单元一看，果然增加了ITaskbarList3、ITaskbarList4两个新版本的接口。

老办法CreateComObject(CLSID_TaskbarList)就行了。返回的是一个ITaskBarList接口。看具体的操作系统，返回的是你操作系统所能支持的最高版本的ITaskBarList。

先来看进度条：

设计一个窗口

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShlObj, ActiveX, ComObj, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    GroupBox1: TGroupBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox1: TCheckBox;
    CheckBox4: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
    FPos : Int64;
    FMax : Int64;
    FTaskBarList : ITaskbarList4;
    function SetProgressState():Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Timer1.Enabled := not CheckBox1.Checked;
  // 不定的时候设了State就不能再设Value，否则会冲掉。
  SetProgressState();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTaskBarList := CreateComObject(CLSID_TaskbarList)  as ITaskbarList4;
  FPos := 0;
  FMax := 200;
  SetProgressState();
end;

function TForm1.SetProgressState: Integer;
begin
  Result := TBPF_NOPROGRESS;
  if CheckBox1.Checked then
    Result  := Result or TBPF_INDETERMINATE;
  if CheckBox2.Checked then
    Result  := Result or TBPF_NORMAL;
  if CheckBox3.Checked then
    Result  := Result or TBPF_ERROR;
  if CheckBox4.Checked then
    Result  := Result or TBPF_PAUSED;
  FTaskBarList.SetProgressState(Handle, Result);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (FPos < FMAX) then
     Inc(FPos, 10)
  else
     FPos := 0;
  FTaskBarList.SetProgressValue(Handle, FPos, FMax);
end;

end.

运行看看效果。

不定的:进度颜色的边缘是渐变的；

正常的:就是绿色的进度条；

出错的:就是红色的进度条；

暂停的:就是黄色的进度条。

再来看覆盖图标

就是可以再任务栏图标上再覆盖一个小图标，可以用表示状态之类的。

新建一个窗口，放置一个ImageList，添加几个icon，再放一个Timer，我们用定时器来不停地变换覆盖图标。如果你的图标设置的足够好，还可以模拟动画效果啊。

代码如下：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShlObj, ActiveX, ComObj, ExtCtrls, StdCtrls, ImgList;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ImageList1: TImageList;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    FTaskBarList : ITaskbarList4;
    FIcon : TIcon;
    FIconIndex : Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTaskBarList := CreateComObject(CLSID_TaskbarList)  as ITaskbarList4;
  FIcon := TIcon.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FIcon.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if FIconIndex < ImageList1.Count then
  begin
     Inc(FIconIndex);
  end
  else
  begin
    FIconIndex := 0;
  end;
  ImageList1.GetIcon(FIconIndex, FIcon);
  FTaskBarList.SetOverlayIcon(Handle, FIcon.Handle, '');
end;

end.

看到我的程序图标右下角的小图标了吗？就是这个样子了。

添加按钮：

新版迅雷在Windows7上运行的时候会在缩略图上添加三个按钮。

可以实现任务的添加、下载、暂停等功能。

我们也可以仿照一个。

新建一个窗口

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShlObj, ActiveX, ComObj, ExtCtrls, StdCtrls, ImgList;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FTaskBarList: ITaskbarList4;
    btnIcon : TIcon;
    Fbtns: array [0 .. 2] of TThumbButton;
  protected
    procedure WndProc(var Message: TMessage); override;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin


  ZeroMemory(@Fbtns, SizeOf(TThumbButton) * length(Fbtns));
  for I := Low(Fbtns) to High(Fbtns) do
  begin
    Fbtns[I].dwMask := THB_ICON or THB_TOOLTIP or THB_FLAGS;
    Fbtns[i].hIcon := btnIcon.Handle;
    Fbtns[I].dwFlags := THBF_ENABLED;
    Fbtns[I].iId := I;
    Fbtns[I].szTip := 'ABCD';
  end;
  // 这里什么图也没给，出现的按钮都是没有图标的
  FTaskBarList.ThumbBarAddButtons(Handle, length(Fbtns), @Fbtns);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTaskBarList := CreateComObject(CLSID_TaskbarList) as ITaskbarList4;
  FTaskBarList.HrInit();
  btnIcon := TIcon.Create;
  btnIcon.LoadFromFile('c:\AquaValue2.ico');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  btnIcon.Free;
end;

procedure TForm1.WndProc(var Message: TMessage);
begin
  inherited;
  case Message.Msg of
    WM_COMMAND:
      begin
        case HiWord(Message.WParam) of
          THBN_CLICKED:
            begin
              ShowMessage(Format('你按了按钮[id=%d]', [LoWord(Message.WParam)]));
            end;
        end;
      end;
  end;
end;

end.

运行起来，按一下按钮，效果如下图：

但是现在还有个问题困扰了我半天。就是MSDN上说点击了按钮会受到WM_COMMAND消息，我也在WndProc中做了处理，但是不论怎样都收不到。正要放弃的时候突然灵光一闪，会不会是在调试状态运行和实际运行有啥区别呢？

于是找到编译好的EXE文件双击执行。哈哈，一切OK。虽然不知道是什么问题引起的，但是肯定和VCL或者Delphi的IDE调试环境有关。我又用C#和VC分别验证了一下，他们在调试状态下就没有这个问题。这只是一个小麻烦问题不大，呵呵。

新的ITaskBarList接口还有其他的一些方法，不过最常用的都是前面的几个，都很简单。有了前面的基础这些试一下就知道怎么用了。

注意哦，你的程序除非是Only for Windows7的，否则要判断一下操作系统版本号，再决定是否调用新的TaskBar功能。

瞧瞧多久没写blog了。今天周五，每当周五下午都很无聊，不是没事做，而是不想做。一来经常找不到想找的人(都在开会)，二来自己每当周五下午就心不在焉的。。。

父母6月过来，住了一个月，夏天到来，让他们实在承受不住这海边闷热潮湿的天气，6月30号，他俩算是胜利大逃亡了，回重庆干蒸去了。。。

父母回去了，我们生活又回归到原始状态。。。

很快一个多月过去了，眼看合同到期了，找HR续约，扯来扯去，说是公司调整，改了法人，要重新签订新的合约，这就搪塞回去了。直到昨天，把一堆人叫去集体签了新一期的合同，一看，签到2013年，得！过不了2012的话，那就是金山的鬼了！这样一个集体签合同，把我讨价还价的机会也搞砸了，还得找个机会再提提要求。这公司就这样，你不说提薪的事情，那你就拿一辈子基本工资吧。。。

7月初，跟着LP姐姐一家带着她父母一起去了一趟西樵山。出游总是累死人，何况我还开车！景区里面山路十八弯，陡得不得了，我可是捏了一把汗，折磨死了这1.3L排量的FRV了。。。从那儿回来，里程表就过一万公里了，跑去做保养，花了四百多，4S真的很黑，官网上报的保养价格只要两百多不到三百的！没办法，为了那个保修期，还得认宰。说起来，从那之后，过了两个星期，本打算去洗车，结果迎来了珠海的一场特大暴雨，不仅把车洗干净了，TNND，还把底盘都洗了！那天下班开车出去，大马路就已经变成大运河了，一路上旁车驶过带起的浪，简直让我感到晕船！那之后，到现在又有两周了，本打算周末要洗车了，结果昨天和今天早上的大雨又给我洗干净了。。。啥都不说了，这老天爷真是的，光洗外面不行啊，你有本事给我把里面也洗洗？算了，当我没说，开开船就够了，别让我开潜水艇！

最近LP那边组织了运动健身小组，她选择了游泳，也硬拉我去。两周，游了5次了，感觉身体要好些了，这样锻炼还是不错，不过水里运动出汗没感觉，其实很容易运动过量，前天就搞得头痛，晚上还吃了芬必得才睡得着的。立秋了，不知道还能游多久？

没两天就是七夕了，七夕要做点什么呢？下个月就女昏一周年了，一周年又该做点什么呢？纠结中。。。

2010-08-14 11777KM

周末，带YSW去淇澳岛练车，周六下大雨，淇澳岛的场地全是水，就没练场地，就在新建的情侣北路跑跑，因为这条路很绕，一般没车走，挺适合新手跑路。跑了四趟，算是有点胆量了，之前还真是没跑起来过。周日，没怎么下雨，就去练场地了，教了她“轧饼饼”、单边桥、定点停车和坡起、以及起伏路，没找到直角弯和S弯的场地，就没学。搞了一个多小时，轧饼饼还是老是轧到饼饼，单边桥还是掉下来，考虑到很伤轮胎，于是放弃练习这两项。后来专攻定点停车和坡起，算是基本掌握了，只是不熟练，需要更多的磨合。

其间，我总听到啪啪啪的声音，像是轮胎卡了石子，于是下来检查。一看倒吸一口气，竟然是一颗螺丝钉！完都完了，淇澳岛离家二十几公里，难道还这样扎着钉子回去？反正有备胎有工具，不怕，先拔了钉子再说。找不到螺丝刀，也没有钳子，就用指甲刀，一开始用指甲刀的锉刀拧螺丝，指甲刀太脆弱，拧了几下就变形了，于是一狠心，直接拆了指甲刀，用刀口这边当钳子，把钉子拔出来了。钉子只有1.5厘米左右长，也没漏气，于是慢悠悠的开去4S店。用泡沫检查，基本不漏气，但多等一会儿还是有一点点，于是还是补了。补胎先把它戳穿，然后专用的补胎胶条塞进去，很软的，有粘性，好像是生胶？唉，挺心疼的。后来想想，也不知道这钉子扎了多久了，也许很久了，一直没注意？以后得再小心些，特别是小区的地下车库，建筑垃圾都堆在车库，平时经过要特别小心，尽量不要从垃圾堆旁边过了。

跑了7777公里，拍张照片。

一晃又是两个月没写过博客了。回首这两个月，真是好多事情。搬新家，前前后后办了七八趟，因为自己有车了，就一次一次搬，搞了一个多月才搬完了东西。新家这边大大小小一堆问题，现在也基本上全都解决了，不过这段时间确实是挺闹心，看着一个一个有问题的地方，无尽的心烦。现在算是好了，基本都解决了，蚊帐也买了，纱窗也装了，房子本身的问题还剩下生活阳台的门，物业管理迟迟不来修，很烦。

去年十月份提车，到现在基本上半年了，一晃半年了，时光飞逝啊。半年下来，开车算是比较得心应手了，但也有手潮的时候还会死火。老实交代，提车还没上牌之时，就在世邦家居刮了一次车屁股，不过是下面，看不到，而且车尾杠是塑料件，也就没管。另外一次是元旦节，一月一日，晚上去老香洲，LP非要去逛香洲，没法，我说坐公交吧，非要开车，我说今天心里毛毛的，还说我乱想些。结果去到老香洲半天找不到车位，为了停车，进一个路口的时候被一台夏利顶了一下右后轮位置，他拐弯顶到了，黑灯瞎火的，也没啥经验，就算了，后来看到还是有点印子，还是刮花了一点，不过依然是后尾杠，继续无视，以后再说吧。以后再无磕碰，也算是比较幸运。今天早上一件事，让我又学到一些，早上从山上下来的时候，前面等红灯的队伍排到半山腰，已经看到尾了，于是开始减速，没想到前车突然急减速，我赶紧一脚老刹车，基本踩死了的了，希望小F能停下来，结果还好停住了，只是心跳加速，这一刻，后方传来急刹车轮胎磨地的尖叫声，后面还有台的士，还好他也停住了，惊险。后来分析，下山的时候，因为是下坡，刹车行程会变长，刹车效率没有平路高，跟车不能像平路，速度也不能像平路，经验还得多积累。昨天突然看到祥子的QQ空间，说他的锋范追了尾，我也在警醒自己，小心使得万年船啊。

再说说工作。两个月，春节加班加点赶工，谁都不愿意，不过临危受命，也算是迫不得已。忙完了这一个事情，后面紧接着就是国际版本的准备，丝毫没休息下来，终于上周末感冒发烧。前一天同事还说我不能倒，结果我就倒了，郁闷。死扛了一个星期六，到星期天还是反复发烧，没法，去看医生。看中医，开中药，吃了两三天，好了。就是内热外凉，普通感冒，不是流感，所以不传染人，只是抵抗力下降了。看来前面一段时间的紧张工作确实是拖垮了身体，于是这几天我都尽力不加班，按时上下班，休息好，放松精神，感觉好了不少。目前虽然没混到领导头衔，但也算是小领导，说得起话。不过我觉得也不能太趾高气昂的，仍然得保持低调。据说要涨工资，盼了两年了，希望能满意。不过希望越大失望越大，还是不要太抱希望，看情况，不满意就到时候续签合同的时候再要求，目标是翻倍再翻倍，嘻嘻。

LP终于下决心要开始学车了，希望她早日成才，我就可以开始在副驾驶位上唠叨她了。

清明节准备返渝，看望外婆，给外公敬香。。。

今天去看了《阿凡达》。一直都很戏谑这部片，阿凡提失散多年的弟弟云云~~~心里有些抵触这类科幻但又是寓言的大片，觉得看完心情会很沉重，很难放得下。没办法，自己的问题，比较容易纠结。。。

这部片感觉上确实无可挑剔，两个半小时，一点儿都不觉得长，不觉得累。从头到尾都没有出现冗余的内容，感觉整部片已经很精炼了，信息量非常大，看完很头大。。。

故事讲的是潘多拉星球上的一群钉子户与从地球来的拆迁办斗智斗勇的故事。欲知详情，自己去电影院看看吧，确实是大导演牛剧本大制作。这部片告诉各位拆迁办的领导，不要小看了钉子户！钉子户可不只是自焚自焚而已！也会反抗的，不是拿钱就能收买的！看吧，会有更强钉子户出现的。其实中国该禁掉这部片的，嗯嗯。。。