TianGuanLeiOK-CSDN博客

原创活动目录的备份与恢复

在Windows2000中,备份关用户和企业配置方面的信Windows2000中,所有的安全不同。与恢复Active Directory是一项息都存储在注册表中,因此我们信息都存储在Active Directory 非常重要的工作。在NT中,所有有只需要备份注册表即可。但是在中,它的备份方法与在NT中是完全　　　　你不能单独备份Ac据的一部分进行备份。系统,文件复制服务,集群服务,单

2004-09-09 09:16:00 1574

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

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

2004-09-08 16:50:00 1669

原创 Delphi中Excel的快速导入

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

2004-09-08 16:37:00 2105

原创 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 //创建对象

2004-09-08 16:36:00 1564

原创 Delphi 与 XML 示例（直接利用IXMLDocument）

(*) uses msxml,XMLIntf,XMLDoc;(1)//从文件存取function writeXML(XMLName,nodeName,nodeValue:string;proID:integer):integer;var xmlDoc:IXMLDocument; rootNode,CNode,NNode:IXMLNode; iValue,iReturn:integer;

2004-09-08 16:34:00 2007

原创 Delphi与XML

创建IXMLDOMDocument对象的三种方法：(1)[方法1] 直接创建 IXMLDOMDocument , 例(1) uses msxml; var DOC:IXMLDOMDocument; doc := CoDOMDocument.create; ..... Doc := nil; A)doc.load(C:/temp.xml); //从文件载入 B) 动态创

2004-09-08 16:33:00 1763 1

原创 DELPHI中进程、窗口句柄、文件属性、程序运行状态

uses TLHelp32,PsAPI;(1)显示进程列表：procedure TForm1.Button2Click(Sender: TObject);var lppe: TProcessEntry32; found : boolean; Hand : THandle; P:DWORD; s:string;begin ListBox1.Items.Clear ;

2004-09-08 16:31:00 2293

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

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

2004-09-08 16:30:00 2337

原创 DELPHI中对INI文件的读写

function readInifile(fileName,section,Ident:string):string; //读取配置文件var ini:tinifile;begin ini:=tinifile.Create(fileName); result:=ini.ReadString(section,ident,); ini.Free;end;procedure write

2004-09-08 16:29:00 1536

原创 Delphi与Word 举例

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

2004-09-08 16:19:00 1701

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

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

2004-09-08 16:16:00 1550

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

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

2004-09-08 16:15:00 1733

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

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

2004-09-08 16:14:00 1381

天外飞仙的专栏