This routine wprks perfect in most computers but is giving me a weird error on a few computer.
Exception Access violation (0x000005) 0x100039c3
If I put a msgbox "Test" line it works fine.
Is there a way to at least simulate the msgbox without actually showing anything?
Thanks
Pedro Camargo
----------------
------------------
Pedro Camargo
Exception Access violation (0x000005) 0x100039c3
If I put a msgbox "Test" line it works fine.
Is there a way to at least simulate the msgbox without actually showing anything?
Thanks
Pedro Camargo
----------------
Code:
IdeNumber = 1 HW32=0 proc = LoadLibrary("TVicHW32.DLL") gethdid="Not Loaded" IF proc THEN funcaddr = GetProcAddress(proc, "OpenTVicHW32") IF funcaddr<> %NULL THEN 'msgbox "Text" CALL DWORD funcaddr USING OpenTVicHW32X(HW32,"TVICHW32", "TVicDevice0") TO HW32 END IF IF HW32<>0 THEN funcaddr = GetProcAddress(proc, "GetActiveHW") dummy=0 IF funcaddr<>0 THEN CALL DWORD funcaddr USING GetActiveHWX(HW32) TO dummy END IF IF dummy<>0 THEN funcaddr = GetProcAddress(proc, "GetHDDInfo") CALL DWORD funcaddr USING GetHDDInfoX(HW32, IdeNumber, Master, HddInfo) 'CALL GetHDDInfo(HW32, IdeNumber, Master, HddInfo) gethdid=UCASE$(TRIM$(HddInfo.Model)+"-"+TRIM$(HddInfo.SerialNumber)) IF TRIM$(HddInfo.SerialNumber)="" THEN gethdid="No Info" ' HW32 = CloseTVicHW32(HW32) funcaddr=GetProcAddress(proc, "CloseTVicHW32") IF funcaddr<>%NULL THEN CALL DWORD funcaddr USING CloseTVicHW32X(HW32) TO dummy END IF END IF END IF CALL FreeLibrary(proc) END IF
Pedro Camargo
Comment