delphi
50岁开始学编程
好记性不如烂笔头
展开
-
Delphi MediaPlayer 音量控制(学习笔记)
要控制MediaPlayer的音量,方法一测试可行,但有一个缺点,如果有多个MediaPlayer,无法单独控制,方法二可以单独控制,Delphi7测试通过。方法一://音量控制procedure TForm1.TrackBar1Change(Sender: TObject);vart,v:Longint;begin// if a=0 then Exit;t:=TrackBar1.Position;v:=(t shl 8)or(t shl 24);waveOutSetVolume(原创 2020-09-28 23:00:12 · 715 阅读 · 0 评论 -
delphi 获取目录下所有文件名(学习笔记)
目的:程序需要播放背景音乐,要读取某个文件夹里的所有文件名实现代码:procedure Form1.Button1Click(Sender: TObject);var SearchRec:TSearchRec; //下面有详解 found:integer;beginfound:=FindFirst(ExtractFilePath(ParamStr(0))+'背景音乐\*.*',faAnyFile,SearchRec); //ExtractFile.原创 2020-09-28 20:07:21 · 1803 阅读 · 1 评论