天行健,君子以自强不息;地势坤,君子以厚德载物。


Tag: Delphi预览模式: 普通 | 列表

delphi 打开记事本并写入内容

procedure TForm.ButtonClick(Sender: TObject);
var
    hEdit: HWND;
    str: string;
begin

查看更多...

Tags: Delphi 记事本 SendTextMessage

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 161

使用SndPlaySound从内存中播放WAV

有些时候,我们写的程序需要播放音乐,一般大家会采用以下几种方式:1.把音乐文件放置在某个特定的目录,例如Sound,WAV,Music供程序读取播放;2.使用资源来存放音乐。有些人估计也是使用这个方法的,不过大部分人可能是先从资源里把音乐文件释放出来,然后再去读取播放。我今天要介绍的方式是直接把音乐文件载入内存,然后从内存中进行读取播放。好了给代码吧:
var
  hResInfo: THandle;
  PtrSound: Pointer;
begin

查看更多...

Tags: Delphi SndPlaySound WAV

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 368