uses mshtml;
var htmldoc: IHTMLDocument2;
MaxScrollWidth, MaxScrollHeight: Integer;
htmldoc := web.Document as IHTMLDocument2;
MaxScrollHeight := htmldoc.body.getAttribute('ScrollHeight', 0); //获得滚动条最大高度
MaxScrollWidth := htmldoc.body.getAttribute('ScrollWidth', 0);//获得滚动条最大宽度
Web.OleObject.Document.ParentWindow.ScrollBy(MaxScrollWidth, MaxScrollHeight ); //滚动到最右最下
《百度320K MP3批量下载器》是一款批量下载百度MP3的工具软件，可以自动分析百度榜单歌曲，自动分析歌手歌曲，自动分析专辑歌曲，可自定义下载普通品质128K码率、高品质192K码率、超高品质320K码率的音乐文件，歌曲文件自带专辑封面，是一款不可多得的免费工具软件。
一键批量下载高品质MP3，《百度音乐管家》帮你实现梦想
下载页：https://samool.com/archives/41672/
功能说明：
1、自动分析“榜单”歌曲内容
2、自动分析歌手歌曲内容
3、自动分析专辑歌曲内容
4、批量下载320K MP3文件（包含专辑封面）
5、下载进度显示。
6、自动扫描音乐文件
7、音乐文件大小过滤
8、128k,192k,320k不同码率的文件选择
9、如果已经存在文件，自动重命名
使用说明：
首次打开软件，建议在左边网页登录百度帐号，只有登录以后才可以获取320K超高品质音乐的链接。
如果只下载128K的，可以不用登录百度帐号。
软件截图：
下载的音乐截图：（自带专辑封面哦）
在安装软件的时候，总是提示“以前的某个程序安装已经在安装计算机上创建挂起的文件操作”导致安装程序不能安装，重启N次以后，还是提示这个，次奥。
解决办法：
打开注册表编辑器
在HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Session Manager中找到PendingFileRenameOperations项目，并删除它
这样就可以清除安装暂挂项目。
附：发面有木马软件也放在这个键值下面，开机就自动执行了，靠。。。先杀毒，再清理就可以了。
var
mciOpenParms: TMCI_Open_Parms;
m_MCIDeviceID: MCIDEVICEID;
procedure TForm1.FormCreate(Sender: TObject);
var
mciPlayParms:MCI_PLAY_PARMS;
ret: integer;
begin
try
begin
mciOpenParms.lpstrDeviceType:='';
mciOpenParms.lpstrElementName := 'xxxx.mp3';
mciSendCommand(0,MCI_OPEN,MCI_OPEN_ELEMENT,DWORD(@mciOpenParms));
m_MCIDeviceID := mciOpenParms.wDeviceID;
mciPlayParms.dwCallback := Form1.Handle;
mciPlayParms.dwFrom := 0;
ret := mciSendCommand(m_MCIDeviceID,MCI_PLAY,MCI_FROM or MCI_NOTIFY,integer(@mciPlayParms));
end;
except
end;
end;
百度早就把《千千静听》收购了，去年才把百度音乐与千千静听整合在一起，同时也增加无损音乐下载，新的软件名叫《百度音乐》，包括android,ios手机客户端，非常好用，我也在一直用，只是电脑版的百度音乐每次只能同时开启5个下载进程，个人感觉还不如我的单线程下载速度快，譬如像我这种懒人，喜欢批量下载，一键搞定，不想去一个一个地选音乐，虽然百度音乐高级会员也有批量下载功能，如果网速慢的话，要下个榜单是非常痛苦的，前几天把去年搞的软件重新搞了下，把规则重新匹配了一下，于是有这个版本发布。
刚刚看了一下微博，去年的今天也发了一个版，呵呵
【2014-2-18 V5.0更新内容】
1、更新百度音乐抓取规则
2、支持无损优先，320K优化下载规则（需要百度音乐会员）
3、增加自动修复配置文件baidump3.db
4、增加下载页刷新显示
百度网盘下载地址：http://pan.baidu.com/s/1kTBN70N
本地下载：https://samool.com/BaiduMP3Manager_V5.0.zip
---------------------------------------------------------------
【2013-2-25 V3.5更新内容】
1、增加搜索音乐列表抓取
2、支持unicode编码
3、增加歌曲统计
V3.5 百度网盘下载：http://pan.baidu.com/share/link?shareid=307480&uk=956622825
V3.5 迅雷快盘下载：http://kuai.xunlei.com/d/Gc0BAPWqZbMqUQQAbea
V3.5 本地下载：https://samool.com/BaiduMP3Manager_V3.5.zip
----------------------------------------------------------------------------
[2013-1-28 V3.2 新春版 更新内容]
1、重新整理榜单内容
2、增加热门分类榜单
3、增加热门歌手榜单
4、增加歌手搜索功能
5、下载规则调整：选择下载320K音乐，但有些老歌歌曲本身不存在320K，则自动使用192K，如果192K不存在，则自动使用128K
6、改进了抓取方法和规则，抓取速度大大提升
7、增加了多线程下载（默认为单线程）
8、增加自动检查软件更新
9、音乐列表增加右键功能，支持Ctrl,Shift键多选和批量操作
10、增加下载记录管理
V3.2 百度网盘下载http://pan.baidu.com/share/link?shareid=269132&uk=956622825
V3.2迅雷快盘下载：http://kuai.xunlei.com/d/Gc0BAPMT7OUUUQQA227
V3.2 本地下载：https://samool.com/BaiduMP3Manager_V3.2.zip
非凡软件下载页：http://www.crsky.com/soft/39256.html
ARP联盟下载页：http://www.arpun.com/soft/14388.html
---------------------------------------------------------------
【百度音乐管家 V2.0发布】
1、增加自动扫描音乐文件
2、增加音乐文件大小过滤
3、增加128k,192k,320k不同码率的文件选择
4、增加升级检查
5、如果已经存在文件，自动重命名
6、其它优化
功能说明：
1、自动分析“榜单”歌曲内容
2、自动分析歌手歌曲内容
3、自动分析专辑歌曲内容
4、批量下载320K MP3文件（包含专辑封面）
5、下载进度显示。
关注俺的微博：http://weibo.com/samool
徐峥首次执导并编剧，联合王宝强、黄渤主演的年度最强喜剧《人再囧途之泰囧》12月12日全国公映，三位囧神的泰国传奇之旅引爆全民狂欢，上映首周便刷新多项国产片纪录，截止12月21日凌晨，票房几近5亿，观影人数已达1500万人次，场均观影人数为同档期影片中最高，人气爆棚。《泰囧》观众口碑与影片的市场成绩成正比，剧情引人爆笑的同时也有催人泪下的感动。片中一段欢快轻松的主题旋律也令人印象深刻，一时成为网络搜索热门。为回馈影迷热情，出品方在传说中的“末日”特别发布电影插曲《我要和你在一起》MV，轻快欢乐的旋律与唱词伴随囧神们戏里戏外的“囧途之旅”，激情、友情、爱情、亲情十分温暖，将“在一起”的信念诠释得囧囧有爱，深具情怀。
超级天籁系列合集，共10张CD，均为无损APE/FLAC格式，强烈推荐。。。
F:.
├─CD01
│ 001.Jonatan Cerrada - A Chaque Pas.APE
│ 002.RUNRIG - Abhainn An T-Sluaigh (The Crowded River).APE
│ 003.Helene Rolles - Amour secret.APE
│ 004.Denean - Angels Calling Me.APE
│ 005.Backstreet Boys - As Long As You Love Me.APE
│ 006.Celine Dion - Because You Loved Me.APE
│ 007.Andrea Zonn - Better be Home Soon.APE
│ 008.Various Artists - Black Man Ray.ape
│ 009.Matthew Lien - Blue Lights [藍光].APE
│ 010.Club 8 - Breakdown.APE
│ 011.Alan Stivell - Brian Boru.APE
│ 012.Charlotte Church - Carrickfergus.APE
│ 013.Andrea Green - Ce Train Quisen Ba.APE
│ 014.Aaron Neville&Linda Ronstadt - Don't Know Much.APE
│ 015.Era - Don't You Forget.APE
│ 016.Dan ar Braz - Eliziza.APE
│ 017.Bee Gees - How Deep Is Your Love.APE
│ 018.Hélène Segara - Il Attend La Pluie.APE
│ 019.Sarah Brightman - Gueri De Tol.APE
│ 020.Shania Twain - I'm Gonna Getcha Good!.APE
│
├─CD02
│ 001.Celine Dion - Immortality.APE
│ 002.Dominica - Inch' Allah.APE
│ 003.Alison Krauss - It Wouldn't Have Made a Difference.APE
│ 004.Sissel Kyrkjebo - Keep Falling Down.APE
│ 005.Mylène Farmer - L'Autre.ape
│ 006.Ronan Keating - Life Is A Rollercoaster.APE
│ 007.The Eagles - Love Will Keep Us Alive.APE
│ 008.Hayley Westenra - Never Say Goodbye.APE
│ 009.Ray Grant - No Matter What.APE
│ 010.Frances Black - On Grafton Street.APE
│ 011.George Strait - One Night At A Time.APE
│ 012.Various Artists - Only A Woman's Heart.ape
│ 013.The Corrs - Only When I Sleep.APE
│ 014.Tchanelas - Pena Pena.APE
│ 015.M2M - Pretty Boy.APE
│ 016.Caron Nighinagale - Promsises Don't Come Easy.APE
│ 017.Annie Pratt - Quand Je Pense A Toi [当我想起你].APE
│ 018.Monica - Right Here Wating.APE
│ 019.Westlife - Seasons In The Sun.APE
│ 020.Various Artists - Secret Call.ape
│
├─CD03
│ 001.Scorpions - Send Me An Angel.APE
│ 002.Lene Marlin - Sitting Down Here.APE
│ 003.Susan Wong - Stay Awhile.APE
│ 004.Madonna - Take A Bow.APE
│ 005.Ronan Hardiman - That Place in Your Heart.APE
│ 006.Michael Learns To Rock - That's Why (You Go Away).APE
│ 007.Rita Calypso - The End Of The World.APE
│ 008.Loreena Mckennitt - The Mummers' Dance.APE
│ 009.Savage Garden - Truly Madly Deeply.APE
│ 010.Laura Pausini - Unchained Melody.APE
│ 011.Foreigner - Waiting For A Girl Like You.APE
│ 012.Jill - Whistle Down The Wind.APE
│ 013.Michelle Tumes - Feel.APE
│ 014.Deep Forest - Lament.APE
│ 015.Oliver Shanti & Friends - L'ultime Arbre (The Tree).APE
│ 016.By Los Fernandos - Macarena [马卡雷娜].APE
│ 017.Sarah Brightman - Naturaleza Muerta.APE
│ 018.Cheryl Wheeler - Sylvia Hotel.APE
│ 019.Bara Basikova - Vebi Domine.APE
│ 020.Julio Iglesias - La Paloma.APE
│
├─CD04
│ 001.Celine Dion - My Heart Will Go On.ape
│ 002.Jennifer Lopez - Theme From Mahogany(Do You Know Where You Going To).ape
│ 003.Bangles - Eternal Flame.ape
│ 004.Michael Bolton - How Am I Supposed To Live Without You.ape
│ 005.Berlin - Take My Breath Away.ape
│ 006.Coco Lee - Before I Fall In Love.ape
│ 007.Son By Four - Purest Of Pain.ape
│ 008.Tina Arena - I Want To Know What Love Is.ape
│ 009.Sade - By Your Side.ape
│ 010.Sophie Zelmani - Going Home.ape
│ 011.Bertie Higgins - Casablanca.ape
│ 012.Shakin Stevens - Because I Love You.ape
│ 013.Judie Tzuke - Stay With Me Till Dawn.ape
│ 014.Deacon Blue - I`ll Never Fall In Love Again.ape
│ 015.Gladys Knight - Wind Beneath My Wings.ape
│ 016.Bonnie Tyler - Total Eclipse Of The Heart.ape
│ 017.Jennifer Rush - The Power Of Love.ape
│ 018.The Three Degrees - When Will I See You Again.ape
│ 019.Babyface - Every Time I Close My Eyes.ape
│ 020.Paul Davis - I Go Crazy.ape
│ 021.Willie Nelson - Always On My Mind.ape
│
├─CD05
│ 001.Ronan Hardiman - Heaven (Waiting There For Me).ape
│ 002.Helene Rolles - Je m'appelle Helene.flac
│ 003.Celine Dion - The Power Of Love.flac
│ 004.Atomic Kitten - Nothing In The World.flac
│ 005.Geri Halliwell - Calling.flac
│ 006.Jessica Simpson - When You Told Me You Loved Me.flac
│ 007.Angela Ammons - Always Getting Over You.flac
│ 008.Amy Diamond - Heartbeats.flac
│ 009.Leann Rimes - How Do I Live.flac
│ 010.Barbara Streisand - Woman In Love.flac
│ 011.Isgaard - Turn To Stone.flac
│ 012.Jennifer Lopez - Could This Be Love.flac
│ 013.Joy Enriquez - Losin'The Love.flac
│ 014.Club 8 - Love In December.flac
│ 015.Celtic Woman - You Raise Me Up.ape
│ 016.Standfast - Carcrashes.ape
│ 017.Venke Knutson - Love Explains It All.flac
│ 018.Venke Knutson - Kiss.flac
│ 019.Kelly Sweet - Ready For Love.flac
│ 020.Yohanna - Is It True.flac
│
├─CD06
│ 001.Ronan Hardiman - Heaven.ape
│ 002.Mylene Farmer - California.flac
│ 003.Delta Goodrem - Born To Try.flac
│ 004.Shania Twain - You've Got A Way.flac
│ 005.Sissel - Someone Like You.APE
│ 006.Michelle Amato - Almost A Whisper.flac
│ 007.Leslie - That Place In Your Heart.flac
│ 008.Nelly Furtado - All Good Things.flac
│ 009.Sarah Connor - Skin On Skin.flac
│ 010.Within Temptation - Memories.flac
│ 011.Rednex - Hold Me For A While.ape
│ 012.Ronan Hardiman - Ready For Life.ape
│ 013.Yanni - If I Could Tell You.flac
│ 014.Dreams - Ta Muid.APE
│ 015.Mariah Carey - Without You.APE
│ 016.Bob Gleaves - You'll Be My Love.APE
│ 017.Akira Yamaoka - Promise.flac
│ 018.Dave Koz - I Believe.flac
│ 019.Deep Forest - Sweet Lullaby.flac
│ 020.Mehdi - Shining Star.flac
│ 021.Ronan Hardiman - That Place In Your Heart.ape
│
├─CD07
│ 001.Air Supply - Without You.ape
│ 002.Savage Garden - I Knew I Loved You.flac
│ 003.Michael Learns To Rock - Fairy Tale.flac
│ 004.Mark Medlock - Seven Days.ape
│ 005.Mark Medlock - Now Or Never.ape
│ 006.Marc Terenzi - You Complete My Soul.flac
│ 007.Paolo Meneguzzi - Musica.flac
│ 008.Savage Garden - Truly Madly Deeply.flac
│ 009.Steelheart - She's Gone.flac
│ 010.Bon Jovi - All About Lovin' You.flac
│ 011.Bob Gleaves - You'll Be My Love.flac
│ 012.Rod Stewart - Sailing.flac
│ 013.Michael Bolton - Said I Loved You But I Lied.flac
│ 014.Trademark - Miss You Finally.flac
│ 015.Caught In The Act - Babe.ape
│ 016.Restless Heart - I'll Still Be Loving You.ape
│ 017.Green Day - 21 Guns.flac
│ 018.Kool&The Gang - Cherish.flac
│ 019.Shayne Ward - Until You.ape
│ 020.Air Supply - Goodbye.flac
│
├─CD08
│ 001.Emilia - Big Big World.flac
│ 002.Melanie C - First Day Of My Life.flac
│ 003.Atomic Kitten - If U Come To Me.flac
│ 004.Алсу - Мен ел яшэр горур Казаным.flac
│ 005.Отпетые - Не_говори мне ничего.flac
│ 006.Atomic Kitten - Everything Goes Around.flac
│ 007.Alizee - A Contre Courant.flac
│ 008.Alexs Syntek - Duele El Amor.flac
│ 009.Miley Cyrus - The Climb.flac
│ 010.Nelly Furtado - I'm Like A Bird.flac
│ 011.Moumoon - Sunshine Girl.flac
│ 012.Hilary Duff - Someone's Watching Over Me.flac
│ 013.Roxette - Listen To Your Heart.flac
│ 014.Dido - White Flag.flac
│ 015.Cara Dillon - Craigie Hill.ape
│ 016.Carrie Underwood - I Know You Wont.flac
│ 017.A-Teens - Firefly.flac
│ 018.Shemsi - Say You Will Be Mine.flac
│ 019.Brad Paisley - Whiskey Lullaby.flac
│ 020.Roxette - It Must Have Been Love.flac
│
├─CD09
│ 001.Roxette - Milk And Toast And Honey.flac
│ 002.Jewel - Stand.flac
│ 003.Dido - Life For Rent.flac
│ 004.Sweetbox - Every Time.flac
│ 005.Aqua - Be a Man.flac
│ 006.Sarah Connor - Let's Get Back to Bed Boy.flac
│ 007.Beverley Craven - I Miss You.flac
│ 008.Nelly&Kelly Rowland - Dilemma.flac
│ 009.Becky Taylor - You Raise Me Up.ape
│ 010.Sissel - You Raise Me Up.ape
│ 011.Shakira - Illega l.ape
│ 012.J-Five - Find A Way.flac
│ 013.Kenny G&Chante Moore - One More Time.flac
│ 014.Delta Goodrem - Lost Without You.flac
│ 015.Boys Like Girls - Two Is Better Than One.flac
│ 016.Yohanna - Say Goodbye.flac
│ 017.ATC - Thinking Of You.flac
│ 018.Lady Antebellum - Need You Now.flac
│ 019.Faith Hill - There You'll Be.flac
│ 020.Michelle Branch - Here With Me.flac
│
└─CD10
001.Bianca Ryan - Will.flac
002.Sarah Connor - Every Moment Of My Life.flac
003.Dido - See The Sun.flac
004.Trisha Yearwood - How Do I Live.flac
005.Yohanna - Beautiful Silence.flac
006.Sophie Zelmani - Going Home.flac
007.Roxette - A Thing About You.flac
008.Lisa Miskovsky - A Brand New Day.flac
009.Shivaree - Goodnight Moon.flac
010.Delta Goodrem - A Little Too Late.flac
011.Yohanna - Funny Thing Is.flac
012.Monica - Angel Of Mine.flac
013.Roxette - Spending My Time.flac
014.Dido - Don't Leave Home.flac
015.Spice Girls - 2 Become 1.flac
016.Gwen Stefani - 4 In The Morning.flac
017.Inna - On&On(Chillout Mix).flac
018.Pixie Lott - Cry Me Out.flac
019.Alsou - Not Over Yet.flac
020.Sofia Jannok - Liekkas.flac
一个汇编指令API，供大家查询使用。
MOV（MOVe） 传送指令
PUSH 入栈指令
POP 出栈指令
XCHG（eXCHanG） 交换指令
XLAT（TRANSLATE） 换码指令
LEA （Load Effective Address） 有效地址送寄存器指令
LDS（Load DS with pointer） 指针送寄存器和DS指令
LES（Load ES with pointer） 指针送寄存器和ES指令
LAHF（Load AH with Flags） 标志位送AH指令
SAHF（Store AH into Flgs） AH送标志寄存器指令
PUSHF（PUSH the Flags） 标志进栈指令
POPF（POP the Flags） 标志出栈指令
ADD 加法指令
ADC 带进位加法指令
INC 加1指令
SUB（SUBtract） 不带借位的减法指令
SBB（SuVtrach with borrow） 带借位的减法指令
DEC（DECrement） 减1指领
NEG（NEGate） 求补指令
CMP（CoMPare） 比较指令
MUL（unsinged MULtiple） 无符号数乘法指令
IMUL（sIgned MUL tiple） 有符号数乘法指令
DIV（unsigned DIVide） 无符号数除法指令
IDIV（sIgned DIVide） 有符号数除法指令
CBW（Count Byte to Word） 字节转换为字指令
CWD（Count Word to Doble word） 字转换为双字指令
DAA 压缩的BCD码加法十进制调整指令
DAS 压缩的BCD码减法十进制调整指令
AAA 非压缩的BCD码加法十进制调整指令
AAS 非压缩的BCD码加法十进制调整指令
AND 逻辑与指令
OR 逻辑或指令
XOR 逻辑异或指令
NOT 逻辑非指令
TEST 测试指令
SHL（SHift logical Letf） 逻辑左移指令
SHR（SHift logical Right） 逻辑右移指令
ROL（Rotate Left ） 循环左移指令P58
ROR（Rotate Right） 循环右移指令P58
RCL（Rotate Left through Carry） 带进位循环左移
RCR（Rotate Right through Carry） 带进位循环左移
MOVS（MOVe String） 串传送指令
STOS（STOre into String） 存入串指令
LODS（LOad from string） 从串取指令
REP（REPeat） 重复操作前
CLD（CLear Direction flag） 清除方向标志指令
STD（SeT Direction flag） 设置方向标志指令
CMPS（CoMPare String） 串比较指令
SCAS（SCAn String） 串扫描指令
REPE／REPZ（REPeat while Equal/Zero）相等／为零时重复操作前缀
REPNE／REPNZ（REPeat while Not Equal/Zero）不相等／不为零进重复前缀
IN（INput） 输入指令
OUT（OUTput） 输出指令
JMP（JuMP） 无条件转移指令
JZ，JNZ，JS，JNS，JO，JNO，JP，JNP，JB，JNB，JBE，JNBE，JL，JNL，JLE，JNLE，JCXZ 条件转移指令
LOOP 循环指令P70
LOOPZ／LOOPE 为零／相等时循环指令
LOOPNZ／LOOPNE 不为零／不相等时循环指令
CALL 子程序调用指令
RET（RETun） 子程序返回指令
CLC（CLear Carry） 进位位置0指令
CMC（CoMplement Carry） 进位位求反指令
SRC（SeT Carry） 进位位置1指令
NOP（No OPeretion） 无操作指令
HLT（HaLT） 停机指令
OFFSET 返回偏移地址
SEG 返回段地址
EQU(=) 等值语句
PURGE 解除语句
DUP 操作数字段用复制操作符
SEGMENT,ENDS 段定义指令
ASSUME 段地址分配指令
ORG 起始偏移地址设置指令
$ 地址计数器的当前值
PROC，ENDP 过程定义语句
NAME，TITLE，END 程序开始结束语句
MACRO，ENDM 宏定义指令
JZ OPR //结果为零转移
JNZ OPR //结果不为零转移
JS OPR //结果为负转移
JNS OPR //结果为正转移
JO OPR //溢出转移
JNO OPR //不溢出转移
JP OPR //结果为偶转移
JNP OPR //结果为奇转移
JC OPR //有进位转移
JNC OPR //无进位转移
