- 博客(8)
- 资源 (31)
- 收藏
- 关注
转载 将屏幕截取并保存为文件
procedure PrintScrnLog();var Fullscreen: Tbitmap; FullscreenCanvas: TCanvas; dc: HDC; DirectoryPath, logFileName: string;begin DirectoryPath := ExtractFilePath(ParamStr(0)) + 'log\'; lo
2011-12-28 17:15:04 461
转载 delphi操作注册表最简单的方法TRegIniFile 对象
操作注册表实例 Delphi 3.0中的registry.dcu文件定义注册表的数据结构,并提供了TRegIniFile 这个不可视的控件。在程序中可通过该控件来操作注册表。 下面的例子描述了新建(修改)、读取、删除Windows注册表中 的主键HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windo ws\Curre ntVersion\Run下 的
2011-12-16 11:56:20 1993
转载 网上找的例子实现玻璃效果.
可以代码添加到你的工程中.感谢作者的付出!{**********************************************************}{ 摘要: 玻璃效果的绘制 }{ }{
2011-12-16 11:40:16 626
原创 在线程中使用定时器的例子!
在CSDN中找到的例子,自己测试了一下。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TCheckExternalButtonThread = clas
2011-12-09 12:03:29 1048
原创 结构体清空的例子
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type Recaa=record aa:string; bb:integer; cc:double; end;
2011-12-06 16:58:00 5524
原创 使用Sringlist存放double类型的数据例子。
我的这个例子可以使用TObjectList代替,使用前需要引用Contnrsunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMyClass = class(
2011-12-05 15:01:59 697
转载 左键双击关闭pagecontrol中的一个分页即一个tabsheet,功能像遨游浏览器一样
左键双击关闭pagecontrol中的一个分页即一个tabsheet,功能像遨游浏览器一样procedure TfrmServerSetup.PageControl1MouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);varIndex: Integer;begin//左键
2011-12-02 16:22:58 2202
转载 使用GetVolumeInformation获取硬盘信息
//声明:GetVolumeInformation( lpRootPathName: PChar; {磁盘驱动器代码字符串} lpVolumeNameBuffer: PChar; {磁盘驱动器卷标名称} nVolumeNameSize: DWORD; {磁盘驱动器卷标名称长度} lpVolumeSerial
2011-12-01 10:46:01 12091 4
BaoFeng888s-app.zip
2019-05-31
visual studio 2010 主题包黑灰色
2016-02-25
IIS 5.1 Internet信息服务器安装包 For Windows 2000/XP
2013-01-07
win 7 解除远程桌面多用户同时连接(会话)数限制
2012-08-20
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人