上一页 1 ··· 96 97 98 99 100 101 102 103 104 ··· 215 下一页
摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文
posted @ 2008-11-05 14:00 万一 阅读(2063) 评论(0) 推荐(0) 编辑
摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文
posted @ 2008-11-05 13:10 万一 阅读(2423) 评论(0) 推荐(0) 编辑
摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文
posted @ 2008-11-05 11:36 万一 阅读(4281) 评论(0) 推荐(0) 编辑
摘要: 函数名称说明 auxGetDevCaps查询指定的辅助输出设备以确定其性能 auxGetNumDevs检取系统中存在的辅助输出设备的数量 auxGetVolume返回指定的辅助输出设备的当前卷设备 auxOutMessage向指定的辅助输出设备发送一条消息 auxSetVolume在指定的辅助输出设备中设置卷 CloseDirver关闭指定的可安装驱动器 DefDriverProc为任何不由可安... 阅读全文
posted @ 2008-11-04 22:17 万一 阅读(6119) 评论(0) 推荐(0) 编辑
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormMouseDown(Sender: T... 阅读全文
posted @ 2008-11-04 16:28 万一 阅读(2779) 评论(9) 推荐(0) 编辑
摘要: 本例测试修改光标的形色, 效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Ra... 阅读全文
posted @ 2008-11-04 15:25 万一 阅读(2126) 评论(0) 推荐(0) 编辑
摘要: 本例测试修改光标的设置闪烁速度, 注意这会影响到其他程序, 退出时应恢复到系统默认的 530 毫秒. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtr... 阅读全文
posted @ 2008-11-04 14:56 万一 阅读(2052) 评论(0) 推荐(0) 编辑
摘要: CreateCaret {建立} DestroyCaret {释放} ShowCaret {显示} HideCaret {隐藏} SetCaretPos {设置位置} GetCaretPos {获取位置} SetCaretBlinkTime {设置间隔时间} GetCaretBlinkT... 阅读全文
posted @ 2008-11-04 14:09 万一 阅读(3082) 评论(0) 推荐(1) 编辑
摘要: 问题来源: http://www.cnblogs.com/del/archive/2008/11/04/1209070.html#1360634 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, St... 阅读全文
posted @ 2008-11-04 13:23 万一 阅读(1637) 评论(0) 推荐(0) 编辑
摘要: 举例: 更换桌面壁纸 var BmpPath: PChar; begin BmpPath := 'C:\Temp\Test.bmp'; SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BmpPath, SPIF_UPDATEINIFILE); end; SystemParametersInfo 的参数实在太多了... SPI_GET... 阅读全文
posted @ 2008-11-04 11:03 万一 阅读(4345) 评论(3) 推荐(0) 编辑
上一页 1 ··· 96 97 98 99 100 101 102 103 104 ··· 215 下一页