Hallo Zusammen,
ich habe in den tiefsten Archiven diese Funktion die das bei der .Exe die Selbstzerstörung auslösen soll. Naja alles wird gelöscht außer der Exe die alles löscht. Sieht jemand einen Fehler?
Spoiler anzeigen
sleep(3000)
if not Fileexists(@StartMenuDir&"\Uninstall.exe") Then
FileCopy(@ScriptDir&"\Uninstall.exe", @StartMenuDir&"\Uninstall.exe")
ShellExecute(@StartMenuDir&"\Uninstall.exe")
Exit
Else
DirRemove("C:\Programme\Designwechsler 2008", 1)
DirRemove(@ProgramsDir&"\Designwechsler 2008", 1)
sleep(3000)
_SelfDelete(10)
EndIf
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