用delphi打造属于自己的播放器
如今RealPlayer的流式媒体文件以其强大的视频压缩比正逐步悄然兴起。RealPlayer Plus播放器也理所当然地成为大家播放RealPlayer格式文件的首选软件。不过RealPlayer Plus也不是十全十美的，比如启动时间慢，占用空间大，留有历史记录等等。其实我们可以利用Delphi打造一个完全符合自己要求的RealPlayer播放器。下面我将向大家介绍如何利用Delphi来帮助你实现这一愿望。但前提是：你的机器中必须装有RealPlayer Plus播放器，因为我们要用到其自带的ActiveX控件。
首先，我们要在Delphi中导入所需的ActiveX控件。点击菜单“Component→Import ActiveX Control...”打开“Import ActiveX”对话框，在“Import ActiveX”列表框中，我们可以看到Windows中所有注册的AxctiveX控件。选择其中的“RealPlayer ActiveX Control Library(Version 1.0)”控件。然后单击“Install”按钮。
回到Delphi主界面，你会发现在VCL面板中的ActiveX标签中增加了一个名为RealAudio的组件。我们先把它放入窗体中。不过在默认情况中RealAudio组件没有视频播放窗口，也就是只能播放声音。这是我们不愿看到的，这时我们可以在RealAudio组件的Controls属性中添加如下代码：
IMAGEWINDOW,CONTROLPANEL,STATUSBAR
其中：IMAGEWINDOW、CONTROLPANEL、STATUSBAR分别表示显示视频播放窗口、控制条状态条。
添加代码后，我们可以发现控件外观已经改变成了视频播放窗口形状。然后设置Align属性为alClient，使播放窗口可以随窗体的变化而变化，方便大家在观看影视动画时可以随意拉动播放窗口大小。
然后，在窗中加入TMainMenu组件、TOpenDialog组件各一个。用于选择并打开播放影视文件。双击TMainMenu组件，进入菜单设计器。在这里，我们要设计一个菜单项File，及其2个子菜单Open、Exit。设计完毕后：
双击Open添加如下代码：
if OpenDialog1.Execute then
begin
RealAudio1.source:=OpenDialog1.FileName;
RealAudio1.doplay; //打开并启动播放器
End;
双击Open添加如下代码：
Application.terminate; //终止程序运行
为了在打开一个文件时，便于用户选择文件，要将OpenDialog组件的Filter属性设置如下：所有媒体文件(*.rm,*.ram,*.ra,*.swf,*.mp3)|*.rm;*.ram;*.ra;*.swf;*.mp3|*.*|*.*。
如果想要在看电
相关文档：
教你用delphi写弹窗广告插件
2009年12月25日 星期五 00:45
教你用delphi写弹窗广告插件
引子
目前越来越多的广告插件在我们电脑上扎根驻地，时不时地弹出令人讨厌的广告，并且每当我们开机的时候都会弹出来，搞的很多小菜只能重装系统，
来解决这另人讨厌的广告！影响我们上网聊天，玩游戏，工作等等……� ......
我的办法，增加一个timer 设置间隔100ms，通过timer的使能否，控制报警声音开关
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Windows.Beep(1200+i_f,10+i_f);
if i_f<2000 then
begin
inc(i_f);
end
end;
== ......
在开讲之前，首先，我假设你了解什么是面向对象，什么是类。如果不了解的话，建议先去了解一下相关知识！
在Delphi中，组件，我们可以将它理解为一个个的封装好了的功能对象库，使用这个库，就只用简单的几句代码，甚至仅仅简单的设置几个属性就能实现某些
功能，我们可以将组件想象成日常生活中使用的某些 ......
最近面试了一家企业,下面有一道从来没有想过的问题,当时有思路,不过写不出来.回来后,调试了一下,发现还是有难度的,写上来看大家是否还有更优化的写法,欢迎讨论:
下面实现将字符串"10ad200d3" 中的数字合计,10+200+3=213
var s1:string;
var i:integer;
var n1:integer;
var tem1: string;
var tem2:integer;
......
第一种：需要引用Windows单元
ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CYCAPTION)));
第二种：需要引用Windows单元
function GetSystemTaskBarHeight:Integer;
var
R:TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);
Resul ......
