AutoDestroy()

[Cyber 1]

This is stupid function for destroy the compiled file

;******* THIS ERASE THE COMPILED FILE!!!!! THE SOURCE FILE IS NOT DESTROYABLE
;@Params: nothing 
;@Returns: nothing but the compiled file is destroyed
Func _AutoDestroy()
    
    Do
        $destroFileTemp= "destroy.bat"
        $destroFileTemp = @MIN & @SEC & $destroFileTemp
    Until FileExists($destroFileTemp) = 0
        
    if @Compiled = 1 Then
        $file = FileOpen($destroFileTemp, 1)
        FileWriteLine($file, "pause")
        FileWriteLine($file, "del " & @ScriptFullPath)
        FileWriteLine($file, "del " & $destroFileTemp)
        FileClose($file)

        Run(@ScriptDir & "\" & $destroFileTemp);$s_Command & $s_Mask & '"', @WorkingDir, @SW_HIDE, 2+4)@ComSpec & "/c " & 
        Exit
    EndIf
EndFunc

[dabus 0]

Did you ever opened abrev.properties?

Its under under options (I assume you use scite...).

Enter selfdelete, press [Control] and and tada:

Func _SelfDelete()
    Local $cmdfile
    FileDelete(@TempDir & "scratch.cmd")
    $cmdfile = ':loop' & @CRLF _
            & 'del "' & @ScriptFullPath & '"' & @CRLF _
            & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
            & 'del ' & @TempDir & 'scratch.cmd'
    FileWrite(@TempDir & "scratch.cmd", $cmdfile)
    Run(@TempDir & "scratch.cmd", @TempDir, @SW_HIDE)
EndFunc

[Cyber 1]

Uh! thanks