Delphi 播放器[源码]

「已注销」

已于 2023-09-26 20:25:16 修改

阅读量5.4k

点赞数 3

分类专栏： Delphi 文章标签： delphi Delphi DELPHI gdi+ GDI+ 音乐

于 2012-12-18 00:18:32 首次发布

本文链接：https://blog.youkuaiyun.com/zyjying520/article/details/8310007

版权

这是一个使用Delphi XE2开发的音乐播放器，具备桌面歌词、换肤、换颜色功能，并支持Win7小窗口预览。采用GDI+实现PNG控件动态生成，桌面歌词通过动态渲染实现立体感效果。播放列表自定义绘制，源码已开源。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Delphi 音乐播放器，支持桌面歌词、换肤、换颜色、歌词自动下载，Win7下支持小窗口预览，有些功能未完全完成，就如调整音量（懒得搞，但是可以听了，只写了一次性播放列表没得循环的）。支持酷狗、QQ的动感歌词，以动感方式显示自己的实现方法，工程是使用Delphi XE2开发,原本是用delphi7后因为要支持win7下面的那个小窗口模式的，所以改为delphi xe2了。

主界面：

自己使用GDI+做了个png图片的控件根据皮肤的xml配置文件动态生成上去的,一部分代码：

type
  TImageState = (isNormal, isActive, isDown, isDisable);

  TGDIImageButton = class(TGraphicControl)
    private
    (*鼠标进入*)
    FOnMouseEnter : TNotifyEvent;
    (*鼠标离开*)
    FOnMouseLeave : TNotifyEvent;
    (*当前状态*)
    FState : TImageState;
    (*状态图标数量*)
    FImgCount: Integer;
    (*自动调整大小*)
    FAutoSize: Boolean;
    (*按钮是否按下状态*)
    FDownState: Boolean;
    (*图片文件名称*)
    FFileName: string;
    (*GDI图片对象*)
    FGDIImage: TGPImage;
    (*标题*)
    FCaption: string;
    (*是否显示标题*)
    FShowCaption: Boolean;
    (*对齐方式*)
    FAlignment : TAl