delphi实现控制声音音量

2016年07月27日 45 阅读

delphi实现控制声音音量2008-04-20当你做一个多媒体播放器时，难免少不了控制音量的大小和左右声道的播放，下面就介绍一种控制Wave波形输出设备音量的方法，该方法不是设置主音量。先在窗体上放两个TTrackBar，分别命名为TrackBar1，TrackBar2，属性Max都设置为65535，如果觉得刻度太密了，可以把Frequency属性值设置大一些，然后在Uses段加入MMSystem，并在TrackBar1和TrackBar2的OnChan...

delphi实现关闭Windows

2016年07月27日 44 阅读

delphi实现关闭Windows2008-04-20控制WINDOWS的开关：如关闭WINDOWS，重新启动WINDOWS等, ExitWindowsEx（UINT uFlags,DWORD dwReserved）;是实现这一功能的API函数首先定义常数constEWX_FORCE=4; //关闭所有程序并以其他用户身份登录EWX_LOGOFF=0; //重新启动计算机并切换到MS-DOS方式EWX_REBOOT=2; //重新启动计算机EWX_SHUT...

delphi编程实现弹出、关闭CD-ROM驱动器

2016年07月27日 47 阅读

delphi编程实现弹出、关闭CD-ROM驱动器2008-04-20如果你想做一个CD播放器的话，那本技巧一定少不了。这是一个控制CD-ROM驱动器门弹出和关闭的方法，首先需要在uses部分加入mmsystem，接着增加两个TButton按钮，在按钮事件里写入下列语句，记住在调用完毕后一定要显示或判断returnstring，要不程序将出错：procedure TForm1.Button1Click（Sender: TObject）;var returns...

delphi编程控制壁纸

2016年07月27日 84 阅读

delphi编程控制壁纸2008-04-20控制Windows的桌面壁纸是一些看图工具常有的功能，要实现该功能是非常容易的，以下的程序使壁纸换为我们想要的图片，如果THEPCHAR为空，那么就取消壁纸，变为Win默认色彩；但这种方法只是暂时的，在WINDOWS重新启动后还是恢复原来的位图，所以要永久保留还需要对WIN.INI文件进行改写操作，才能保存住我们改动的图片不被替换。但这种暂时性也好在让我们可以实现定时更换桌面图片功能：var THEPCHAR:p...

Delphi实现动态修改显示器分辨率

2016年07月27日 45 阅读

Delphi实现动态修改显示器分辨率2008-04-20本实例演示如何在程序中动态修改屏幕的分辨率，并且不需要重新启动计算机就可以生效。向窗体上添加两个Button控件，设计完成的主界面如图1所示。图1 主界面在程序中添加一个自定义函数DynamicResolution，它有两个参数，分别对应于水平和垂直方向的分辨率，并且该函数有一个BOOL类型的返回值，通过判断返回值可以判断DynamicResolution函数是否正确执行。DynamicResolut...

Delphi编程启动关闭热启动

2016年07月27日 45 阅读

Delphi编程启动关闭热启动2008-04-20如果你是要制作一个有密码保护的屏幕保护程序，那么关闭热启动将是非常必要的，否则被人一按热启动，关闭了你的程序，那么不是起不了保护作用吗？要使系统的热启动键（Ctrl+Alt+Del）失效，使用以下语句SystemParametersInfo（SPI_SCREENSAVERRUNNING, 1, 0, 0）;要恢复系统的热启动键（Ctrl+Alt+Del），使用以下语句SystemParametersInfo...

delphi编程启动屏幕保护程序

2016年07月27日 50 阅读

delphi编程启动屏幕保护程序2008-04-20在一些比较高级的程序中，有些资料是秘密的，那么在有人接近的时候，就需要启动一个屏幕保护，保护自己的电脑资料，所以我们选用WINDOWS的屏幕保护功能，可是操作系统需要我们在一定的时间内不接触电脑才能启动保护程序，这是达不到实时效果的，所以利用下列语句直接开始Windows的屏幕保护程序：SendMessage（HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0）;把以...

delphi编程取得系统界面颜色

2016年07月27日 44 阅读

delphi编程取得系统界面颜色2008-04-20制作程序时，被Windows的界面色彩弄得头昏眼花，设计时是一种颜色，色彩搭配得挺好的，可是到了用户手里字体却看不清楚，严重影响了程序效果，所以结合操作系统调配颜色将是令用户用得开心的不可多得的步骤：下面列出了操作系统界面各部位的名称，要取得系统颜色，把参数换一下就可以了。COLOR_SCROLLBAR 滚动条COLOR_BACKGROUND 桌面背景COLOR_ACTIVECAPTI...

用Delphi实现壁纸更换

2016年07月27日 44 阅读

用Delphi实现壁纸更换2008-04-20在Windows95/98中，都是使用注册表对系统数据进行管理,有关壁纸的设置数据保存在Hkey_Current_UserControl PanelDesktop的Wallpaper和TileWallpaper 等键值中,只要成功修改了这两个键值,然后发消息给Windows即可更换壁纸。在本例的程序中,使用了一个Tform;两个Tspeedbutton（Speedbutton1用于接受用户的浏览命令,Speed...

右键任来去

2016年07月27日 44 阅读

