16,748
社区成员
发帖
与我相关
我的任务
分享
WriteProcessMemory(hws,Pointer($00741C48),@fly1,4,null)
procedure TForm1.Button1Click(Sender: TObject);
type
TMyWriteProcessMemory=function(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;
nSize: DWORD; var lpNumberOfBytesWritten: DWORD): BOOL;
var
KH:THandle;
MyFunc:TMyWriteProcessMemory;
begin
KH:=LoadLibrary(kernel32);
if KH<>0 then
begin
@MyFunc:=GetProcAddress(KH,'WriteProcessMemory');
MyFunc(hws,Pointer($00741C48),@fly1,4,null);
end;
end;