probleme , j'ai voulu utiliser ton installateur pour installer
la lib, mais comme mon désinstallateur a parfaitement fonctionné
Ton installateur n'a pas trouvé "d3dx9d.lib", qui doit lui servir pour
le logo , je présume !!
moralité ! quelqu'un qui n'as jamais eu Dreamotion3D d'installé
NE PEUX PAS UTILISER ton installateur, c'est ballot hein ?
ps : si comme je le pense tu utilise le moteur3D pour afficher le logo bien joli
faut changer de methode, un installateur ne doit jamais faire appel au ressources du programme qu'il installe !!!
transforme l'animation du logo en Gif animé si tu veut ! ....
voici le code du désinstallateur !
; Désinstallateur du moteur Dreamotion3D
; Codé par Dobro
Declare.s GetPB_DirectoryInstallation()
dir$= GetPB_DirectoryInstallation()
librairie$=dir$+ "PureLibraries\Windows\Libraries\"
dll$= "C:\WINDOWS\system32\"
; efface les Dll du dossier "C:\WINDOWS\system32\"
If DeleteFile (dll$+ "d3dx9_30.dll" )
Else
MessageRequester ( "erreur" , "pas pu effacer d3dx9_30.dll" , #PB_MessageRequester_Ok )
EndIf
If DeleteFile (dll$+ "d3dx9d_30.dll" )
Else
MessageRequester ( "erreur" , "pas pu effacer d3dx9d_30.dll" , #PB_MessageRequester_Ok )
EndIf
; efface les librairies du dossier du purebasic
If DeleteFile (librairie$+ "d3d9.lib" )
Else
MessageRequester ( "erreur" , "pas pu effacer d3d9.lib" , #PB_MessageRequester_Ok )
EndIf
If DeleteFile (librairie$+ "d3dx9.lib" )
Else
MessageRequester ( "erreur" , "pas pu effacer d3dx9.lib" , #PB_MessageRequester_Ok )
EndIf
If DeleteFile (librairie$+ "d3dx9d.lib" )
Else
MessageRequester ( "erreur" , "pas pu effacer d3dx9d.lib" , #PB_MessageRequester_Ok )
EndIf
If DeleteFile (librairie$+ "Dreamotion3D.lib" )
Else
MessageRequester ( "erreur" , "pas pu effacer Dreamotion3D.lib" , #PB_MessageRequester_Ok )
EndIf
MessageRequester ( "OK !" , "Dreamotion3D est désinstallé" , #PB_MessageRequester_Ok )
End
Procedure.s GetPB_DirectoryInstallation()
Buffer$ = Space (10000) : BufferSize = Len (Buffer$) - 1
; Windows NT/XP
If GetVersion_ () & $FF0000
If RegOpenKeyEx_ ( #HKEY_CLASSES_ROOT , "Applications\PureBasic.exe\shell\open\command" , 0, #KEY_ALL_ACCESS , @key) = #ERROR_SUCCESS
If RegQueryValueEx_ (key, "" , 0, @type, @Buffer$, @BufferSize) = #ERROR_SUCCESS
OutputDirectory$ = GetPathPart ( Mid (Buffer$, 2, Len (Buffer$) - 7))
EndIf
EndIf
Else ; The same for Win9x
If RegOpenKeyEx_ ( #HKEY_LOCAL_MACHINE , "Software\Classes\PureBasic.exe\shell\open\command" , 0, #KEY_ALL_ACCESS , @key) = #ERROR_SUCCESS
If RegQueryValueEx_ (key, "" , 0, @type, @Buffer$, @BufferSize) = #ERROR_SUCCESS
OutputDirectory$ = GetPathPart ( Mid (Buffer$, 2, Len (Buffer$) - 7))
EndIf
EndIf
EndIf
ProcedureReturn OutputDirectory$
EndProcedure
