delphi7解决方法

2013-01-01

delphi7function NewWriteFile(hFile: THandleconst BuffernNumberOfBytesToWrite: DWORDvar lpNumberO

delphi7
function NewWriteFile(hFile: THandle;const Buffer;nNumberOfBytesToWrite: DWORD;
   var lpNumberOfBytesWritten: DWORD;lpOverlapped: POverlapped): BOOL;stdcall;
type
  TWriteFile=function(hFile: THandle;const Buffer;nNumberOfBytesToWrite: DWORD;
   var lpNumberOfBytesWritten: DWORD;lpOverlapped: POverlapped): BOOL;stdcall;
begin
   result:=TWriteFile(hook[1].OldFunction)(hFile,Buffer,nNumberOfBytesToWrite,lpNumberOfBytesWritten,lpOverlapped);
   if hFile=pShMem^.FileHandle then
      SaveForWriteFile(buffer,nNumberOfBytesToWrite);  //????  lpNumberOfBytesWritten);
end;

不用解释代码的意思，我就想问问这种定义结构有什么用处，谢谢
[解决办法]
从OldFunction取得原始WriteFile函数的地址，然后调用之！
当然你也可以不用定义TWriteFile类型，不过就要使用basm来调用原始WriteFile了。

热点排行

.NET

delphi7解决方法