DELPHI8操作符重载的例子

2017年02月06日 66 阅读

DELPHI8操作符重载的例子2008-02-02unit WinForm;interfaceuses System.Drawing, System.Collections, System.ComponentModel, System.Windows.Forms, System.Data;type TWinForm = class（System.Windows.Forms.Form） {$REGION "Designer Managed Code"} st...

网络游戏外挂的面纱

2017年02月06日 70 阅读

网络游戏外挂的面纱2008-02-02在几年前我看到别人玩网络游戏用上了外挂，做为程序员的我心里实在是不爽，想搞清楚这到底是怎么回事。就拿了一些来研究，小有心得，拿出来与大家共享，外挂无非就是分几种罢了（依制作难度）：1、动作式，所谓动作式，就是指用API发命令给窗口或API控制鼠标、键盘等，使游戏里的人物进行流动或者攻击，最早以前的“石器”外挂就是这种方式。（这种外挂完全是垃圾，TMD，只要会一点点API的人都知道该怎么做，不过这...

数学表达式的计算-如何捕捉异常

2017年02月06日 73 阅读

数学表达式的计算-如何捕捉异常2008-02-02黄涛在写程序的过程中，难免会出现各种各样的情况，有的情况也许不是我们想要的。有的人也许会用很多判断要严格控制程序，使其不会出现异常情况，但这样做可能会增加写程序的难度。其实我们还可以用一种更加简便的方法，那就是异常。在程序中合理的使用异常将使你在写程序中省去很多烦恼。在Delphi中，Borland 已经为我们定义了很多异常的类，我们可以直接使用。但是如果我们不去管异常的话，会使程序的的界面乱七八糟，下面就...

用Delphi编写安装程序

2017年02月06日 69 阅读

用Delphi编写安装程序2008-02-02当你完成一个应用软件的开发后，那么你还需要为该软件做一个规范化的安装程序，这是程序设计的最后一步，同时也是很重要的一步，因为运行安装程序往往是用户做的第一步操作。很多报刊文章介绍了许多如何利用installshield等工具软件来制作安装程序的方法，这种办法可以很快建立起较常见的安装模式，但用这种办法也有一些不足，如做成的安装程序一般较大；风格较单一；不能灵活的控制启动方式和快捷方式。其实安装程序的的几个运行步...

Delphi中延时

2017年02月06日 69 阅读

Delphi中延时2008-02-02procedure Delay（msecs:integer）;varFirstTickCount:longint;beginFirstTickCount:=GetTickCount;repeatApplication.ProcessMessages;until （（GetTickCount-FirstTickCount） >= Longint（msecs））;end;...

一个Delphi程序员的开发习惯

2017年02月06日 69 阅读

一个Delphi程序员的开发习惯2008-02-02有关开发习惯的一些想法，如鲠在喉，不吐不快。究其发贴动机，当然不排除有骗取参与分的可能，但另一方面，也希望能给同行（念Xing）者提供一些建议，或者参考（希望不是误人子弟）。同时，也希望各位能够就我的这些陋习，发表一点看法，给出批评和指正的意见。谢谢。一．建立工程目录首先，第一步要做的，当然是给新项目建一个单独的目录（别笑）。目录名称与项目名称同名，或者另取一个也可，只要清楚、简练。然后，在此目录中创建以...

Delphi用hook实现dll注入详解

2017年02月06日 77 阅读

Delphi用hook实现dll注入详解2008-02-02需要一个用来注入的dll（inject.dll）及一个调用程序（caller.exe）流程：caller.exeprocedure TestHook;var pwnd,hChild, hwndInject :hwnd; msg:tmsg;begin //通过窗口标题用FindWindow找到要注入的程序的主窗口句柄pwnd pwnd := findwindow（"Progman",nil）;...

注册文件类型 设置文件图标

2017年02月06日 70 阅读

