程序开发

programme

delphi中控制一个edit中只能输入数字(包括小数点)

procedure Tform1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', #8, #13]) then
key := char(0); //key:=char(' ');//#8是回退键,#13是回车键
if key = #13 then
begin
selectnext(activecontrol, true, true);//跳转到下一个控件
end;
end;

、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、

edit keypress

Delphi MD5 DEMO V1.0(转载)

///////////////////////////////////////////////////////////////////////////////

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

加壳软件的介绍

ASProtect

无可争议的外壳界老大,它开创了壳的新时代,SEH 与各种流行反跟踪技术、多态变形引擎的使用(准确来说是从病毒中借用)、BPM 断点清除等都出自于此;更为有名的当属 RSA 算法的使用,使得 DEMO 版无法被破解成完整版;Code Dips也源于这里;输入表处理即使现在看来仍很强劲。开发壳应该学习它各种算法的熟练运用,而它最失败之处就是反跟踪过于温柔,令破解者轻松研究。

tELock

大名鼎鼎的一款免费的保护软件,具有较强的反跟踪能力,用SEH控制 DRx结合内存校验封杀了 BPM 断点和SuperBPM 等工具。并有 BPE32 变形引擎产生很多异常代码干扰跟踪。输入表的修复让人头痛了好一阵子,于此形成讽刺意味的是,输入表在重定向之前会在内存中以完整的形态出现。值得一提的是heXer 花费了数月零散时间,将它逆向并做出了一个加强版,称之为 tELock X。

PELock

Delphi TreeView使用笔记

TreeView由节点构成,建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象,这是一个TTreeNode集。

一、针对TTreeNodes,也就是 TreeView.Items,有这些属性:
1、count,节点个数。
2、item[index] ,通过index得到节点。

二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有:
AddFirst添加第一个根节点。由此函数添加的节点总排在前面,除非后来又使用此函数添加了一个节点,则后添加的节点将排在前面。该函数返回新添加的节点。
AddChildFirst添加第一个子节点,要求有父节点作为其参数。返回新添加的节点。
AddChild添加一个子节点,要求有父节点作为其参数。返回新添加的节点。
Add添加一个兄弟节点,要求有兄弟节点作为其参数。返回新添加的节点。

三、针对TTreeNodes,也就是 TreeView.Items,常用的得到节点的操作有:
GetFirstNode() 得到根节点。
然后配合TTreeNode.GetNext(),就可以访问所有的节点。

ms agent 中添加右键菜单并且执行

本人测试的时候,以下程序,右键出来了,但右键功能却没有,正在找原因。

全部程序如下:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, AgentObjects_TLB, StdCtrls, Buttons;

使用Microsoft Agent 控件与电脑交谈-在VB中使用精灵助手

  Microsoft Agent 控件比Office2000中的助手功能更加丰富和强大,它提供的动画人物不仅有生动、有趣的动作,而且还能通过声卡、麦克风与用户进行交谈,这些功能使计算机更具人性魅力,其应用前途相当广阔。Microsoft Agent控件的内部机制很复杂,但用VB来操纵它却是非常方便,本文将介绍VB 6.0调用Microsoft Agent 控件的基本方法。

  首先在VB6.0中新建立一个工程,在工程菜单中选择部件à在Microsoft Agent control2.0控件前打勾,现在工具箱上就有了一个小人的图标,这就是我们主要讨论的Agent控件。

  先把该控件拖放到窗体上,然后在工程中新建一个模块。在模块中添加以下代码:
Public strA As String
Public Merlin As IAgentCtlCharacterEx
Public AgentRequest As IagentCtlRequest

  第一句Public strA As String声明一个公有的字符串变量用来存放动画人物的路径。

  Public Merlin As IagentCtlCharacterEx第二句声明一个动画人物对象名字叫Merlin

如何在Microsoft Agent中的动画精灵上面添加右键菜单?

默认的是右键只有一个“隐藏”的按钮。

Merlin.Commands.Add('writing','&writing','',True,True);
Merlin.Commands.Add('Search','&Search','',True,True);
Merlin: IagentCtlCharacter;

delphi轻松设置无边框透明窗体

以前在D5下要用很多步骤实现的透明窗体,在最新的delphi下轻松简单的就实现了,仅仅是设置几个属性。
New->Application
设置TransParentColor -> True;
设置TransParentColorValue -> clMaroon;
设置Color ->clMaroon; 盟
设置BorderStyle -> bsNone;
添加一个Button1按钮作对比;
运行。
看看,FORM 是不是已经透明了?

Delphi拖动无标题栏窗体的方法

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

const SC_DRAGMOVE:Longint=$F012;
begin
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND,SC_DRAGMOVE,0);

end;

页面

Subscribe to RSS - 程序开发