- 博客(13)
- 收藏
- 关注
原创 活动目录的备份与恢复
在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
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人