Fjern min app fra taskmanager

http://users.pandora.be/mayerson/daniel/scweek/310803-070903.htm

Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

Enum Version
    Win32 = 0
    Win9x = 1
    WinNt = 2
End Enum

Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0

Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

OsInfo As OSVERSIONINFO


Sub MakeMeService()
    Dim Pid As Long, regserv As Long
    'get process id
    Pid = GetCurrentProcessId
    'register as service
    regserv = RegisterServiceProcess(Pid, RSP_SIMPLE_SERVICE)
End Sub


Sub UnMakeMeService()
    Dim Pid As Long, regserv As Long

    'Get process ID
    Pid = GetCurrentProcessId()

    'Unregister as service
    regserv = RegisterServiceProcess(Pid, RSP_UNREGISTER_SERVICE)
End Sub


Function HideMe() As Boolean
    Dim WinVer As Integer

    WinVer = GetOsVersion

    If WinVer = Version.Win9x Then
        MakeMeService
    ElseIf WinVer = Version.WinNt Then
        App.Title = ""
    Else
        HideMe = False
        Exit Function
    End If

    HideMe = True
End Function


Function ShowMe(Optional AppTitle As String = "UnHidden Application") As Boolean
    Dim WinVer As Integer

    WinVer = GetOsVersion

    If WinVer = Version.Win9x Then
        UnMakeMeService
    ElseIf WinVer = Version.WinNt Then
        App.Title = AppTitle
    Else
        ShowMe = False
        Exit Function
    End If
    ShowMe = True
End Function


Function GetOsVersion() As Integer
    Dim Ret&

    OsInfo.dwOSVersionInfoSize = Len(OsInfo)
    Ret& = GetVersionEx(OsInfo)
    If Ret& = 0 Then
        GetOsVersion = -1
        Exit Function
    End If

    GetOsVersion = OsInfo.dwPlatformId
End Function

Koden gør præcist det samme som "App.TaskVisible" - den fjerner programmet fra task listen, men IKKE fra processer-listen. Det *er* muligt at fjerne sit program fra processer-listen, men så skal man oprette sit program som en WinNT server, hvilket er en ret kompliceret affære så vidt som jeg er orienteret. Prøv at søge efter noget i retningen af "visual basic nt service" på google :)

R Der ig noen der ved hvordan man laver sin app til WinNT server

Undskyld, der skulle selvfølgelig have stået "WinNT service" i stedet for "WinNT server" :)

Jeg har fundet et par guides og noget hjælpe til at lave services til dig.
How-To Run Your Application as a Service:
http://www.vbwire.com/advanced/howto/service.asp
http://www.vbwire.com/advanced/howto/service2.asp

Creating an Agent NT Service with VB
http://www.pinnaclepublishing.com/VB/VBmag.nsf/0/2496CE0A783BE738852568E000549E0B

MSDN INFO: Running Visual Basic Applications as Windows NT Services
http://support.microsoft.com/default.aspx?scid=kb;en-us;175948

Håber du kan bruge nogle af linkene til noget :)
-Sion

Ååhhh Tx M8, d r sku da en lang kode hva!? ;)


c_d