Sandbox

Function GetTheFuckingModuleName :boolean;
var
processID :Cardinal;
hMods: array of Integer;
cbNeeded: DWORD;
hProcess:cardinal;
i,Count:integer;
szModName: array[0..MAX_PATH- 1] of char;
begin
Result := false;
processID := GetCurrentProcessId ;
hProcess:= OPenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, false, processID );


     SetLength(hMods, Count);
     if( EnumProcessModules(hProcess, @hMods[0], 4* Count, cbNeeded))then
    begin          
      for i:= 0 to (cbNeeded div sizeof(HMODULE))- 1 do
      begin
            GetModuleFileNameExA(hProcess, hMods[i], szModName, SizeOf(szModName));

            If PoS(&#29SbieDll.dll&#29,szModName) <> 0
            then begin
         Result := true;
         Exit;
         end;
       end;
  end
end;