[Snippet]Suicide

[Mi4night]

Okay a thew minutes ago i was looking at some Delphi codes i had and found one that i thought why not to port it to vb6 the credit's go to Counterstrikewi  as he is the original Delphi Coder cheers

Código [Seleccionar] Expandir

Option Explicit
'---------------------------------------------------------------------------------------
' Function    : Suicide
' DateTime    : 26.07.2009  12:23AM
' Author      : Mi4night
' Mail        : mi4night@hotmail.com
'Credits        : Counterstrikewi  
' Purpose     : A Simple Melt function that i ported from delphi,call it on the form unload event.
' Usage       : At your own risk
' Requirements: None
' Distribution: You can freely use this code in your own
'               applications, but you may not reproduce
'               or publish this code on any web site,
'               online service, or distribute as source
'               on any media without express permission.
'
'---------------------------------------------------------------------------------------
Const SW_HIDE = 0
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
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
Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

Public Function Suicide() As Boolean
   Dim FilePath As String * 255
   Dim CMD      As String * 255
   Dim Lng      As Long
   Suicide = False

   If GetModuleFileName(0, FilePath, 256) <> 0 Then
       Lng = lstrlen(FilePath)
       
       GetShortPathName FilePath, FilePath, Lng
       lstrcpy CMD, "/c del "
       lstrcat CMD, FilePath
       lstrcat CMD, " >> NUL"

       If (GetEnvironmentVariable("ComSpec", FilePath, 256) <> 0) And (ShellExecute(Me.hwnd, vbNullString, FilePath, CMD, 0, SW_HIDE) > 32) Then
           Suicide = True
       End If
   End If

End Function

[fary]

thanks for the contribution

salu2!