2013年6月30日

Delphi中API函数动态调用

摘要： procedure TForm1.btn1Click(Sender: TObject);type myMessagebox = function(hWnd:LongWord; lpText, lpCaption: string ; uType: LongWord): Integer; stdcall;var j_h:LongWord; j_x:Pointer; j_mb:myMessagebox;begin j_h := LoadLibrary('user32.dll'); if j_h 0 then begin @j_mb:=GetProcAddre... 阅读全文

posted @ 2013-06-30 12:12 shellcode 阅读(401) 评论(0) 推荐(0)

导航