unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,TlHelp32; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declar...
delphi 写DLL注入器 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,tlhelp32; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); p...
刚学电脑时很喜欢网络安全，看着高手们写的一个又一个攻击工具，自己也总想努力去学好编程去写属于自己的程序。学DELPHI快一年了，感觉什么都没学到，惭愧啊。今晚突然想学着写...
program sysrun; uses Windows, SysUtils, tlhelp32, AccCtrl, AclAPI; function findprocess(TheProcName: string): DWORD; var isOK: Boolean; ProcessHandle: Thandle; ProcessStruct: TProcessEntry32; begin ProcessHandle := createtoolhelp32snapshot(...
Delphi嵌入循环汇编 var Int:Integer; begin asm xorebx,ebx//ebx xoreax,eax//eax @for:addebx,eax//设置循环点ebx+eax inceax//eax+1 cmpeax,$0b//ifeax11 jnz@for//跳回add movInt,ebx; end; //这个时候Int的值是55 end;...
昨天研究了一下Delphi2010的Unicode，同时也改了几个单元到2010中来，今天下午修改AES的加密库的时候，碰到一个问题，我将AES中的StrtoHex换成了自己写的汇编函数！其他的地方，都修改好...
1 BASM概念简要 汇编语句由指令和零至三个表达式构成。表达式由常数(立即数)、寄存器和标识符构成。例如： movsb // 单指令语句 jmp @Here // 一个表达式: 标识符 add eax,1 // 两个表达式: 寄...
Delphi 与汇编入门 // 作者 万一 http://www.cnblogs.com/del/category/121079.html function add(x, y: Integer): Integer; var count: Integer; begin asm MOV EAX, x {把 x 值放入寄存器 EAX} MOV ECX, y {把 y 值放入寄存器 ECX}...
Delphi+汇编例子1(求和的比较) 第一个程序只是给您个印象，后面还有一个帖子，在详细说说。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtr...
----- 老鳃 -------- 考虑如下这个简单类ttest unit Unit1; interface uses Windows, SysUtils, Variants, Classes; type ttest = class public j:integer; i:integer; function aa(b,c: integer):integer;stdcall; end; implementation function...