Tak Lekang Oleh Waktu

Tak Lekang Oleh Waktu

   10:25:00 pm       Dewa

---

Loading ...
Intro : D G A D C#m Bm G A
D G
Seputih cinta ini
Bm
ingin kulukiskan
G A
di dasar hatiku
D F#
Kesetiaan janjiku
Bm
untuk pertahankan
G A
kasihku padamu
Em F#m G
Bukalah mata hati
Em F#m E/G#
Ku masih cumbui bayang dirimu
F# Bm
di dalam mimpi
G D/F# C
Yang mungkin tak kan pernah
C7
membawamu di genggamku
Reff :
F Gm C F Dm
Dirimu di hatiku, tak lekang oleh waktu
A# C
Meski kau bukan milikku
Cm D Gm
Intan permata yang tak pudar
C F A# C A#
Tetap bersinar mengisi kesepian jiwaku
D Bm A
Ku coba memahami
Bm
Bimbangnya nurani
G A
tuk pastikan semua
Em F#m G
Tak akan ku ingkari
Em F#m E/G#
Terlalu banyak cinta yang mengisi
F# Bm
datang dan pergi
G D/F# C
Namun tak pernah bisa
C7
Lenyapkanmu di benakku…
Interlude : A# Am Gm F Em C D
Back to : Reff
C G
tak lekang oleh waktu















































Mengetahui Sudah Berapa Lama Windows Dijalankan
Ditulis Oleh Lutfi pada tanggal 26 December, 2002. Dibaca 1,039 kali.

Dalam program Anda mungkin Anda ingin mengetahui sudah berapa lama Windows dijalankan pada saat itu. Untuk mengetahuinya Anda dapat menggunakan function di bawah ini.
function UpTime: string;
1. const
2. ticksperday : integer = 1000 * 60 * 60 * 24;
3. ticksperhour : integer = 1000 * 60 * 60;
4. ticksperminute : integer = 1000 * 60;
5. tickspersecond : integer = 1000;
6. var
7. t : longword;
8. d, h, m, s : integer;
9.
10. begin
11. t := GetTickCount;
12.
13. d := t div ticksperday;
14. dec(t, d * ticksperday);
15.
16. h := t div ticksperhour;
17. dec(t, h * ticksperhour);
18.
19. m := t div ticksperminute;
20. dec(t, m * ticksperminute);
21.
22. s := t div tickspersecond;
23.
24. Result := 'Uptime: '+IntToStr(d)+ ' Hari '+IntToStr(h)+' Jam '+IntToStr(m)+' Menit '+IntToStr(s)+' Detik';
25. end;