- 博客(3)
- 收藏
- 关注
RSS订阅原创 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
847
原创 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
1933
2
转载 Delphi IDHTTP用法详解
[delphi] view plain copy print?一、IDHTTP的基本用法 IDHttp和WebBrowser一样，都可以实现抓取远端网页的功能，但是http方式更快、更节约资源，缺点是需要手动维护cook，连接等 IDHttp的创建，需要引入IDHttp procedure InitHttp(); be
2016-11-15 19:32:23
280
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人