懒猫窝窝

Var a,b,c :Integer;       x1,x2 :Real;   Procedure Solve(a,b,c :Integer;Var Fcsumx,Fcsumy :Real);   begin     if sqr(b)-4*a*c >= 0 then     begi...

　　获取MAC地址有很多种方法，可以读取注册表，可以读取底层信息等等。本例采用调用系统dll方法获取网卡MAC地址。在该例子的基础上稍加修改就可以用网卡MAC地址进行软件加密。　　注意：必须在uses部分加入NB30 　　演示： //代码如下：  unit Unit1; interface uses    Windows,&n...

集合对象是一种预定义的对象，包含相似对象的所有实例（即它是相似对象所有实例的上级对象）。以下是集合对象列表： 名称 描述 集合 包含当前 AutoCAD 任务中打开的所有文档。 ModelSpace 集合 包含模型空间中的所有图形对象（图元）。 PaperSpace 集合 包含活动图纸空间布...

从Delphi程序内访问对象层次结构首先必须要连接到应用程序。Delphi通过 ActiveDocument 对象提供指向当前 AutoCAD 任务中活动图形的链接。使用ActiveDocument，用户可以快速访问当前的 Document 对象及其所有方法和特性，还可以访问层次结构中的所有其他对象。 ActiveDocument 用于...

1.1 对象概述 对象是所有 ActiveX 应用程序的主要构造块。每一个显示的对象均精确代表一个 AutoCAD 组件。AutoCAD ActiveX 接口中有许多不同类型的对象。例如： ?  直线、圆弧、文字和标注等图形对象都是对象。 ?  线型与标注样式等样式设置都是对象。 ?  ...

利用Delphi二次开发AutoCAD实际上是用OLE Automation实现了Delphi与AutoCAD数据之间的转换。OLE是一种基于COM的技术，OLE允许应用程序使用其他应用程序提供的通用接口来访问其组件和功能。 要实现Delphi与AutoCAD之间的数据通讯，准备工作我们必须做全。 首先，必须安装AutoCAD R14以上版本，本书以AutoCAD2009为应用版...

Delphi程序的时限和加密本例中TRegistry是关键类，Delphi 4.0不能自行加入，需在uses部分手工加入“registry”，通过其方法“ReadString”和“WriteString”来读出和写入字符，亦可通过其方法“ReadDate”和“WriteDate”来...

procedure TForm1.Button1Click(Sender: TObject); var    f1:TFileStream;       filename:String; begin    OpenDialog1.Execute ;    filename:=OpenDialog1.FileName ;    f1:=TfileStream...

Delphi自动检测U盘插入、拔出及获取U盘盘符 //检测U盘插入、拔出 测试通过 1、新建工程； 2、定义一个私有过程 procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; 完整代码如下： unit Unit1; interface uses    Windows, Messages, SysUtils, Va...

Delphi ListView基本用法大全 //增加项或列(字段) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Items[0].Caption:='id'; ListView1.Columns.Items[1].Caption:='type'; ListView1.Columns.Items[2].Cap...