PureBasic

Code : Tout sélectionner

;###############################################################################
;# Patcheur pour les sims sous Windows XP par Heis Spiter                    #                                      #
;###############################################################################
Enumeration
  #ac3audio
  #iviaudio
EndEnumeration
OS = OSVersion() 
If OS <> #PB_OS_Windows_XP
  MessageRequester("Erreur", "Ce programme n'est fait que pour fonctionner sous Windows XP !", #MB_ICONERROR)
  End
EndIf  
System32$ = GetSysPath()
System32$ = System32$ + "\"
If ReadFile(#ac3audio, System32$ + "ac3audio.ax")
  CloseFile(#ac3audio)
  If RenameFile(System32$ + "ac3audio.ax", System32$ + "ac3audio.ax.bak")
    MessageRequester("Information", "Les Sims(tm) peux maintenant fonctionner sur votre ordinateur !", #MB_ICONINFORMATION)
  Else
    MessageRequester("Erreur", "Impossible de patcher 'ac3audio.ax'", #MB_ICONERROR)
    End
  EndIf
ElseIf ReadFile(#iviaudio, System32$ + "iviaudio.ax")
  CloseFile(#iviaudio)
  If RenameFile(System32$ + "iviaudio.ax", System32$ + "iviaudio.ax.bak")
    MessageRequester("Information", "Les Sims(tm) peux maintenant fonctionner sur votre ordinateur !", #MB_ICONINFORMATION)
  Else
    MessageRequester("Erreur", "Impossible de patcher 'iviaudio.ax'", #MB_ICONERROR)
    End
  EndIf
Else
  MessageRequester("Erreur", "Impossible de patcher votre version de DirectX ! Vérifiez qu'elle n'est pas déjà été patchée ou que votre version de DirectX est supérieur à la 7.", #MB_ICONERROR)
  End
EndIf
Reponse = MessageRequester("Question", "Désirez vous lancer Les Sims(tm) ?", #MB_ICONQUESTION)
If Reponse = #IdNo
  End
ElseIf Reponse = #IdYes
  Path$ = ReadStringfromRegistry(#HKEY_LOCAL_MACHINE,"SOFTWARE\Maxis\The Sims","SIMS_MUSIC")
  If RunProgram(Path$ + "Start.exe")
    End
  Else
    MessageRequester("Erreur", "Impossible de lancer Les Sims(tm) ! Assurez-vous d'avoir inseré votre CD dans le lecteur.", #MB_ICONERROR)
    End
  EndIf
EndIf