DelphixpeFan-CSDN博客

原创通过生日计算X岁X月X天，并计算距离生日的天数

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

2018-02-07 16:19:52 1330

转载获取CPUID

type TCPUID = array[1..4] of Longint;function GetCPUID: TCPUID; assembler; register;asm PUSH EBX {Save affected register} PUSH EDI MOV EDI,EAX {@Resukt} MOV

2013-03-13 21:04:28 600

原创显示气球提示框

{=================================================================功能: 显示气球提示框参数: Control: 控件; Icon: 显示图标; Title: 标题; Text:提示信息返回值: 无备注:版本: 1.0 2011/06/06 21:05:00==================================

2011-06-18 08:47:00 888

原创移动鼠标到指定位置

{=================================================================功能: 移动鼠标到指定位置参数: Handle:容器句柄;TP:目标的相对位置;Offset_X,Offset_Y:坐标偏移值; Clicked:是否点击鼠标左键返回值: 无备注: 用于引导操作版本: 1.0 2011/06/06 21:05:0

2011-06-18 08:44:00 1836

原创返回本机的Ip地址

uses winsock;{=================================================================功能: 返回本机的Ip地址参数: 无返回值: 成功: Ip 失败: 备注:版本: 1.0 2011/06/06 21:05:00=================================================

2011-06-18 08:41:00 778

原创 delphi动态调用oracle存储过程

{=================================================================功能: 登录信息检测参数: pUserInfo: 用户信息记录;ErrorMessage:返回信息;Flag:0为登录,1为退出返回值: -1:存储过程执行错;0:成功;1:账户名错;2:密码错;3:同一账户同时登录备注:版本: 1.0

2011-06-17 17:41:00 1122

原创 delphi 2010 下的一个字符串加密函数，可对中文进行加/解密

function Crypt(s: String; const bEncrypt: boolean = True): String; //加、解密const mm=7; key:array[0..mm] of word=($A2,$F9,$AA,$55,$E3,$6D,$8A,$47); //这里的常量是加密异或码（作为加密密钥用的），可自行修改。var i, L : DWord; b, k

2011-06-17 17:31:00 2561