Jak dlouho běží Windows

Deklarujte následující funkci:

Private Declare Function GetTickCount Lib "kernel32" () As Long

Do formuláře vložte tlačítko a na událost Click zapište:

x = GetTickCount
MsgBox "Počítač běží " + CStr(Fix((x / 1000) / 60)) + " minut"

Spusťte projekt a klepněte na tlačítko

Zpět