mwy654321的专栏

正常使用WindowsMediaPlayer控件的URL属性可以很方便播放音视频，但是这种方式的URL必须是一个本地文件，但是有些特殊应用中，对音视频文件加密保护，且要求只能播放，但不能拷贝，即使拷贝了也是无法播放的文件（因为文件被加密处理了），同时要求播放过程中不能在本地生成临时文件。 这个问题对没有经验的开发者而言会很容易被难倒，因为要完全开发一个播放器去集成到应用中显得很不现实，而WindowsMediaPlayer又不提供从内存流播放的方法，在网上搜索资料又很少涉及这方面的，其实有一个很简单的方法去解决这个问题，那就是利用URL这个属性最原始的定义，URL是一个地址路径，不仅支持本地路径，也支持HTTP路径，因此可以实现一个简易的HTTP服务器来供WindowsMediaPlayer加载即可。 WindowsMediaPlayer这个ActiveX控件,需要工菜单中依次点击component--Import ActiveX Control,然后选择Windows Media Player，再点击Instll进行安装，之后Delphi的组件面板上ActiveX页多了一个TWindowsMediaPlayer控件。

MMTools控件的demo例子，包含从TMemoryStream内存流，资源中加载mp3。具体例子在\mpeg\memstream中

msacm.pas头文件，用于支持HACMDRIVERID类型 注意是在delphi上用的。Delphi实现MP3 互相转换 WAV时需要用上这个。

用delphi实现的由一颗五角星爆炸成多个五角星的特效，代码仅6行

本软件无任何功能，只是模仿实现了QQ效果，采用delphi7编写。欢迎与我联系。联系QQ群：40308283（不是QQ号）。 不需要下载分，如果您发现有不足之处，请进群提意见。谢谢。

取系统开机时间，不包含用户输入密码登录系统的停留时间。即使exe不是开机运行的，仍然可以取到时间

是用delphi7编写的，专门针对火狐Firefox浏览器。部分源码如下： procedure TForm1.Button1Click(Sender: TObject); var a,b:string; begin //火狐浏览器在最小化或被其它窗口挡住，仍然可以获取成功。 if GetFirefoxURL(a,b) then //判断是否获取成功。这里只处理火狐， begin//只要火狐浏览器开启就肯定能获取成功，不成功一般是没开启所导致。 LabeledEdit1.Text:=a; LabeledEdit2.Text:=b; end; end; procedure TForm1.Button2Click(Sender: TObject); begin //简单的判断如果网址低于4位则认为是不正确的网页。您可以加入其它判断方法。最简单的网址应该是：g.cn if length(trim(LabeledEdit2.Text))<4 then exit; Set_URL(LabeledEdit2.Text); //在火狐上开启新网页。火狐在最小化时仍然可以开启。 end;

程序支持下述9种常见浏览器： 默认IE 360浏览器 腾讯TT 傲游 Avant Browser 世界之窗 GB绿色浏览器 MY IE 极速浏览器 另外还支持Firefox火狐浏览器URL的获取。支持效果极佳。 如果您还需要支持其它浏览器，请联系加我的QQ群：40308283 说明一点，软件是用delphi 7 开发的。绿色软件。 最新版本下载地址：http://www.mwymwy.com/GetURL.rar

控制Firefox火狐浏览器登录126信箱的绿色软件。 采用delphi开发，如果需要控制其它浏览器登录，请加我的QQ群37204383。 获取Firefox火狐浏览器当前访问的URL地址，目前我正在写，写出来后也将上传分享。

获取QQ好友列表，采用delphi编写。

程序中加载了一个DLL文件，但生成的EXE在脱离了DLL文件后仍然可以 单独使用，这是动态加载DLL技术。即：调用资源中的DLL。 此技术的好处：EXE可以使用DLL中的函数，但不会额外增加一 个DLL文件，在使用DLL文件的时候不需要先把DLL释放到硬盘。 在动态加载的这个DLL中定义了一个函数MRun，该函数可以动态执行一 个EXE，即：调用资源中的EXE文件或TMemoryStream中被载入的EXE流。 此技术的好处：直接把资源中的EXE加载到内存中执行，使用程序自 身嵌入的EXE文件的时候不需要先把EXE释放到硬盘上就可以直接执行。 对保密EXE文件很有用。例如：我编写的程序是A.exe，它在运行后需要 使用B.exe，而B.exe是别人编写的我没有源码，但我必须又要在我的程 序中用B.exe，这时我就把它包含到我的A.exe中，这个非常容易做到， 但是，程序A.exe在使用程序B.exe的时候按照常理必须先把B.exe释放 到硬盘上才可以用WinExec或ShellExecute等函数调用它，但你在释放 到硬盘上的时候容易被别人直接复制走，而你只想让别人用你的A.exe不 想让别人直接用B.exe（因为B.exe是别人写的等原因），此时如何保密 B.exe呢？这时只要用到上面所说的MRun函数就可以了，程序A.exe在执 行B.exe的时候不需要释放到硬盘上就可以直接执行B.exe啦，是不是很爽？ 说一下MRun的调用方式： MRun(流,参数,进程id); 调用成功返回True，失败返回False，三个参数解释如下： 第一个参数：一个载入了EXE的资源流或者内存流等流类型。 第二个参数：传递调用EXE的参数。如果EXE调用不需要参数，可设置为空串。 第三个参数：如果调用成功，则返回被调用的EXE对应的进程ID。 细节性问题，请直接双击Project1.dpr文件进入演示代码，了解更多。演示代 码中动态加载了MemRun.dll文件，动态调用了5555044.exe文件，如果你想更换 动态调用的EXE文件，只需要用其它EXE覆盖5555044.exe文件并双击Clear.bat 文件后，在Delphi中按F9重新编译运行即可。

监控USB接口，凡是USB被插入了硬件设备，都会被检测出来并激发这个事件，这里以检测U盘插拨为例来演示。

模拟QQ魔发表情，透明播放SWF文件。 这里演示了如何透明播放Flash。 其实透明播放目前我已经掌握三种方法。这里只公布其中一种。

控制IE自动登录淘宝网页 如果想控制其它浏览器，可以联系我，我帮你完善。 目前我只对以IE为核心的浏览器可以实现控制登录，非IE核心（如火狐）浏览器不行。

我想达到的Edit显示效果