Fungsi Info Komputer

*---------------
Function InfoKom
*---------------
Local Klm, Layar, Warna, Pesan, Tombol
Warna:= SetColor()
Save Screen To Layar
Box3D2(5, 14, 14, 67,1)
Bayangan(5, 14, 14, 67)
Kur:= SetCursor()
SetCursor(0)
Set Color To B+/W
@ 8, 22 Say "Tanggal : " + Tanggal(Date())
@ 9, 22 Say "Monitor : " + Iif(IsColor(), "Berwarna", ;
"Hitam putih")
@ 10, 22 Say "Sistem Operasi : " + Os()
@ 11, 22 Say "Sisa Memory : " + TransForm(Memory(0) * 1024, ;
'9,999,999 Byte')
@ 12, 22 Say "Sisa Hard Disk : " + TransForm(DiskSpace(0), ;
'9,999,999,999 Byte')
@ 24, 00
Tombol:= 0
Pesan := "Tekan sembarang tombol"
@ 24, 40 - Len(Pesan) / 2 Say Pesan
@ 7, 22 Say "Jam : "
Klm:= Col()
Do While Tombol= 0
Tombol:= InKey()
@ 7, Klm Say Time() + " wib"
EndDo
SetCursor(Kur)
Restore Screen From Layar
SetColor(Warna)
Return .T.
*---------