Come puoi leggere, la funzione in parola svolge altri compiti:
Funzione GetTickCount
Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long
La funzione GetTickCount ritorna il numero di millisecondi che sono trascorsi da quando è stato avviato windows.
La funzione non richiede parametri
Il tempo trascorso, viene memorizzato come valore DWORD. Il timer viene azzerato se Windows è in esecuzione continua per 49,7 giorni.
Dword
Porzione di memoria, solitamente una variabile che ha una lunghezza di quattro bytes. Il termine DWORD, letteralmente deriva da double word. dove per WORD, si intende una variabile di due bytes.
Forse ti converrebbe utilizzare quella che ho postato (OpenProcess) ed evitare i Timers.
E' esplicativo questo esempio, che puoi incollare in un modulo della Frm:codice:Option Explicit 'In general section Private Declare Function GetTickCount& Lib "kernel32" () Private Sub Form_Load() Dim ret ret = GetTickCount& MsgBox Str$(ret / 60000) + " minutes." End Sub![]()

Rispondi quotando