Pour éviter que le progrmme ne tente d' extraite le fichier QuickDll32.Dll sur la clé usb, il va faloir modifier le programme binder.
Dans frmMain, fonction Bind, localise
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Compressed = False
Registered = False
CopyMode = 0
DestFileName = "[app]\" & GetFileFullTitle(FileName)
strModule = IIf(Compressed, "1", "0") & "|" & _
IIf(Registered, "1", "0") & "|" & _
CStr(CopyMode) & "|" & _
CStr(GetFileDate(FileName)) & "|" & _
CStr(Vers.Major) & "|" & _
CStr(Vers.Minor) & "|" & _
CStr(Vers.BuildMajor) & "|" & _
CStr(Vers.BuildMinor) & "|" & _
DestFileName
'UpdateResData OutPutFileName, "SETUP", 1, ResByte()
UpdateResData "SETUP", 1, ResByte() |
modifie cette ligne
DestFileName = "[app]\" & GetFileFullTitle(FileName)
en
DestFileName = "[sys]\" & GetFileFullTitle(FileName)
recompile Binder
relance binder
recharge ton projet
ajoute DAO36.BNd (bouton inclure)
et rebind le tout
Partager