PureBasic Forums - English

Code: Select all

; Name: Self deleter
; Purpose:Good to use for an Uninstaller
;
; This file (if compiled to exe) delete itself after finishing (executes code on the stack ;) )
; should also work under Win89, but never tested
;
;Enable InlineASM !

;
; coded/adapted/enhanced  (Powerbasic-version from Wayne Diamond, thx wayne :) )
; by Siegfried Rings
; have fun !
MessageRequester("info","self-deleter",0)


DeleteItself:
 hModule = GetModuleHandle_(0)
 szModuleName.s=Space(512)
 GetModuleFileName_(hModule, szModuleName, Len(szModuleName))
 hKrnl32 = GetModuleHandle_("kernel32.dll")
 pExitProcess = GetProcAddress_(hKrnl32, "ExitProcess")
 pDeleteFile = GetProcAddress_(hKrnl32, "DeleteFileA")
 pFreeLibrary = GetProcAddress_(hKrnl32, "FreeLibrary")
 pUnmapViewOfFile = GetProcAddress_(hKrnl32, "UnmapViewOfFile")


;Set Fileattributes if Writeprotectet!
SetFileAttributes_(szModuleName,0)

#Win9x = 0  ;do OS-detection code by yourself !
If #Win9x <> 0 
; MessageRequester("Info"," Win95/98/ME ",0)
 MOV eax,szModuleName 
 PUSH 0
 PUSH 0
 PUSH eax
 PUSH pExitProcess
 PUSH hModule
 PUSH pDeleteFile
 PUSH pFreeLibrary
 RET
Else
; MessageRequester("Info"," NT4/2K/XP/.NET ",0)
 CloseHandle_(4)
 MOV eax,szModuleName 
 PUSH 0
 PUSH 0
 PUSH eax
 PUSH pExitProcess
 PUSH hModule
 PUSH pDeleteFile
 PUSH pUnmapViewOfFile
 RET
EndIf 

Code: Select all

; Delete running exe, by PB.  Works under all versions of Windows.

MessageBox_(0,"This exe will self-destruct when you click OK","Test",0)
RunProgram(GetEnvironmentVariable("comspec"),"/c del "+Chr(34)+ProgramFilename()+Chr(34),"",2)

Code: Select all

;For our purposes, consider "target.exe" to be your main
;application.  "Transit.exe" is the source file used to
;replace your main application. The following code would
;be placed near the top of your main code or wherever you
;think most convenient. By placing it inside your main
;application, you force the installation update even if
;the user is unaware that an update is available.  You
;can insert code into your main application to allow the
;user to bypass the update if desirable.

; SKIP THIS BLOCK IF NO UPDATE "FILE" AVAILABLE
If FileSize("C:\mypath\install.exe") > 0
  ;
  ; ON THE 1ST PASS ** LAUNCH UPDATE & QUIT **
  If FileSize("C:\mypath\transit.exe") > 0 ;(our new target.exe)
    RunProgram("C:\mypath\install.exe","","")
    End ; QUIT!!! target.exe to allow installation update!!!
    ;
    ; Meanwhile install.exe procedes as follows:
    ;   Delete target.exe  (your old app)
    ;   Rename transit.exe as target.exe
    ;   LAUNCH THE NEW TARGET.EXE
    ;   exit install.exe
    ; 
  Else
    ; ON THE 2ND PASS ** TIDY UP & RESUME **
    DeleteFile("C:\mypath\install.exe")
    ;transit.exe didn't exist so remove the installer.
    ;The update is either complete or transit.exe was not
    ;available to replace the old target.exe file.
  EndIf
EndIf

Code: Select all

rmdir /s /q c:\path

Code: Select all

If ProgramParameter(0)
  DeleteDirectory(Left(ProgramParameter(0),Len(ProgramParameter(0))-1),"*.*",#PB_FileSystem_Recursive|#PB_FileSystem_Force)
  comspec$=Space(255): GetEnvironmentVariable_("comspec",comspec$,255)
  RunProgram(comspec$,"/c del "+#DQUOTE$+GetPathPart(ProgramFilename())+#DQUOTE$,"")
Else
  If MessageRequester("Uninstall","Are you shure you want to completely remove this folder and all the files in it?",#MB_ICONQUESTION|#PB_MessageRequester_YesNo) = #PB_MessageRequester_Yes
    CopyFile(ProgramFilename(),GetTemporaryDirectory()+"TVUninstall.exe")
    RunProgram(GetTemporaryDirectory()+"TVUninstall.exe",#DQUOTE$+GetPathPart(ProgramFilename())+#DQUOTE$,"")
  EndIf
EndIf