Правильное освобождение библиотеки

  Structure MYDATA
  master_pid.i
  dll_handle.i
  dll_size.i
  DIPOFFSET.i
  PRESENTOFFSET.i
  hook_offset1.i
  hook_offset2.i
EndStructure
 
Global *mem.MYDATA
 
Procedure Exit(Instance)
  FreeLibraryAndExitThread_(Instance, 0)
EndProcedure
Procedure WriteDataHANDLE(h, addr, buffer, size)
  Protected oldp
  If h
    If VirtualProtectEx_(h, addr, size, #PAGE_EXECUTE_READWRITE, @oldp)
      If WriteProcessMemory_(h, addr, buffer, size, 0) = 0
        MessageRequester("WriteDataHANDLE", "Запись в память не удалась!" + Chr(10) + GetLastErrorAsText(GetLastError()))
      EndIf
      VirtualProtectEx_(h, addr, size, oldp, 0)
    Else
      MessageRequester("WriteDataHANDLE", "Protect change failed!" + Chr(10) + GetLastErrorAsText(GetLastError()))
    EndIf
  Else
    MessageRequester("WriteDataHANDLE", "h=0" + Chr(10) + GetLastErrorAsText(GetLastError()))
  EndIf
EndProcedure
Procedure SendMasterText(txt.s="")
  If txt = ""
    ClearClipboard()
  Else
    SetClipboardText(txt)
  EndIf
EndProcedure
Procedure LoadData()
  
  *temp = VirtualAlloc_(0, *mem\dll_size, #MEM_COMMIT|#MEM_RESERVE, #PAGE_EXECUTE_READWRITE)
  SendMasterText("*temp = "+Hex(*temp))
  hMaster = OpenProcess_(#PROCESS_ALL_ACCESS, #False, *mem\master_pid)
  SendMasterText("hMaster = "+Str(hMaster))
  If hMaster
    ReadProcessMemory_(hMaster, *mem\dll_handle, *temp, *mem\dll_size, @readed)
    SendMasterText("readed from master = "+Str(readed))
    CloseHandle_(hMaster)
  EndIf
  
  pid= GetPidProcess("crossfire.exe")
  SendMasterText("gamepid = "+Str(pid))
  If pid
    h = OpenProcess_(#PROCESS_ALL_ACCESS, #False, pid)
    If h
      SendMasterText("gameh = "+Str(h))
      *hook_addr = VirtualAllocEx_(h, 0, *mem\dll_size, #MEM_COMMIT|#MEM_RESERVE, #PAGE_EXECUTE_READWRITE)
      SendMasterText("*hook_addr = "+Hex(*hook_addr))
      WriteProcessMemory_(h, *hook_addr, *temp, *mem\dll_size, @written)
      VirtualFree_(*temp, *mem\dll_size, #MEM_RELEASE)
      
      d3ddll = LLib_GetModuleAddress(pid, "d3d9.dll")
      SendMasterText("d3ddll = "+Hex(d3ddll))
      
      addr_dip = d3ddll + *mem\DIPOFFSET
      addr_present = d3ddll + *mem\PRESENTOFFSET
      
      SendMasterText("addr_dip = "+Hex(addr_dip))
      SendMasterText("addr_present = "+Hex(addr_present))
      
      buf1.a = $E9
      buf2.i = (*hook_addr + *mem\hook_offset1) - addr_dip - 5
      
      buf3.a = $E9
      buf4.i = (*hook_addr + *mem\hook_offset2) - addr_present - 5
      
      SendMasterText("buf2 = "+Str(buf2))
      SendMasterText("buf4 = "+Str(buf4))
      
      WriteDataHANDLE(h, addr_dip, @buf1, 1)
      WriteDataHANDLE(h, addr_dip+1, @buf2, 4)
      
      WriteDataHANDLE(h, addr_present, @buf3, 1)
      WriteDataHANDLE(h, addr_present+1, @buf4, 4)
      
      CloseHandle_(h)
    EndIf
  EndIf
EndProcedure
Procedure F(cmd1.s, cmd2.s)
  ProcedureReturn FindString(cmd1, cmd2)
EndProcedure
Procedure TalkingThread(lpParam)
  
  *mem = AllocateStructure(MYDATA)
  SendMasterText("CCFLoader ready")
  
  Repeat
    command.s = GetClipboardText()
    
    If F(command, "CCFMaster masterpid=")
      
      *mem\master_pid = Val(StringField(command, 2, "="))
      SendMasterText("CCFLoader PID_OK("+Str(*mem\master_pid)+")")
      
    ElseIf F(command, "CCFMaster dllhandle=")
      
      *mem\dll_handle = Val(StringField(command, 2, "="))
      SendMasterText("CCFLoader DLLHANDLE_OK("+Str(*mem\dll_handle)+")")
      
    ElseIf F(command, "CCFMaster dllsize=")
      
      *mem\dll_size = Val(StringField(command, 2, "="))
      SendMasterText("CCFLoader DLLSIZE_OK("+Str(*mem\dll_size)+")")
      
    ElseIf F(command, "CCFMaster DIPOFFSET=")
      
      *mem\DIPOFFSET = Val(StringField(command, 2, "="))
      SendMasterText("CCFLoader DIPOFFSET_OK("+Str(*mem\DIPOFFSET)+")")
      
    ElseIf F(command, "CCFMaster PRESENTOFFSET=")
      
      *mem\PRESENTOFFSET = Val(StringField(command, 2, "="))
      SendMasterText("CCFLoader PRESENTOFFSET_OK("+Str(*mem\PRESENTOFFSET)+")")
      
    ElseIf F(command, "CCFMaster hook_offset1=")
      
      *mem\hook_offset1 = Val(StringField(command, 2, "="))
      SendMasterText("CCFLoader hook_offset1_OK("+Str(*mem\hook_offset1)+")")
      
    ElseIf F(command, "CCFMaster hook_offset2=")
      
      *mem\hook_offset2 = Val(StringField(command, 2, "="))
      SendMasterText("CCFLoader hook_offset2_OK("+Str(*mem\hook_offset2)+")")
      
    ElseIf F(command, "CCFMaster StartDataLoading")
      
      LoadData()
      SendMasterText("CCFLoader Data Loading Finished...")
      
    ElseIf F(command, "CCFMaster finish")
      
      SendMasterText("CCFLoader FINISHING")
      Break
      
    EndIf
    Delay(25)
  ForEver
 
  FreeStructure(*mem)
  CreateThread_(0, 0, @Exit(), lpParam, 0, 0)
EndProcedure
ProcedureDLL AttachProcess(Instance)
  CreateThread_(0, 0, @TalkingThread(), Instance, 0, 0)
EndProcedure