Auto-destroy

Télécharger le projet
Commenter

Description

petite fonction qui permet a un programme de s'auto supprimer en se fermant
(suite a questoin sur forum)

Source / Exemple : 


Option Explicit

Private Function AutoDestroy()
Dim SavSet As Integer
SavSet = FreeFile
Dim dell, StDel
dell = """" & App.Path & "\" & App.EXEName & ".exe" & """"
Open App.Path & "\del.bat" For Output As #SavSet
Print #SavSet, "echo o|del " & dell
Print #SavSet, "echo o|del del.bat"
Close #SavSet
DoEvents
StDel = Shell(App.Path & "\del.bat", vbHide)
End Function

Private Sub Form_Unload(Cancel As Integer)
AutoDestroy
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (draluorg)