Can an AU3 compiled EXE-file delete itself?

[rudika]

Moin, moin...!

Is there a possibility that a compiled EXE-file deletes itself after its execution?

I would like to write an uninstallation routine for a program, which does not leave any remainders on the harddisk, therefore the Uninstall.exe must delete itself and the including directory. Is that possible?

Thank you for help.

Greets Rudika

[Jos]

Moin, moin...!

Is there a possibility that a compiled EXE-file deletes itself after its execution?

I would like to write an uninstallation routine for a program, which does not leave any remainders on the harddisk, therefore the Uninstall.exe must delete itself and the including directory. Is that possible?

Thank you for help.

Greets Rudika

posted a long time ago by ?? and is part of the abbrevs in SciTE:

Func _SelfDelete($iDelay = 0)
    Local $sCmdFile
    FileDelete(@TempDir & "\scratch.bat")
    $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _
            & ':loop' & @CRLF _
            & 'del "' & @ScriptFullPath & '"' & @CRLF _
            & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
            & 'del ' & @TempDir & '\scratch.bat'
    FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
    Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
EndFunc

[cppman]

posted a long time ago by ?? and is part of the abbrevs in SciTE:

Func _SelfDelete($iDelay = 0)
    Local $sCmdFile
    FileDelete(@TempDir & "\scratch.bat")
    $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _
            & ':loop' & @CRLF _
            & 'del "' & @ScriptFullPath & '"' & @CRLF _
            & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
            & 'del ' & @TempDir & '\scratch.bat'
    FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
    Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
EndFunc

~Works fine for me

I guess this answers your question rudika. lol.

Edited October 7, 2006 by CHRIS95219

[Jos]

All That? Why not just do this?

Func DeleteSelf()
    RUn(@ComSpec & " /k del " & FileGetShortName(@ScriptFullPath), @ScriptDir, @SW_HIDE)
EndFunc

~Works fine for me

I guess this answers your question rudika. lol.

Did you try a compiled version ?

Don't think you can DEL a running program..

[cppman]

Yeah, i did it with both compiled and uncompiled. It works just fine. Have you tried it?

Edited October 7, 2006 by CHRIS95219

[Xenobiologist]

Hi,

your version doesn't work. That is why there is the selfdelete func.

Try this: <-- will not work.

HotKeySet("1", "end")

while 1
    Sleep(1000)
WEnd

Func end()
    MsgBox(0,"","SelfDelete")
    Run(@ComSpec & " /k del " & FileGetShortName(@ScriptFullPath), @ScriptDir, @SW_HIDE)
EndFunc   ;==>end

So long,

Mega

[cppman]

hmm.. I dont understand.. It works just fine for me lol.

I sat here and watched it dissappear off my desktop

---oh well.

Edited October 7, 2006 by CHRIS95219

[Jos]

Yeah, i did it with both compiled and uncompiled. It works just fine. Have you tried it?

This seems to work pretty good....

But any time the programs takes too long to close down , it will not be deleted...

sleep(50)
Func OnExitFunc()
    
RUn(@ComSpec & " /k del " & FileGetShortName(@ScriptFullPath), @ScriptDir, @SW_HIDE)
EndFunc

Edited October 7, 2006 by JdeB

[Jon]

Depends on the speed of your machine. Run() starts...and there is a chance that script will exit before the Run() command actually gets to work. If so it will work. For most people it won't.

[cppman]

ah.. kk, i was just now thinking that.

Thx.

[rudika]

Depends on the speed of your machine. Run() starts...and there is a chance that script will exit before the Run() command actually gets to work. If so it will work. For most people it won't.

I´ll thank you everybody.

Correctly, Jon...

I have both tested variants, however only the suggestion of JdeB is practicable, but I have still modified somewhat, so that it delete the whole directory.

But I don´t really understand the ping...

Func _SelfDelete($iDelay = 0)
    Local $sCmdFile
    FileDelete(@TempDir & "\scratch.bat")
    $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _
            & ':loop' & @CRLF _
            & 'rd /s /q "' & @ScriptDir & '"' & @CRLF _
            & 'if exist "' & @ScriptDir & '" goto loop' & @CRLF _
            & 'del ' & @TempDir & '\scratch.bat'
    FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
    Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
EndFunc

So it works like I wanted.

Greets Rudika

Edited October 7, 2006 by rudika

[cppman]

I´ll thank you everybody.

Correctly, Jon...

I have both tested variants, however only the suggestion of JdeB is practicable, but I have still modified somewhat, so that it delete the whole directory.

But I don´t really understand the ping...

Func _SelfDelete($iDelay = 0)
    Local $sCmdFile
    FileDelete(@TempDir & "\scratch.bat")
    $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _
            & ':loop' & @CRLF _
            & 'rd /s /q "' & @ScriptDir & '"' & @CRLF _
            & 'if exist "' & @ScriptDir & '" goto loop' & @CRLF _
            & 'del ' & @TempDir & '\scratch.bat'
    FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
    Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
EndFunc

So it works like I wanted.

Greets Rudika

The ping is to keep the program running. That way your program closes before the command "del" is ever executed.

[Zedna]

But I don´t really understand the ping...

It's workaround for missing Sleep() in DOS batch files

Batch file file start deleting/testing successfull delete/loop after some timeout