1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

function RemoteFreeLibrary(PID: Cardinal; DLL:PChar):Boolean;
var
  lib:Cardinal;
  BytesWritten, hProcess, hThread, TID: Cardinal;
  params: pointer;

begin
  Result := False;

  lib := GetDllHandle(PID, DLL); // <- nicht das Problem =)
  if lib = 0 then
    Exit;
  try
    hProcess := OpenProcess(PROCESS_ALL_ACCESS,
      False,  PID);
    if hProcess = INVALID_HANDLE_VALUE then
      Exit;

    try
      params := VirtualAllocEx(hProcess, nil, 4,
        MEM_COMMIT or MEM_RESERVE, PAGE_READWRITE);

      if params = nil then
        Exit;

      WriteProcessMemory(hProcess,params,@lib, 4,BytesWritten);

      if BytesWritten <= 0 then
        Exit;

      hThread := CreateRemoteThread(hProcess,
        nil, 0,
        GetProcAddress(GetModuleHandle('kernel32.dll'), 'FreeLibrary'),
        params,
        0, TID);

      //WaitForSingleObject(hThread, INFINITE);  //

      if hThread <> INVALID_HANDLE_VALUE then
        Result := True;
    finally
      CloseHandle(hProcess);
    end;
  except
    //
  end;
end;                    

1:
2:
3:
4:
5:

// Thread
function MeinThread(Param: integer): integer; stdcall;

// FreeLibrary
function FreeLibrary(DllHandle: DWord): Bool; stdcall;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:

function RemoteGetModuleHandle(PID: Cardinal; DLL: PChar): Cardinal;
var
  ModuleList: THandle;
  ModuleInfo : tagMODULEENTRY32;
label
  go;
begin
  Result := 0;

  ModuleList := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PID);
  if ModuleList = INVALID_HANDLE_VALUE then
    Exit;
  try
    ModuleInfo.dwSize:=Sizeof(tagMODULEENTRY32);

    if Module32First(ModuleList, ModuleInfo) then
    begin
      go:
      if LowerCase(ModuleInfo.szModule) = LowerCase(DLL) then
      begin
        Result := ModuleInfo.hModule;
        Exit;
      end;

      if Module32Next(ModuleList, ModuleInfo) then
        goto go;
    end;
  finally
    CloseHandle(ModuleList);
  end;
end;


function RemoteFreeLibrary(PID: Cardinal; DLL:PChar):Boolean;
var
  lib:Cardinal;
  BytesWritten, hProcess, hThread, TID: Cardinal;
  params: pointer;

begin
  Result := False;

  lib := RemoteGetModuleHandle(PID, DLL);
  if lib = 0 then
    Exit;
  try
    hProcess := OpenProcess(PROCESS_ALL_ACCESS,
      False,  PID);
    if hProcess = INVALID_HANDLE_VALUE then
      Exit;

    try
      hThread := CreateRemoteThread(hProcess,
        nil, 0,
        GetProcAddress(GetModuleHandle('kernel32.dll'), 'FreeLibrary'),
        @lib,
        0, TID);

      if hThread <> INVALID_HANDLE_VALUE then
        Result := True;
    finally
      CloseHandle(hProcess);
    end;
  except
    //
  end;
end;

end.                    

1:
2:
3:
4:
5:

      hThread := CreateRemoteThread(hProcess,
        nil, 0,
        GetProcAddress(GetModuleHandle('kernel32.dll'), 'FreeLibrary'),
        ptr(lib),
        0, TID);