[Delphi] 纯文本查看 复制代码 procedure TForm1.formcreate(Sender: TObject); //这里相当于于易语言的启动窗口事件，就是当窗口被创建时，就会运行下面的代码
type //首先用type定义一个函数，参数跟MessageBoxA一样，用stdcall调用约定
MyMessageBox = function(hWnd:Cardinal;lpText, lpCaption: AnsiString ;uType: Cardinal): Integer; stdcall; //定义的函数名为MyMessageBox，这里跟静态调用不同的是，静态调用是 function 函数名（参数），这里是 函数名=函数（参数）
var
MyMessage:MyMessageBox; //定义一个变量名为MyMessage，令这个变量的类型是MyMessageBox，也就是这个变量等于函数
apiaddr:Integer; //保存获取到的api函数地址
tiaoshi:Integer; //用来做调试输出用
begin
apiaddr:=Integer(GetProcAddress(LoadLibrary('user32.dll'), 'MessageBoxA'))+2; //这里+2是为了测试朱朱说的7字节热补丁，实际上api函数的mov edi,edi是没有意义的，这句代码占2个字节，故我们可以直接用push开始执行，所以这里+2，也可以不+2，因为getprocessaddress返回的是pointer类型，所以用integer转整数再+2
@MyMessage:=Pointer(apiaddr); //这里就将这个+2以后的地址转成pointer类型，加@是为了取MyMessage的实际地址，但是这里好像不加@也可以，但是为了保险还是加@
tiaoshi:=Integer(@MyMessage); //这里拿来做调试输出，可不用这句代码
MyMessage(0,'动态调用','动态调用',0); //这里我们声明的一个局部变量，他的类型是函数类型，所以这里这个局部变量就等于我们的函数了，所以直接调用，注意Delphi下，MessageBoxA的标题和内容参数是ansistring类型，如果我们定义的函数是string类型，那么就应该调用MessageBoxW，否则会乱码
end;
| 
发表于 2019-7-8 21:03
|
发表于 2019-7-16 20:54
