ResExist.ahk

ResExist(dll,name,type:=10,lang:=""){
static TH32CS_SNAPMODULE,MODULEENTRY32,me32,fullpath
if !TH32CS_SNAPMODULE
  TH32CS_SNAPMODULE:=0x00000008,MODULEENTRY32:="DWORD dwSize;DWORD th32ModuleID;DWORD th32ProcessID;DWORD GlblcntUsage;DWORD ProccntUsage;BYTE *modBaseAddr;DWORD modBaseSize;HMODULE hModule;TCHAR szModule[256];TCHAR szExePath[260]",me32 := Struct(MODULEENTRY32,{dwSize:sizeof(MODULEENTRY32)}),VarSetCapacity(fullpath,520)
GetFullPathName(dll,260,fullpath),VarSetCapacity(fullpath,-1)
If (hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,GetCurrentProcessId())) && Module32First(hSnap,me32[])
  while (A_Index=1 || Module32Next(hSnap,me32[]))
    if StrGet(me32.szExePath[""])=dll && hModule:= me32.modBaseAddr["",""]
      break
if hSnap
  CloseHandle(hSnap)
if !hModule && !hModule:=LoadLibrary(fullpath)
  return 0
hResource:=lang=""?DllCall("FindResourceW","PTR",hModule,name+0=""?"Str":"PTR",name,type+0=""?"Str":"PTR",type,"PTR"):DllCall("FindResourceExW","PTR",hModule,name+0=""?"Str":"PTR",name,type+0=""?"Str":"PTR",type,"Uint",lang,"PTR")
if (hModule != me32.modBaseAddr["",""]),FreeLibrary(hModule)
return !!hResource
}