右键任来去2008-04-20用于开发WINDOWS程序的语言不少，一般来说小型通用程序用DELPHI是个不错的选择，没听说过吗？？？“聪明的程序员用DELPHI”。我们上网常用的FOXMAIL、网络蚂蚁等都是用它开发的。兴致来了用DELPHI做个小程序，比方说：“大文件切割机”，要与朋友们共享，想没想过将它注册到系统的右键中？朋友们只需在文件上点击右键，就可以选择启动你的杰作来工作了。现在就演示一下如何召唤...

Delphi编程检测驱动器类型

2016年07月27日 43 阅读

Delphi编程检测驱动器类型2008-04-20查看驱动器时，往往需要知道驱动器是属于什么类型的，才能进行读写操作，具体实现方法请看下面的程序：var x:integer;driver:pchar;begindriver:=f:;x := GetDriveType（driver）;Case x of2: Label1.Caption := 该驱动器是可移动驱动器;3: Label1.Caption := 该驱动器是固定驱动器;4: Label1.Capt...

Delphi编程辨别显示分辨率

2016年07月27日 45 阅读

Delphi编程辨别显示分辨率2008-04-20现在的显示分辨率是越来越高了，以至于是多少都搞不清楚，程序也往往需要知道分辨率才能合理安排窗体，所以要得到显示分辨率，下列的程序帮你忙：varx:longint;a:string;beginx := GetSystemMetrics（SM_CXSCREEN）;Str（x,a）;Label1.Caption := 显示器水平分辨率 + a;x := GetSystemMetrics（SM_CYSCREEN）;...

使用Delphi获取系列信息

2016年07月27日 45 阅读

使用Delphi获取系列信息2008-04-20Delphi以其优良的可视化编程，灵活的Windows API接口，丰富的底层操作越来越受到编程爱好者的青睐。在Delphi中，通过调用Windows API，可以很方便地获取系统信息，这有助于我们编写出更好的Windows应用程序。以下程序在Delphi3.0 For Windows 9x下编译通过。一、 用GetDriveType函数获取磁盘信息Lbl_DriveType:Tlabel;DriveType...

用delphi获取主板BIOS信息

2016年07月27日 53 阅读

用delphi获取主板BIOS信息2009-01-301、读取主板序列号2、AWard Bios密码读取3、读取BIOS信息4、获取BIOS日期信息＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝1、读取主板序列号uses SHA1, Base64;function GetHashedBiosInfo: string;var SHA1Context: TSHA1Context; SHA1Digest: TSHA1Dig...

Delphi中为TreeView添加单选和复选框

2016年07月27日 51 阅读

Delphi中为TreeView添加单选和复选框2009-01-30 天极 小刀轻舞打开电脑，进入Windows操作系统，在资源管理器的左边栏中清楚地显示了系统管理的所有磁盘的信息以及各个磁盘所容纳的文件与文件夹（如图一）。这种常见的显示方式是由一个根节点和若干个子节点构成的，这被称为“树形结构”。这种树形结构的用途非常广泛，在很多常用软件中都出现过它的身影。Windows中将这种结构封装为“树形控件”，即T...

第一个delphi for php的小程序

2016年07月27日 43 阅读

第一个delphi for php的小程序2009-01-30 java060515 java060515今天化了一个小时写了一个小程序，我的delphi php的第一个程序。功能是在浏览器上显示一道简单的加法题，用户可以输入答案，电脑会告诉你正确或者错误，然后可以再来一题。功能很简单，主要为了熟悉delphi for php，写的时候，不时地查阅php帮助，发现这次codegear的php帮助做的还是不错的。程序如下：//Includesrequire_...

delphi 2007开发vista应用必须注意的几点

2016年07月27日 52 阅读

delphi 2007开发vista应用必须注意的几点2009-01-301.必须使用windows版本判断，在程序开头判断是否vista，如果你的程序用到了vista的特性，必须这么做 2.不允许使用manifest，即使没有用到vista的特性，如果使用manifest，编译后在xp上也会蓝屏 3.尽量不要带dll，使用原生VCL开发，vista下编译的dll放到xp下有可能会不正常 4.程序运行时，把自己注册成administrator，如果你打算操...

让Delphi 2007 for PHP正确显示中文

2016年07月27日 44 阅读

让Delphi 2007 for PHP正确显示中文2009-01-30在 Delphi 2007 for PHP 中,中文显示（尤其是按钮中的文显示）可以用如下的方法进行解决:使用页面对象的setEncoding（$value）方法来为页面指定charset,$value的格式为"编码说明|编码",如下所示为将页面设置为GBK编码:$Unit1->setEncoding（"Chinese China （zh-cn）|G...

Delphi for PHP全面剖析

2016年07月27日 46 阅读

Delphi for PHP全面剖析2009-01-30 phpres.com AngeloverDelphi For PHP的试用版,需要注意的是官方授权的试用时间,只有一天,俺从业10年以来首次认识大公司这种特有销售风格！CodeGear™ Announces General Availability of Delphi® for PHP Developers Say Delphi’s Rapid Application...

Delphi 2007 For Win32/Delphi For PHP，速度真的很快！

2016年07月27日 49 阅读

Delphi 2007 For Win32/Delphi For PHP，速度真的很快！2009-01-30 phpres.com Angelover在使用Delphi For PHP的时候也让人回想起以前Delphi 7的时光，这当然是因为Delphi For PHP是使用Delphi 7开发的，在很久没有使用纯原生整合发展环境之后，特别令人感觉亲切和有一种非常怀念的熟悉味道。许多开发者仍然在使用Delphi 7，甚至有人做了一个所谓的Delphi 7绿...