注册文件类型 设置文件图标2008-02-02{------------------------------------------------------------------------------- @过程名: slpert -> TFm_main.SetAssociatedExec @作者: Gavin @日期: 2004.09.08 @功能描述： @参数: FileExt, Filetype, FileDescription...

编码的艺术

2017年02月06日 72 阅读

编码的艺术2008-02-02我在本文中要谈的不是编码的技术实现，我所关注的是关于编码的风格的问题。我在编写了e速的编码规范之后，产生了要写一些关于程序编码风格的念头；因此，就有了以下的文章，这些仅仅是本人的想法，可能在文章中还有一些未尽如人意的地方，所以肯请大家能够给与谅解。很多人在谈到编码的艺术时，总会说我的程序怎么怎么的厉害，功能多么的强大，好像什么事情都能完成一样；但是去运行他的程序，bug不断；连他自己都不知道错在了什么地方。打开他的程序一看，代...

使Delphi代码简洁的五条忠告

2017年02月06日 81 阅读

使Delphi代码简洁的五条忠告2008-02-02写代码是一种艺术。使用Delphi，任何人都可以轻而易举地开发出某种软件、完成某些任务。而完美的代码则只有真正的高手才能写出。除了正确的缩进、大小写、命名规则之外，请时刻牢记爱因斯坦的名言--简单就是美。下面将谈及的五个代码问题，可能是初学者、甚至一些老鸟都会犯的错误。忠告一布尔型变量的赋值操作应该是直接的。例如，在一个if/then/else语句中，if子句将布尔型变量赋值为True，而else子句将其...

Delphi调用AutoCAD技巧

2017年02月06日 66 阅读

Delphi调用AutoCAD技巧2008-02-02//uses ComObj;//for autocad 2000procedure TForm1.Button1Click（Sender: TObject）;varobj_Acad :OleVariant;begintry obj_Acad:=GetActiveOleObject（"AutoCAD.Application.15"）;except obj_Acad:=CreateOleObject（"Au...

《COM原理与应用》学习笔记-第一部分COM原理

2017年02月06日 67 阅读

《COM原理与应用》学习笔记-第一部分COM原理2008-02-02⊙ 第一章 概述===================================================COM 是什么---------------------------------------------------COM 是由 Microsoft 提出的组件标准，它不仅定义了组件程序之间进行交互的标准，并且也提供了组件程序运行所需的环境。在 COM 标准中，一个组件程序...

用Delphi通过SetupAPI.dll列举和停用硬件设备

2017年02月06日 64 阅读

用Delphi通过SetupAPI.dll列举和停用硬件设备2008-02-02前天弄的东西,通过SetupAPI.dll列举硬件设备,部分是改自MSDN自带的例子,自己加了显示设备类型名和图标.代码是我一个个加上去的有些乱.{Setup.pas---从SetupAPI.h里转的一些函数和常量}unit SetupAPI;interfaceuses Windows;const DIGCF_PRESENT = $0002; DIGCF_ALLCLASSES ...

利用VFW在Delphi中开发视频捕获程序

2017年02月06日 75 阅读

利用VFW在Delphi中开发视频捕获程序2008-02-02摘要：许多关于视频的软件（如视频会议、可视电话等）开发都应用于视频捕获技术。微软为软件开发人员提供了一个专门用于视频捕获的VFW SDK，从而为在Windows系统中实现视频捕获提供了标准的接口，并大大降低了程序的开发难度。由于VFW SDK只有VC和VB版，没有Delphi版，因此需要在Delphi中一一声明DLL中的各个函数和变量。文中详细介绍了如何利用VFW在Delphi中开发视频捕获程序...

Delphi基础开发技巧

2017年02月06日 65 阅读

Delphi基础开发技巧2008-02-02[DELPHI]网络邻居复制文件uses shellapi;copyfile（pchar（"newfile.txt"）,pchar（"//computername/direction/targer.txt"）,false）;[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现,例如在PANEL上的LABEL:var xpanel,ypanel,xlabel,yl...

深入Delphi编程（OOP）

2017年02月06日 70 阅读

深入Delphi编程（OOP）2008-02-02左轻侯刚刚接触的Delphi的朋友，可能最感兴趣的就是它丰富、强大的VCL（可视化构件库）。仅仅向窗体上扔几个构件，甚至不用动手写代码，就能很容易地做出一个有实用价值的程序，真是令人激动。但是，VCL只是Delphi的一小部分，Delphi的优秀远远不只是表现在VCL上。如果你仅仅停留在使用VCL这一阶段，那么你永远也不可能成为一个真正的Delphi高手。记住，必须超越VCL，才能够接触到Delphi的核心...

Delphi元件的handle的建立

2017年02月06日 74 阅读

Delphi元件的handle的建立2008-02-02控制项的 window handle 是在 CreateWnd 方法中建立的。如果你想要在建立 window handle 後接着做某些动作那麽你应该改写 CreateWnd 方法：procedure TMyClass.CreateWnd;begin// 现在还没取得 window handleinherited CreateWnd;// 呼叫 inherited 以取得 window handle/...

Delphi中限制FORM的大小

2017年02月06日 72 阅读

Delphi中限制FORM的大小2008-02-02使用过DELPHI的朋友都会注意到DELPHI本身最上面的窗口，当它极大时只占屏幕的一小部分，它是如何实现的呢，请看下面的说明：1）在FORM私有声明部分加上如下一行：procedureMessage :TWMGetMinMaxInfo ）; message WM_GETMINMAXINFO;WMGetMinMaxInfo（ var2）在声明部分加上如下几行:procedure TForm1.WMGetM...

Delphi中StringGrid制作只读列

2017年02月06日 78 阅读

Delphi中StringGrid制作只读列2008-02-02在 OnSelectCell事件处理程序中,加入: （所有的列均设成可修改的）if Col mod 2 = 0 thengrd.Options := grd.Options + [goEditing]elsegrd.Options := grd.Options - [goEditing];...

Delphi多层C/S的客户端调用服务器端的方法

2017年02月06日 72 阅读

Delphi多层C/S的客户端调用服务器端的方法2008-02-02我在APPLICATION SERVER中声明一个方法，PROCEDURE GETQUERYPARA（VAR CPARA:OLEVARIANT）;BEGINQUERY.CLOSE;QUERY.PARAMBYNAME[CODE].ASSTRING:=CPARA;END;客户端调用:PROCEDURE TFORM1.FORMSHOW（SENDER:TOBJECT）;BEGINCLIENTDAT...