2003年06月_LuckyJan

06月

原创 Delphi组件与属性编辑器

Delphi组件与属性编辑器(一)前言本文将用一个例子描述组件开发与属性编辑器。例子(TdsWaitDialogEx)是一个可视组件，调用其show方法后显示一个Dialog,其中包含一个TAnimate,两个提示信息(即TLabel),一个进度条(TGauge)。? 枚举属性：DialogStyle，AVIPosition? 记录属性：Options ? 属性集合对象从TPersistent

2003-06-25 15:23:00 7922 1

原创 Delphi_Excel例子:单元格拷贝粘贴

//Excel的单元格拷贝粘贴procedure Excel_copyCells;var sheet,XLApp,workbook,myRange1 ,myRange2: variant;begin try //创建对象 XLApp:=createOleObject(Excel.Application); XLApp.displayAlerts:=true;

2003-06-17 11:21:00 3629 1

原创 Delphi与Word例1

//==================?Word_VBA 代码?====================//sub inWord()? Dim myTable As Table? Dim myBox, myPict, myShape As Shape? ? 画第一个矩形框? Set myBox = ActiveDocument.Shapes.AddTextbox(Orientation:=

2003-06-16 17:33:00 2614 1

原创读取硬盘的物理序列号

读取硬盘的物理序列号//获得硬盘序列号function GetIdeSerialNumber() : PChar; stdcall;const IDENTIFY_BUFFER_SIZE = 512;type TIDERegs = packed record bFeaturesReg: BYTE; // Used for specifying SMART "commands".

2003-06-13 16:00:00 3316 2

原创 (Delphi)Excel的快速导入

//怎样可以提高EXCEL的导出速度？uses ADODB,excel97,adoint;function TForm1.ExportToExcel: Boolean;var xlApp,xlBook,xlSheet,xlQuery: Variant; adoConnection,adoRecordset: Variant;begin adoConnection := CreateO

2003-06-13 12:01:00 5930 7

原创 Delphi与Excel

uses comobj,excel97,excel2000;//从Excel写数据到Access库prodedure ExcelToMdb(EXLfile:string;);var sheet,XLApp,workbook : variant; iRow,MaxRow:integer;begin screen.Cursor:=crHourGlass;? try //创建对象

2003-06-05 10:41:00 3264

////////////////////////////////////////////////////////////////////////创建IXMLDOMDocument对象的三种方法：(1)[方法1] 直接创建 IXMLDOMDocument? , 例(1)?? uses msxml; ?? var DOC:IXMLDOMDocument;?? doc := CoDOMDocument.

2003-06-05 09:09:00 3506 1

原创 Delphi与Word（二）取得Word 表格中的数据

//取得Word 表格中的数据procedure getWordCellStr;var WordApp: TWordApplication;??? WordDoc: TWordDocument;??? DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,??? PswTemplate,oRevert,WPswDocume

2003-06-04 17:16:00 2125

原创 Delphi与Word（三）取得Word文件的数据

//取得Word文件的数据procedure getWordStr;var WordApp: TWordApplication;??? WordDoc: TWordDocument;??? DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,??? PswTemplate,oRevert,WPswDocument,WPs

2003-06-04 17:16:00 2014 1

原创 Delphi与Word（一）合并Word 表格中单元格

//合并Word 表格中单元格procedure mergeWordCell;var WordApp: TWordApplication;??? WordDoc: TWordDocument;??? DocInx,oFileName,CfCversions,oReadOnly,AddToRctFiles,PswDocument,??? PswTemplate,oRevert,WPswDocumen

2003-06-04 17:13:00 2880