Code: Alles auswählen
Deletefile("test.exe")
end
Code: Alles auswählen
Deletefile("test.exe")
end
Code: Alles auswählen
; Delete running app, by PB. Works under all versions of Windows.
comspec$=Space(255) : GetEnvironmentVariable_("comspec",comspec$,255)
d$=Space(255) : GetCurrentDirectory_(255,d$) : If Right(d$,1)<>"\" : d$+"\" : EndIf
tmp$=Space(255) : GetModuleFileName_(0,tmp$,255) : n$=GetFilePart(tmp$)
RunProgram(comspec$,"/c del "+Chr(34)+d$+n$+Chr(34),"",2)