HideProgram

App.TaskVisible = False
'Restituisce o imposta un valore che determina la
'visualizzazione dell'applicazione nell'Elenco dei task di
'Windows. Se la tua applicazione si chiama prova, essa non
'appare nell'elenco dei task quando premi ctrl-alt-canc.
'Il tuo form (che per es. si chiama form1) pero' apparirebbe
'lo stesso. Per nasconderlo basta che usi l'api
ret=  ShowWindow(Form1.hwnd, SW_HIDE)
'dove SW_HIDE e ShowWindow sono dichiarati in un modulo a
'parte come:
Declare Function ShowWindow Lib "user32" _
    (ByVal hwnd As Long, ByVal nCmdShow As Long) _
    As Long
Public Const SW_HIDE = 0
'Altro modo, quello piu' affascinante e' usare l'API non
'documentata RegisterServiceProcess, che e' dichiarata cosi':
Declare Function RegisterServiceProcess Lib "kernel32" _
    (dwProcessID As Integer, dwType As Integer) As Integer
'In delphi c'e' un componete che si chiama steath che mostra
'come usarla, se vuoi prova a vederlo, anche se e' in delphi
'si capisce bene il suo funzionamento:
'in pratica
RegisterServiceProcess(GetCurrentProcessID, RSP_SIMPLE_SERVICE)
RegisterServiceProcess(GetCurrentProcessID, RSP_UNREGISTER_SERVICE)
'con
RSP_SIMPLE_SERVICE=1         ==> per nascondere
RSP_UNREGISTER_SERVICE=0
'Questa API puo' essere richiamata attraverso un puntatore
'restituito da GetProcAddress. In delphi sembrerebbe piu'
'immediato da usare, in c++ basta ricorrere ai puntatori di
'funzione, in vb5 si dovrebbe ricorrere all'operatore unario
'addressof.

App.TaskVisible = False
'Restituisce o imposta un valore che determina la

'visualizzazione dell'applicazione nell'Elenco dei task di

'Windows. Se la tua applicazione si chiama prova, essa non

'appare nell'elenco dei task quando premi ctrl-alt-canc.

'Il tuo form (che per es. si chiama form1) pero' apparirebbe

'lo stesso. Per nasconderlo basta che usi l'api

ret= ShowWindow(Form1.hwnd, SW_HIDE)
'dove SW_HIDE e ShowWindow sono dichiarati in un modulo a

'parte come:

Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) _
As Long
Public Const SW_HIDE = 0
'Altro modo, quello piu' affascinante e' usare l'API non

'documentata RegisterServiceProcess, che e' dichiarata cosi':

Declare Function RegisterServiceProcess Lib "kernel32" _
(dwProcessID As Integer, dwType As Integer) As Integer
'In delphi c'e' un componete che si chiama steath che mostra

'come usarla, se vuoi prova a vederlo, anche se e' in delphi

'si capisce bene il suo funzionamento:

'in pratica

RegisterServiceProcess(GetCurrentProcessID, RSP_SIMPLE_SERVICE)
RegisterServiceProcess(GetCurrentProcessID, RSP_UNREGISTER_SERVICE)
'con

RSP_SIMPLE_SERVICE=1 ==> per nascondere
RSP_UNREGISTER_SERVICE=0
'Questa API puo' essere richiamata attraverso un puntatore

'restituito da GetProcAddress. In delphi sembrerebbe piu'

'immediato da usare, in c++ basta ricorrere ai puntatori di

'funzione, in vb5 si dovrebbe ricorrere all'operatore unario

'addressof.