pgnet

原创 摇奖机是按照金字塔的原理设计的

摇奖机是按照金字塔的原理设计的 摇奖机是按照金字塔的摇奖机是按照金字塔的原理设计的 摇奖机是按照金字塔的原理设计的 众所周知，摇奖机其实就是一台人工控制的计算机。双色球单次的销量如果不超过3000万元左右的话。开不开一等奖或开几注一等奖是由人给计算机发出指令。再由计算机根据事先设定好的程序。在当期的销售号码中。选出一注或几注既有一部分人中奖，彩票中心又不赔钱的号码。再由一个识别器读取计算机事先算好

原创 delphi string类型转integer时出错的检测

procedure TForm1.Button1Click(Sender: TObject);Var  Num: Integer;Begin  Try    Num:=StrToInt(Edit1.Text);    Edit2.Text:=IntToStr(Num*Num);  Except    On EConvertError Do   ShowMessage(Edit1.Text+无法转

原创 delphi BYTE 转字符串

BYTE 转字符串 procedure TForm3.FormCreate(Sender: TObject);begin  Self.Paint;end;function ByteToHex(Src: Byte): String;begin  SetLength(Result, 2);  asm    MOV         EDI, [Result]    MOV         E

转载 (Delphi) TStringList的用法 构造简单数据库

TStringList的用法(Delphi)2007-05-07 16:47确实很有用，但是这个怎么把空格也默认为分割符了呢，谁知道怎样把空格不认为是分割符的？？TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。常规的用法大家都知道，现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来：1、CommaText2、Delimiter

原创 利用Windows外壳扩展保护文件夹

利用Windows外壳扩展保护文件夹在Win32操作系统（包括Win9X、Windows NT、Windows 2000）不但有方便的图形用户（GUI）界面，微软还为Windows用户界面保留了强大的可扩充性。其中对于Windows界面的操作环境（这里称为外壳Shell），微软提供了一种称为外壳扩展（Shell Extensions）的功能来实现文件系统操作的可编程性。如果你的机器中安装了Word

原创 Delphi编写Windows资源管理器

Delphi编写Windows资源管理器发表:不详   阅读: 2072次  关键字：不详   字体:[大 中 小]     编写资源管理器，Delphi 有最简单的方法，就是在form上加上一个TShellComboBox1控件，一个TShellTreeView1控件和一个TShellListView1控件。然后分别指定他们的属性值为对应的属性就可以了。但是这不是一个

原创 SHGetFileInfo函数 获取系统文件类型及图标

SHGetFileInfo函数function SHGetFileInfo(pszPath: PAnsiChar; dwFileAttributes: DWORD;  var psfi: TSHFileInfo; cbFileInfo, uFlags: UINT): DWORD; stdcall;pszPath 参数:指定的文件名。 当uFlags的取值中不包含 SHGFI_PIDL时,可直接

原创 在Delphi中使用系统对应文件类型的图标

在应用程序的编写中，组合框（ComboBox）、列表框（ListBox）、等常见的部件，通常不仅要用于显示文字，而且还要显示其与文字相关的图标。在一般的Windows应用程序中，这些图标的显示都要随列出的显示文本的变化而变化，例如在组合框中列出当前目录下的所有文件时，在组合框左边就显示与文件名相关联的图标，这就是所谓的动态图标。在Delphi中使用动态图标的步骤如下：  　　一、图标的

原创 使用Delphi解析XML 文档

使用Delphi解析XML 文档[ 2005-08-24 13:17:23 | 作者: cyberfan ] 字体大小: 大 | 中 | 小 对于XML的解析主要有 DOM（文档对象模型） 和SAX（Simple API for XML）。DOM是通过构建内存对象来完成XML的解析， 后者则是将解析过程转换为事件驱动。 Delphi提供了三种DOM解析程序：MSXML， Open XM

原创 Delphi中停靠技术的实现

Delphi中停靠技术的实现 随着软件技术的不断进步，软件界面也越来越美观，操作也越来越方便。综观市面上比较专业的各种软件，我们会发现大部分都提供窗体停靠的功能，特别象工具软件，基本上都或多或少有停靠功能。自然，Delphi也支持停靠，而且她和VCL紧密结合，对于广大的Delphi程序员来说更是一大福音。让我们省去枯燥的编码时间。把注意力集中在核心程序的构思上。 先让我

原创 使用Delphi开发Office Word插件

使用Delphi开发Office Word插件 作者：　来源：plwww　发布时间：2006.08.15在Office 2000中提供了基于COM的插件开发框架，这使得我们可以利用Delphi来扩展Office的功能。　　在Delphi 3,4中编写基于COM的插件，我们需要自己创建COM接口的封装类，更糟糕的是要想支

原创 OLE 焦点问题

> Hi, I think you can try next code> > >   TOleContainerAc=class(TOleContainer)>   private>     FCannotDeactivate: Boolean;>     procedure CMUIDeactivate(var Message: TMessage); message > CM_UIDEACTIV

原创 Delphi-Word Automation refresh Issues

borland.public.delphi.oleautomationHistory/ArchivioDelphi-Word Automation refresh Issues2 msg[borland.public.delphi.oleautomation] Delphi-Word Automation refresh

原创 TOleContainer 焦点问题

TOleContainer 是一个OLE容器，近日想用DELPHI嵌入EXCEL做报表，由于不想单独出现一个EXCEL窗口，自然想到用TOleContainer，但TOleContainer有一个缺陷，就是失去焦点后EXCEL窗口同时也变灰了，需要重新激活，“有问题，找GOOGLE”，总结了几个可以避免此问题的方法 ：1.将TOleContainer失去焦点前的界面保存下来，在TOleCont

原创 使用Delphi快速开发ActiveX控件

使用Delphi快速开发ActiveX控件来源：优快云 作者：zhystudy 时间：2007-12-05 点击：915 次 　　ActiveX 控件也就是一般所说的 OCX 控件，它是 ActiveX 技术的一部分。ActiveX 是微软公司推出的基于组件对象模型 COM 的技术，包括对 Windows 32位应用编程接口(Win32 API)和组件对象模型的一系列扩充和增强，目标

原创 Delphi与Word之间的融合技术

问题：Delphi与Word之间的融合技术 ( 积分：0, 回复：325, 阅读：37835 )分类：OLE/Automation ( 版主：g622, satanmonkey ) 来自：yzhshi, 时间：2001-11-18 17:52:00, ID：737517[显示：小字体 | 大字体] <tools:ubb style="FONT-SIZ

原创 DSO(dsoframer)的接口文档

DSO(dsoframer)的接口文档 （开发环境）使用前先注册一下DSOFramer.ocx    操作：将DSOFramer.ocx复制到C:/windows/system32目录下，         开始->运行->regsvr32 DSOFramer.ocx , 系统会提示DSOFramer.ocx中的DllRegisterServer成功DSO的接口文档/*1.新建*//

原创 TOLEContainer部件

TOLEContainer部件　　要创建OLE对象，需在窗体中加入OLE包容器部件。 应用程序部件包含链接或嵌入的对象。用该部件可显示在OLE服务器编辑的数据。部件的ObjClass,ObjDoc,ObjItem 属性分别定义OLE类、文件、项目。要定义OLE对象是否本地激活，使用InPlaceActive 属性。如果OLE对象可以本地激活，OLE服务器菜单将与OLE应用程序的菜单进行融合，Gro

原创 OLE方式控制WORD生成一个文档，包括自动生成表格

   unit Unit1;interfaceuses         Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,         StdCtrls;     type         TForm1   =   class(TForm)      

原创 OLE方式 word中插入图片

我是在delphi中用olecontainer操作word,要向其中插入图片，使用粘贴板。但是图片放入后位置是这一行的开始位置，如下：         {   将一副图片粘贴到word中   }         ClipBoard.Assign(aImage.Picture);         {   以下为vba代码--可在word中利用录制宏的功能取得--------------------b

原创 Delphi与Word之间的融合技术（下）zt

Delphi与Ole,Word,Excel,查找与替换等 Delphi与Word之间的融合技术（下）zt来自：yzhshi, 时间：2002-2-2 14:24:00, ID：902680前面我就Delphi中调用Word写了一些，比较注重于具体实现，对于研究的方法则说的比较片面。今天晚上，我静下心来，总结了一下怎样在Delphi中生成操作Word的代码。如果说前面我写的是金子，那么下面这

原创 delphi OLE容器方式 调整显示比例 锁定只读

锁定文档，只读模式 OleContainer1.OleObject.Application.ActiveDocument.Protect(2);OleContainer1.OleObject.Application.ActiveWindow.ActivePane.DisplayRulers := Not OleContainer1.OleObject.Application.ActiveWin

原创 Delphi控制Excel的重要属性和方法