2013年6月19日

Delphi程序流程三(2)(while)PS:最简单的任务管理器( 组件LISTVIEW的用法 增加LISTVIEW的读取 删除)

摘要: unit Unit1;interfaceuses Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) btn1: TButton; ListView: TListView; btn2: TButton; btn3: TButton; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: T... 阅读全文

posted @ 2013-06-19 12:14 shellcode 阅读(262) 评论(0) 推荐(0) 编辑

Delphi 编译错误信息表(转载自万一博客)

摘要: ; not allowed before ELSEElSE前不允许有“;” clause not allowed in OLE automation section在OLE自动区段不允许“”子句 is not a type identifier不是类型标识符 not previously declared as a PROPERTY前面没有说明PROPERTYGOTO leads into or out of TRY statement GOTO进入或超出TRY语句的范围 clause expected, but found要求子句,但出现16-Bit fixup encountered .. 阅读全文

posted @ 2013-06-19 12:11 shellcode 阅读(1143) 评论(0) 推荐(0) 编辑

Delphi程序流程三(1)(while)PS:顺便写了个最简单的任务管理器(包含申明API 自己申明参数为结构型API 组件LISTVIEW的用法)

摘要: unit Unit1;interfaceuses Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) btn1: TButton; ListView: TListView; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declaration... 阅读全文

posted @ 2013-06-19 00:57 shellcode 阅读(196) 评论(0) 推荐(0) 编辑

2013年6月18日

Delphi程序流程二(for)

摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TFor... 阅读全文

posted @ 2013-06-18 15:04 shellcode 阅读(160) 评论(0) 推荐(0) 编辑

dlephi程序流程一(if then)

摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) stredit: TEdit; btn1: TButton; procedure btn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure streditKeyPress(Sen... 阅读全文

posted @ 2013-06-18 12:18 shellcode 阅读(253) 评论(0) 推荐(0) 编辑

2013年6月17日

Delphi中异常捕获的简单应用

摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure getdeugbtn(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TFo... 阅读全文

posted @ 2013-06-17 21:53 shellcode 阅读(439) 评论(0) 推荐(0) 编辑

Delphi程序API申明调用及参数传址与传值

摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) btn1: TButton; procedure apitest(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1... 阅读全文

posted @ 2013-06-17 21:29 shellcode 阅读(290) 评论(0) 推荐(0) 编辑

2013年6月16日

Delphi中的数据类型

摘要: 类型 名称 字节数 取值范围Integer 整型 4 -2147483648-2147483647Cardinal 实数型 4 0-4294967295longword 长字型 4 0-4294967295 smallInt 小整型 2 -32768-32767Word 实数小整型 2 0-65535shortInt 短整型 1 -128-127Byte 实数短整型 1 0-255Boolean 逻辑型 1 False(假)0/True(真)1string 文本型 255个字符 可以指定长短 比如:var mystring:string[100] 占100个字节的空间数组 定义数组a:arra 阅读全文

posted @ 2013-06-16 19:27 shellcode 阅读(462) 评论(0) 推荐(0) 编辑

2013年6月12日

VPS远程服务器修改登陆用户名

摘要: 1.开始->运行->输入 gpedit.msc(组策略)->回车2.依次点开,计算机配置->windows 设置->安全设置->本地策略->安全选项3.在右边的地方,拉到最下面,找到重命令管理员帐户,双击4.输入你要的用户名,确定5.然后注销一下,就可以用新用户名登陆了 阅读全文

posted @ 2013-06-12 23:24 shellcode 阅读(240) 评论(0) 推荐(0) 编辑

如何保证windows远程连接安全

摘要: Windows的远程连接能够让出差在外,不在公司的管理员提供管理公司服务器的窗口,同时也给服务器带了隐患,3389是标准的远程连接端口,而且网上已经有过利用3389来攻击服务器的方法,所以咱们得把定时炸弹拆除。工具/原料Windows server 2003法/步骤点击开始运行,输入”regedit”打开注册表 然后找到:[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TerminalServer\Wds\rdpwd\Tds\tcp]下找到PortNamber,默认是0x00000d3d(3389),这是十六进制字符,括号里面为十进制的 阅读全文

posted @ 2013-06-12 11:52 shellcode 阅读(274) 评论(0) 推荐(0) 编辑

导航