delphi动态调用WriteProcessMemory

Question

delphi7动态调用kernel32.dll的WriteProcessMemory函数应该怎么写?我知道delphi7有封装 - -,我只是想要个例子WriteProcessMemory(hws,Pointer($00741C48),@fly1,4,null)例如上面那个代码用动态调用要怎么写?就是LoadLibrary加载了DLL GetProcAddress使用函数

Answer 1

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;