系统开关机声音开关注册表

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER/Control Panel/Sound]
"Beep"="no"
"ExtendedSounds"="yes"

Beep修改为YES为正常NO为关闭

Delphi通过注册表在程序中增减和修改数据源,具体代码部分摘录://建立一个Registry实例,设置根键值为HKEY_LOCAL_MACHINE    if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then    //找到Software\ODBC\ODBC.INI\ODBC Data Sources    WriteString( 'MyAccess', 'Microsoft Access Driver (*.mdb)')    //注册一个DSN名称    else    //创建键值失败    begin    memo1.lines.add('增加ODBC数据源失败');    exit;    end;    CloseKey;    if OpenKey('Software\ODBC\ODBC.INI\MyAccess',True) then    //找到或创建Software\ODBC\ODBC.INI\MyAccess,写入DSN配置信息    begin    WriteString( 'DBQ', 'C:\Demo\orders.mdb' );    //指定数据库目录    WriteString( 'Description', '新Access数据源' );    //数据源描述    WriteString( 'Driver', 'C:\PWIN98\SYSTEM\odbcjt32.dll' );    //驱动程序DLL文件,根据系统安装的目录不同而不同。    WriteInteger( 'DriverId', 25 );    //驱动程序标识    WriteString( 'FIL', 'Ms Access;' );    //Filter依据    WriteInteger( 'SafeTransaction', 0 );    //支持的事务操作数目    WriteString( 'UID', '' );    //用户名称    bData[0] := 0;    WriteBinaryData( 'Exclusive', bData, 1 );    //非独占方式    WriteBinaryData( 'ReadOnly', bData, 1 );    //非只读方式    end    else    //创建键值失败    begin    memo1.lines.add('增加ODBC数据源失败');    exit;    end;    CloseKey;    if OpenKey('Software\ODBC\ODBC.INI\MyAccess\Engines\Jet',True) then    //找到或创建Software\ODBC\ODBC.INI\MyAccess\Engines\Jet,写入DSN数据库引擎配置信息    begin    WriteString( 'ImplicitCommitSync', 'Yes' );    WriteInteger( 'MaxBufferSize', 512 );    //缓冲区大小    WriteInteger( 'PageTimeout', 10 );    //页超时    WriteInteger( 'Threads', 3 );    //支持的线程数目    WriteString( 'UserCommitSync', 'Yes' );    memo1.Lines.add('操作成功!');    end;   请下载完整实例的源码包。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值