force unload injected module in Autoit

[flashcoder]

I have a code example in Delphi and I want "translate" this code to Autoit. Someone can help me please?

Here is Delphi code:

procedure ForceRemove(const ModuleName: string);
var
  hMod: HMODULE;
begin
  hMod := GetModuleHandle(PChar(ModuleName));
  if hMod=0 then 
    exit;
  repeat
  until not FreeLibrary(hMod);
end;

Usage:

ForceRemove('anydll.dll');

 

[Danyfirex]

Hello. 

#include <WinAPI.au3>


_ForceRemove("anydll.dll")

Func _ForceRemove($sModuleName)
Local $hModule=_winapi_GetModuleHandle($sModuleName)
If Not $hModule then Return
Do
    ;Some sleep if is needed
Until   _winapi_FreeLibrary($hModule)=True
EndFunc

Saludos

[flashcoder]

Hello. 

#include <WinAPI.au3>


_ForceRemove("anydll.dll")

Func _ForceRemove($sModuleName)
Local $hModule=_winapi_GetModuleHandle($sModuleName)
If Not $hModule then Return
Do
    ;Some sleep if is needed
Until   _winapi_FreeLibrary($hModule)=True
EndFunc

Saludos

Thank you very much friend!