Selv Destruktion

Normalt kan en EXE ikke slette sig selv, fordi den er i brug mens den kører
og man kan ikke slette en fil der er i brug.

Hvis du kan starte et andet program i en seperat process som sletter den
første fil efter programmet er afsluttet, så kan det gøres.

også det jeg tænkte, med at den er i brug :(
Men ved du evt. hvordan man kan lave det forslag du kommer med???

Der findes en kommando til at slette et program næste gang windows bliver genstartet... Skal lige se om jeg kan finde den.

Jo, mindsanten...
Prøv at læse den her:
http://www.thescarms.com/vbasic/FilesInUse.asp

Koden du skal bruge:

Dim sSourceFile As String

sSourceFile = app.path & "\Programnavn.exe"
MoveFileEx(sSourceFile, vbNull, MOVEFILE_DELAY_UNTIL_REBOOT)

'-------------------------------------------- Form1 --------------------------------------------
' Husk Command1
Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                        ByVal hwnd As Long, ByVal lpOperation As String, _
                        ByVal lpFile As String, ByVal lpParameters As String, _
                        ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Sub Destruktion()
Dim intFree    As Integer
Dim strScript  As String
Dim strVbsFile As String
Dim strExeFile As String

  strVbsFile = App.Path & "\sletexe.vbs"
  strExeFile = App.Path & "\" & App.EXEName & ".exe"

  strScript = "On Error Resume Next" & vbCrLf & _
              "Set fso = CreateObject(""Scripting.FileSystemObject"")" & vbCrLf & _
              "Do While fso.FileExists(""" & strExeFile & """)" & vbCrLf & _
              "fso.DeleteFile """ & strExeFile & """" & vbCrLf & "Loop" & vbCrLf & _
              "fso.DeleteFile """ & strVbsFile & """"

  intFree = FreeFile
  Open strVbsFile For Binary Access Write As #intFree
    Put #intFree, 1, strScript
  Close #intFree

  ShellExecute Me.hwnd, "open", strVbsFile, vbNullString, vbNullString, 1

  End
End Sub

Private Sub Command1_Click()
  Call Destruktion
End Sub
'-------------------------------------------- Form1 --------------------------------------------

Hejsa.. Undskylder lige den LANGE ventetid.. Håber i klarer den ;)
Jeg har testet begge "forsøg", og de må siges at virke :)
Men da det er sjh's eksembel som virker bedst, får han lige flest point.. Håber det er i orden cronck ;)

/Bio

Jo, tak... Men du havde ikke behøvet at give point til mig, da sjh jo kom med en bedre løsning :o)

-God Jul, og Godt Nytår

tjaa :) Nu fik du dem ;)