如此共享内存怎么不行呢???(20分)

wp231957 · 2006-11-16

loadlibrary('hookapi.dll');  hMapObj := OpenFileMapping(FILE_MAP_WRITE,{获取完全访问映射文件}                             False,{不可继承的}                             LPCTSTR(MappingFileName));{映射文件名字}  if hMapObj = 0 then  begin    ShowMessage('不能定位内存映射文件块!');    Halt;  end;  pShMem := MapViewOfFile(hMapObj,FILE_MAP_WRITE,0,0,0);  if pShMem = nil then  begin    ShowMessage('映射文件错误'+ IntToStr(GetLastError));    CloseHandle(hMapObj);    Halt;  end;  FillChar(pShMem^, SizeOf(TShareMem), 0);  pShMem^.hProcWnd := Self.Handle;  fWndClosed:=false; procedure TForm1.Button6Click(Sender: TObject); begin  showmessage(inttostr(pshmem^.ftimerid ));  //这里总是0  我已经在DLL中为其赋值为1 end; //以下为DLL代码: initialization    hMappingFile := OpenFileMapping(FILE_MAP_WRITE,False,MappingFileName);    if hMappingFile=0 then    begin      hMappingFile := CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(TShareMem),MappingFileName);      FirstProcess:=true; {这是第一个进程，即主程序}    end  else FirstProcess:=false;    if hMappingFile=0 then Exception.Create('不能建立共享内存!');    pShMem :=  MapViewOfFile(hMappingFile,FILE_MAP_WRITE or FILE_MAP_READ,0,0,0);    if pShMem = nil then    begin      CloseHandle(hMappingFile);      Exception.Create('不能映射共享内存!');   end;   if FirstProcess then   begin     pShMem^.bCanSpyNow:=false;   end;   pshmem^.ftimerid:=1;   //这里已经赋值了,为什么在主程序中始终为0呢 finalization  UnMapViewOfFile(pShMem); {取消映射视图}  CloseHandle(hMappingFile); {关闭映射文件句柄}

liyong0775 · 2006-11-16

wp231957 · 2006-11-17

顶一下

zhukewen · 2006-11-17

//以下为DLL代码: initialization  ShowMessage('Initialize ok');//加上这一行    hMappingFile := OpenFileMapping(FILE_MAP_WRITE,False,MappingFileName); 这样如果是正确初始化了，会有显示窗口的，我怀疑是没有执行初始化部分

如此共享内存怎么不行呢???(20分)

wp231957

Unregistered / Unconfirmed

liyong0775

Unregistered / Unconfirmed

wp231957

Unregistered / Unconfirmed

zhukewen

Unregistered / Unconfirmed

Similar threads