Jak dlouho běží Windows

Postup:
Založte v projektu nový formulář.

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

Autor: The Bozena