grayguygg-CSDN博客

原创如何调节系统声音音量

　一、调节全部音量　　1．先在窗体中添加一个trackbar控件，可通过改变它的位置来调节音量，在trackbar1的属性中，我们把Max属性修改成255（系统的最大音量就是2^8=255），改成这个值是为了便于进行二进制的音量调节操作。　　2．为了调用一个Windows函数，在uses子句里加上Mmsystem。　　3．为trackbar1的Onchange事件编写如下代码：　　procedur

2007-08-05 21:25:00 2382 1

原创获得空闲端口

uses winsock2;//获取一个空闲的端口 function GetFreePort(ABeginPort: Integer; const ATCP: Boolean = false): Integer;var Wsd: TWSAData; S: Integer; SockAddr: TSockAddrIn;begin Result := ABeginPort; if WSAStartup

2007-08-05 03:16:00 1193

简单的数据库(Oracle，ACCESS)连接工具

使用delphi开发的简单的数据库连接工具，主要给数据库开发者做入门测试，目前可以连接ACCESS，oracle。

2010-05-16

DELPHI-屏保源码

网上很多delphi源码做的屏保不能响应鼠标事件，本代码着重解决了移动鼠标关闭屏保的问题。

2008-10-05

fastreport单记录打印

演示使用fasetreport单记录打印，票据打印

2008-07-22

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

原创 如何调节系统声音音量