Nabend,
ich bin in einem C Forum darauf gestoßen, das es soweit möglich sein soll, das sich eine Exe selbst löscht. Dies geschiet über Umwege...
Code:
Procedure SelfErase()
Protected File.i, Temp.s, File_.s
Temp = GetEnvironmentVariable("TEMP")
File_ = Temp+"\delete_programm.bat"
File = CreateFile(#PB_Any, File_)
WriteStringN(File, ":Repeat")
WriteStringN(File, "del "+Chr(34)+ProgramFilename()+Chr(34))
WriteStringN(File, "If exist "+Chr(34)+ProgramFilename()+Chr(34)+" Goto Repeat")
WriteStringN(File, "del "+Chr(34)+File_+Chr(34))
CloseFile(File)
RunProgram(File_, "", "", #PB_Program_Hide)
End
EndProcedure
SelfErase()
Alleridngs geht noch ein schwarzes CMD Fenster auf, welches ich mir nicht erklären kann und die Datei wird nicht gelöscht... Rufe ich die Batch von Hand auf, löscht dieses die Exe + die Batch.
Habt ihr eine Idee wo der Fehler liegt?
Lg und Dank,
pyromane