自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

转载 建立线程监视

var Form1: TForm1; Hprocess: THandle; implementation {$R *.dfm} function MyThread(P: Pointer): DWORD; stdcall; begin if WaitForSingl

2011-02-10 15:22:00

阅读数 657

评论数 0

原创 修复快捷图标丢失

@echo off setlocal EnableDelayedExpansion color 2f echo. echo ------------------------------------------------------ echo * 正在尝试修复系统,请稍候..... ...

2019-03-22 01:03:36

阅读数 52

评论数 0

转载 S5700交换机如何配置链路聚合

配置手工负载分担模式链路聚合示例组网需求如图1所示,SwitchA和SwitchB通过以太链路分别都连接VLAN10和VLAN20的网络,且SwitchA和SwitchB之间有较大的数据流量。用户希望SwitchA和SwitchB之间能够提供较大的链路带宽来使相同VLAN间互相通信。同时用户也希望...

2018-02-15 16:30:41

阅读数 17374

评论数 2

转载 GetDiskInfo

{$APPTYPE CONSOLE} uses SysUtils, ActiveX, ComObj, Variants; function ListDrives : string; var FSWbemLocator : OLEVariant; objWMIServ...

2015-04-28 21:46:26

阅读数 969

评论数 0

转载 Free

1、在方法中创建,在方法的收尾时.Free。 2、在单元中创建,在单元的释放时.Free。 二、Delphi有优化代码的功能,一般情况下,即使你不写Free。在程序结束时,它会释放的。 三、写Free是程序员的一个良好的习惯。如果你的程序不是正常退出,就会造成内存被占用。 四、对象的创建,...

2015-04-09 01:00:03

阅读数 629

评论数 0

原创 Dellphi随记

全局变量是有范围的: 1、工程范围内,应定义一个单元,专门存放变量;所有的单元uses该单元; 2、单元内全局变量,放在单元的 private中声明的变量,只能在本单元内使用; 3、方法内的全局变量,在方法的Begin之前声明,它只能在本方法内使用,本单元调用其它方法时,它对于其它方法,就是全局...

2014-11-19 01:05:20

阅读数 1003

评论数 0

转载 REGEXPR正则表达式

其实这个Pascal单元我在几个论坛上面都推荐过,也是我唯一会用的DELPHI下面的正则表达式实现。 正则表达式是个极其繁琐和强大的东西,小生才疏学浅,也不准备写正则表达式的教程,借着对这个单元的介绍,会有一些浅显且有用的例子。 首先介绍的是这个单元的主角:TRegExpr类,这个类包括很...

2014-06-07 00:59:56

阅读数 1179

评论数 0

转载 Delhpi TQuery应用

9.1 有效地使用查询   要有效地使用查询,必须熟悉标准的SQL语言以及所使用的服务器对SQL-92的限制和扩展,同时还要熟悉BDE。 9.1.1 查询桌面数据库   作为一个桌面开发者,应对表格、记录和字段的概念有所了解,又能熟练地使用TTable构件访问数据集中的每一条记录和每一个字段...

2014-06-06 14:16:40

阅读数 754

评论数 0

转载 通过指针对只读属性写操作一例

type TObj = class private FNumber: Integer; public property Number: Integer read FNumber;//只读属性,不可写 end; procedure TForm1.FormCreat...

2014-02-18 15:24:12

阅读数 1034

评论数 0

转载 提升进程权限为DEBUG权限

procedure SetPrivilege; var OldTokenPrivileges, TokenPrivileges: TTokenPrivileges; ReturnLength: dword; hToken: THandle; Luid: int64; beg...

2014-01-05 22:59:35

阅读数 776

评论数 0

转载 Delphi制作DLL

Delphi制作DLL 一 Dll的制作一般步骤 二 参数传递 三 DLL的初始化和退出清理[如果需要初始化和退出清理] 四 全局变量的使用 五 调用静态载入 六 调用动态载入 七 在DLL建立一个Tform 八 在DLL中建立一个TMDIChildform 九 ...

2013-12-19 18:42:25

阅读数 2700

评论数 0

转载 Delphi之钩子函数

目前对钩子的理解:     譬如我们用鼠标在某个窗口上双击了一次, 或者给某个窗口输入了一个字母 A;首先发现这些事件的不是窗口, 而是系统!     然后系统告诉窗口: 喂! 你让人点了, 并且是连续点了两鼠标, 你准备怎么办?或者是系统告诉窗口: 喂! 有人向你家里扔砖头了, 不信...

2013-12-19 14:50:32

阅读数 5871

评论数 0

原创 动态数组指针应用

Type TMyArr = array of array of array of Integer; Pint = ^TMyArr; var PArr: Pint; i, j, k, ic, jc, kc: Integer; begin ic := 2; jc := 3; ...

2013-12-06 20:01:16

阅读数 787

评论数 0

原创 传入动态数组

TMyRec = record sName: string[15]; Sex: integer; end; pMyRec = ^TMyRec; arr1 = array of pMyRec; var a1: arr1; procedure TForm1.But...

2013-12-05 19:03:36

阅读数 766

评论数 0

原创 数组类型指针

{使用一个元素的数组指针} PMyRec = ^TMyRec; TMyRec = record F1: Char; F2: Word; end; procedure TForm1.Button1Click(Sender: TObject); type PArr =...

2013-12-05 18:17:58

阅读数 674

评论数 0

原创 数组指针参数

Const arr1: array [0 .. 1, 0 .. 1] of string = (('A0B0', 'A1B0'), ('A0B1', 'A1B1')); arr2: array [0 .. 2, 0 .. 1] of string = (('X0Y0', 'X1Y0...

2013-12-05 02:07:38

阅读数 695

评论数 0

转载 RmbChangdx

function RmbChangdx(mmje: Double): String; const s1: String = '零壹贰叁肆伍陆柒捌玖'; s2: String = '分角元拾佰仟万拾佰仟亿拾佰仟万'; var s, dx: String; i, Len: Inte...

2013-12-05 00:39:38

阅读数 659

评论数 0

原创 Tlist_Demo

type TSmt = record SName: string[16]; Feeder: Integer; Dushu: Real; end; Psmt = ^TSmt; var List: TList; procedure TForm2.But...

2013-12-04 23:19:24

阅读数 654

评论数 0

转载 Delphi 快捷键

分类 快捷键 解释 备注 组 件 设 计 类 Escape 选择当前组件容器   Shift + Click 选择多个组件;选择窗体   Tab 选择下一个组件   Sh...

2013-12-02 21:07:04

阅读数 723

评论数 0

转载 Unicode 字符

unit unUnicodeMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ImgL...

2013-11-30 21:27:26

阅读数 662

评论数 0

提示
确定要删除当前文章?
取消 删除