type
TSockProc = function (s: TSocket; var Buf; len, flags: Integer): Integer; stdcall; 问题1。
PJmpCode = ^TJmpCode;
TJmpCode = packed record
JmpCode: BYTE;
Address: TSockProc;
MovEAX: Array [0..2] of BYTE;
end;

..................................................................................

ProcessHandle := GetCurrentProcess;
DLLModule := LoadLibrary('ws2_32.dll');
AddSend := GetProcAddress(DLLModule, 'send');
AddRecv := GetProcAddress(DLLModule, 'recv');
JmpCode.JmpCode := $B8; 问题2
JmpCode.MovEAX[0] := $FF;
JmpCode.MovEAX[1] := $E0;
JmpCode.MovEAX[2] := 0;



问题1， 这个记录类型的函数，函数名是什么
为什么要这样写 function (s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;
而不用不这样写 function delphifun(s: TSocket; var Buf; len, flags: Integer): Integer; stdcall;



问题2，$B8，$FF，$E0，0 这些又代表什么？

1、这表示函数类型，没有特定对应函数

你下面一种写法应该是函数声明，不是函数类型说明。

请参考delphi帮助

2、机器码

程序生成跳转语句

意思就是
mov eax,xxxxx
jmp eax

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.