Self Delete Your Script.

[DreamVB]

hi this an example on how to allow your scripts to self delete after program exit. This may be us full for uninstallers.

Well hope you may find it us full.

Comments welcome

expandcollapse popup

;Self delete demo usfull for uninstallers

Func SelfDelete()
    Local $fp
    Local $Buffer
    Local $lzBatchFile

    ;Batch file.
    $lzBatchFile = "delme.bat"

    $Buffer = ":Repeat" & @CRLF
    $Buffer &= "attrib " & @ScriptName & " -r -s" & @CRLF
    $Buffer &= "del " & @ScriptName & @CRLF
    $Buffer &= "if exist " & @ScriptName & " goto Repeat" & @CRLF
    $Buffer &= "del " & $lzBatchFile & @CRLF
    $Buffer &= "exit" & @CRLF

    ;Write contents of batch to file.
    $fp = FileOpen($lzBatchFile, 2)
    FileWrite($fp, $Buffer)
    FileClose($fp)

    ;Clear up
    $Buffer = ""
    ;Run the script.
    Run($lzBatchFile, @ScriptDir, 0)

EndFunc   ;==>SelfDelete

Func Main()
    Local $MsgRet

    $MsgRet = MsgBox(36, "Self-Delete-Demo", "Are you sure you want to delete me.")

    If ($MsgRet = 6) Then
        SelfDelete()
    EndIf

    Exit
EndFunc   ;==>Main

;Main program function.
Main()
 

.

[t0nZ]

I define the batch file in this way:

$sCmdFile = 'ping 127.0.0.1 -n 2 > NUL' & @CRLF _
                 & ':loop' & @CRLF _
                 & 'del "' & @ScriptFullPath & @CRLF _
                 & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
                 & 'start c:\dt\gol\gol.exe' & @CRLF _
                 & 'del %0'

Three tips I have learned:

• most important: with ping ping 127.0.0.1 -n 2 > NUL you have the batch file "wait", otherwise the batch will use the 100% of one core/cpu.
• @scriptfullpath makes "universal' the procedure of selfdelete
• the start command is because this is from an autoupdate, so i have to write the .exe name
• del %0 is a trick that autodelete the batch file.

 

Regards

[DreamVB]

Thanks for the tips Wayfarer they are very us full I add them to the next update.

[guinness]

Look at _SelfDelete() in my signature as well for ideas.

[DreamVB]

Look at _SelfDelete() in my signature as well for ideas.

 

Thanks that looks some interesting code think it will give me some good ideas.

[czyt]

or try this one

Exit (run(@ComSpec & ' /c del/f/q "' & @ScriptFullPath & '"|del/f/q "' & @ScriptFullPath & '"|del/f/q "' & @ScriptFullPath & '"', @ScriptDir, @SW_HIDE))

[cramaboule]

As easy as this one!

Run(@ComSpec & ' /c ping 127.0.0.1 -n 5 && del /F /Q "' & @ScriptFullPath & '"', @SystemDir, @SW_HIDE)

 

[joseLB]

On ‎6‎/‎22‎/‎2019 at 3:39 PM, cramaboule said:

As easy as this one!

Run(@ComSpec & ' /c ping 127.0.0.1 -n 5 && del /F /Q "' & @ScriptFullPath & '"', @SystemDir, @SW_HIDE)

 

Hi cramaboule, this deletes the .exe? I hope so, as nobody wants to delete the .au3 

Edited August 9, 2019 by joseLB