2013 年 6月 19 日随笔档案 - shellcode

Delphi的函数及过程且参数返回数据

摘要： function myset(x:Integer;out y:Integer):Integer;stdcall; // 函数begin y:=x+1; Result:=0;end;procedure myset1(x:Integer;out y:Integer);stdcall; //过程begin y:=x+1;end;procedure TForm1.FormCreate(Sender: TObject); var y:Integer;begin myset(1,y); ShowMessage(IntToStr(y))... 阅读全文

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

将4个Byte合成1个Integer (此标题是在万一的博客上看到的有另一种解法涉及到内联汇编)

摘要：将4个Byte合成1个Integer (此标题是在万一的博客上看到的有另一种解法涉及到内联汇编算是本博的第一个内联汇编的代码学习Delphi 就是看到他能内联汇编很爽procedure TForm1.btn1Click(Sender: TObject);var bs:array of Byte; i:LongWord;begin SetLength(bs, 4); bs[0] := $CC; bs[1] := $DD; bs[2] := $EE; bs[3] := $FF; asm mov eax,bs[0] mov eax,[eax] ... 阅读全文

posted @ 2013-06-19 21:38 shellcode 阅读(280) 评论(0) 推荐(0) 编辑

阶段一总结

摘要：目录1.数据类型2.申明API3.流程4.组件的使用下一步研究方向(1.源码调试方法的整理 2.代码风格的优化(全局变量局部变量的命令规则) 3.Delphi DLL的写法 4.自用函数的封装5.其他组件的用法(学习Delphi就是学习Delphi组件的用法)) ********************数据类型********************整型integer 有符号整型长度4字节 -2147483648-2147483647(鄙视很多编译器什么句柄型布尔型什么的按照罗云彬的说法汇编只有整型句柄就是一个整型数 BOOL型就是一字节的1或者0 把简单的问题搞复杂而已)Car. 阅读全文

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

Delphi程序流程(3)(while)(自己构建结构数组写进程管理器包含动态结构数组的添加)

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

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

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) 编辑

shellcode