Cyber Environtment

Di UPT SI STT-Garut, aku dikepung jiwa-jiwa digital

Lingkungan kerja itu terkadang mempengaruhi prikologi kita. Dalam salah satu referensi disebutkan bahwa terkadang orang teknik terkena dampak karena kesehariaannya bergaul dengan perangkat teknik. Salah satu pengaruh itu misalnya ia bergaul dengan manusia sebagaimana ia bergaul dengan perangkat kerja di di kantor. Oleh karenanya sangat perlu bagi orang teknik, khususnya orang yang bergaul di lingkungan kerja yang serba perangkat untuk menambah kesempatannya untuk dapat membangun interaksi dengan sesamanya.

Apabila tempat duduk kita dikelilingi komputer, maka satu-satunya cara untuk melepaskan diri dari kepungan perangkat cyber itu adalah masuk ke dalam cyber, menemui orang melalui dunia cyber. Itu masih bagus dibandingkan harus terus-menerus bercengkrama dengan komputer melalui pesan dialog dan tombol-tombol navigasi. Yang paling bagus, menyeimbangkan ritme pergaulan kita, antara kita dengan manusia dan dengan perangkat kerja. Dan yang terpenting adalah mengeluarkan keringat, yang pastinya hanya sedikit bisa kita keluarkan jika hanya mengandalkan komputer. Kita harus keluar dari kantor sesekali, berjalan-jalan, atau mungkin sedikit berlari kecil, membiasakan naik turun gedung dengan tangga, dan aktivitas lainnya yang dapat membakar energi.

Read More

Vertigo

Ujian dalam ibadah menuntut ilmu selain lelah yang menghambat konsentrasi belajar, terakhir datang juga vertigo yang membuat tubuh ini tidak bisa beranjak selama satu minggu karena pandangan mata tidak fokus (puyeng). Mungkin gara-gara ngajak ngebut kuda tungganganku sampe 100 km pulang pergi Garut Bandung buat ngejar solat di al-Musaddadiyah pada hari Jum'at itu. Atau mungkin terpicu oleh naiknya adrenalin sewaktu manufer di depan bus dan truk besar bersama orang yang ngemudiin kawasaki ninja ke arah Bandung itu ya? Ya, ceritanya aku mau nyusul mobil truk di belakang pengendara motor satria, di depan kawasaki ninja maksa mau nyusul bus yang sedang datang ke arahku. Untung Alloh memberi pertolongan dan secara reflek tubuh ini bergerak mengarahkan tungganganku ke depan mobil truk. Kalau tabrakan, wah ceritanya rame dan mungkin tia da nyawa lagi. Masalahnya semuanya yang terlibat, motor atau mobil pada ngebut. Waktu itu sih tiak ada perasaan apa-apa, mungkin sedang dalam kondisi extrem mud ya .. ha4x .

Mungkin karena tidak ada ujian dari kejadian itu, datanglah vertigo yang menyebabkan apa yang dilihat berputar-putar. Setiap kali tidur terlentang pasti muter ... pengen muntah. Sampai bangkit jugab tidak bisa. Vertigo sendiri saya dengar dari teman kerja saya. Setelah googling dan membaca artikel tentang vetigo, panik juga ... akhirnya senin pagi itu diputuskan konsultasi ke spesialis syaraf. Dr Natsir mengiyakan. Selama hampir seminggu saya tidak bisa mengerjakan tugas UAS. Untung ada teh Ismi yang baik hati mau share ... trims ya.

Belum sembuh dari vertigo malam jum'at itu jam 12 malam perut ini rasanya sakit sekali. Saking tidak bisa nahan sakitnya dari mulut keluar erangan kesakitan. Benar2 jeritan malam jum'at, hi4x. Istri ynag panik segera memanggil dokter (thanks ya say) dan untung doternya mau datang.

Rabb berusaha membuat saya takut dengan kematian. Karena insiden kawasaki ninja tidak memuat saya takut, didatangkanlah vertigo yang mulai terasa sangat menakutkan. Saat didera pening luar biasa itu saya sempat membayankan mungkinkan ini sakaratul maut? Tapi sayangnya tubuh ini masih bisa bertahan dan ketakutan sirna begitu rasa pening berputar-putarnya lenyap. Akhirnya, datang ujian yang benar2 membuat saya menyerah kepada Rabb, keram usus. Malam itu saya menyerah dan mengerang kesakitan dan panik. Sampai di saat itu saya berfikir akan mati dan mencoba mengajak diri untuk menyampaikan wasiat kepada istri yang saat itu tengah panik. Istri sendiri melihat saya panik dan ingat alm ayahnya yang meninggal karena sakit di malam hari.

Wahai Rabb, aku tahu sekarang bahwa kembaliku kepada-Mu bukan oleh tangan-Mu, tapi oleh tanganku. Maafkan aku yang telah menyerah kepada takdir-Mu namun mencercanya pula. Kini aku sadar kebanggaan Mu atas manusia adalah karena manusia telah berusaha ... Maafkan hamba-Mu yang lemah.

Read More

Generasi Muslim al-Muhajirin

Generasi Muslim al-Muhajirin (GMA) merupakan organisasi masyarakat yang dibangun oleh para pemuda di lingkungan tempat tinggal saya sewaktu di Subang. Organisasi berbasis keagamaan ini diprakarsai berdirinya oleh Yudho Hertono Rifangi yang kemudian menjadi ketua umumnya yang pertama. Saya termasuk angkatan ke-3 dan bergabung sewaktu duduk di kelas 3 SMP pada masa-masa kejenuhan saya dengan lingkungan kepanduan yang saat itu didominasi oleh isme senioritas.

GMA merupakan awal perjalanan saya dalam kegiatan organisasi masjid. Langkah kaki pertama dimulai sewaktu saya berdialog dengan mas Yudho di masjid al-Muhajirin tentang kepemimpinan islami dalam perspektif beliau. Namun yang membuat saya terlempar masuk ke dalam organisasi ini adalah sebuah buku yang dipinjam dari mas Yudho karangan Imam al-Ghazali yang berjudul Minhajul Abidien. Buku ini menawarkan dunia lain yang lebih terang dibandingkan kegelapan suasana jenuh kegiatan kepanduan di SMP.

Hal unik yang ditemukan pada organisasi ini adalah kemampuannya dalam menerapkan kultur islami melalui dialog dari hati ke hati. Sebagian besar pengurus akhwat yang awalnya kebanyakan tidak berjilbab, lambat laun kemudian dapat berjilbab karena keberhasilan dialog. Namun hal terpenting yang membuat organisasi ini berhasil adalah kratifitas para personilnya. Banyak kegiatan berorientasi dakwah yang kreatif dan di kalangan aktifiis masjid Subang saat itu dianggap baru. Seperi misalnya yang dianggap berhasil adalah kegiatan dakwah dengan teater yang digerakan oleh aktivis seni yang kebetulan bergabung di GMA, pesantren alam sebagai formulasi antara implementasi pramuka yang dilakukan oleh aktivis pramuka yang kebetulan menjadi pengrus GMA dengan kegiatan dakwah, dan tadabur alam yang merupakan kegiatan silaturahmi di alam terbuka.

Kreatifitas tersebut menjadi daya tarik yang kuat dan opportunity bagi GMA, bahkan menyebabkan GMA pada suatu masa menjadi referensi kegiatan masjid di Subang. Beberapa sekolah setingkat SMP dan SMA seringkali bekerja sama menyelenggarakan kegiatan teater dan pesantren ramadhan.

Satu hal yang saya anggap fenomenal adalah saat GMA menyelenggarakan pesantren ramadhan di Masjid Agung Subang. Malam itu, gabungan antara tradisi jurit malam pramuka, teater, dan dakwah dihadirkan di lorong menara masjid. Peserta pesantren berjalan dari titik tengah menara ke lantai dasar, dan lorong menara masjid pada malam itu bersuara, dipenuhi energi muhasabah.

Perkembangan oganisasi GMA juga baik. Pengembangan GMA menjadi sistem lembaga membuat GMA lebih berkembang karena bidang-bidang tertentu digarap secara khusus oleh lembaga. Hasilnya, sejumlah kegiatan yang menguntungkan kepentingan rekrutment dan dakwah organisasi hadir dengan rating market luar biasa. Bahkan beberapa diantaranya menjadi bidang bisnis yang menguntungkan, seperti tour & travel. Semua lembaga dikelola kualitas informasi dan proses bisnisnya oleh lembaga yang saya pimpin, yakni Badan Pelaksana Harian.

Khusus untuk penjaminan kualitas dan kelengkapan organisasi, digunakan sebuah framework. Sejujurnya framework tersebut merupakan sebuah gambar yang tidak sengaja tapi kemudian dapat diterjemahkan menjadi kelengkapan dan aturan organisasi. Melalui framework tersebut tergambar relasi antar unsur organisasi, aturan relasi, media koordinasi yang terkategori, dan lain sebagainya. Berbagai aturan pelengkap diadopsi dari sistem pemerintahan Islam, seperti Pakistan misalnya. Sementara sistem administrasi BPH dibangun mengikuti sistem adminsitrasi Indonesia.

Sketsa Logo BPH

Saat pesantren alam rutin digelar, kelompok pengamanan yang disebut Satuan Jihad dibentuk untuk mengamankan. Penggunaan istilah Jihad dan slogan Takbir di GMA sebenarnya tidak untuk membangkitkan semangat militan para anggotanya tetapi untuk menguatkan semangat dalam menyukseskan kegiatan dakwah semata. Terminologi perang yang selalu dikaitkan dengan istilah Jihad sangat jauh dalam pembicaraan di antara anggota ataupun pengurus. Walau demikian, saya merasa yakin dengan seringnya GMA menyelenggarakan kegiatan masa pada malam hari saat itu, dan sering dikumandangkannya Takbir dan salam Jihad, GMA pernah menjadi daftar pengawasan dari pihak Kepolisian.

Sketsa Logo Laskar

Masalah muncul di GMA begitu sejumlah anggota GMA mulai mencapai pemahaman yang mendalam seputar fiqh dan bahkan cenderung fanatik. Sementara GMA tetap bertahan pada status quo untuk tidak menerapkan sistem fanatis dalam aturan dan kultur organisasi. BPH melalui laporan pertanggung jawabannya telah menyarankan agar dibentuk dua wilayah yang dikelola oleh lembaga Pendidikan dan Dakwah, di mana wilayah pertama untuk anggota yang fanatik dengan kegiatan khusus, dan wilayah kedua untuk anggota yang masih berjalan menuju pemahaman dengan kegiatan umumnya untuk menangani masalah tersebut. Tapi karena gejolak begitu besar dan mulai ada perbedaan pendapat, semangat, dan cara berfikir sejumlah anggota dengan kepemimpinan organisasi, maka friksipun tidak dapat dihindarkan. Friksi ini berakhir dengan dibentuknya kepengurusan baru dengan pimpinan yang baru dengan harapan semoga saja sejumlah anggota yang tidak sefaham dengan kepemimpinan sebelumnya menjadi tenang.

Namun peralihan kepemimpinan dan perginya sebagian besar anggota untuk keperluan studi dan bekerja membuat GMA kehilangan api. Barangkali yang bertahan hingga kini adalah organisasi Ikatan Pelajar Muslim (IPM) yang kelahirannya dibidani oleh Lembaga Pendidikan dan Dakwah. Masjid al-Muhajirin sudah lama tidak diramaikan oleh aktivitas GMA lagi. Bahkan kegiatan IPM atau GMA mulai diselenggarakan ditempat lain, seperti masjid al-Amien dan lain sebagainya. Sangat disayangkan masjid besar dengan menara yang tinggi itu kini sepi kegiatan besar yang biasa diselenggarakan oleh para pemuda. Mudah-mudahan, masjid ini kembali ramai seperti semua.

Bersama istri di Masjid al-Muhajirin Subang

Read More

Panggilan Alloh

Panggilan Alloh yang pertama, yakni saat dimintai kesaksian di alam ruh sebelum ruh dimasukan ke dalam jasad.

Dan (ingatlah), ketika Tuhanmu mengeluarkan keturunan anak-anak Adam dari sulbi mereka dan Allah mengambil kesaksian terhadap jiwa mereka (seraya berfirman): Bukankah Aku ini Tuhanmu? Mereka menjawab: Betul (Engkau Tuhan kami), kami menjadi saksi. (Kami lakukan yang demikian itu) agar di hari kiamat kamu tidak mengatakan: Sesungguhnya kami (bani Adam) adalah orang-orang yang lengah terhadap ini (keesaan Tuhan), (Q.S.7:172)

Penggilan kedua, yakni pada saat Islam diserukan kepada manusia melalui Utusan Alloh dan para penerusnya.

Dan apabila mereka dipanggil kepada Allah dan rasul-Nya, agar rasul menghukum (mengadili) di antara mereka, tiba-tiba sebagian dari mereka menolak untuk datang. (Q.S.24:48) Sesungguhnya jawaban orang-orang mukmin, bila mereka dipanggil kepada Allah dan rasul-Nya agar rasul menghukum (mengadili) di antara mereka ialah ucapan. Kami mendengar dan kami patuh. Dan mereka itulah orang-orang yang beruntung. (Q.S.24:51) 

Panggilan ketiga, yakni pada saat dibangkitkan dari kubur, menandai awal perpindahan manusia dari alam dunia ke alam akhirat. 

Dan di antara tanda-tanda kekuasaan-Nya ialah berdirinya langit dan bumi dengan iradah-Nya. Kemudian apabila Dia memanggil kamu sekali panggil dari bumi, seketika itu (juga) kamu keluar (dari kubur). (Q.S.30:25)

Panggilan keempat, yakni saat manusia dihisab segala amalnya.

(Ingatlah) suatu hari (yang di hari itu) Kami panggil tiap umat dengan pemimpinnya; dan barang siapa yang diberikan kitab amalannya di tangan kanannya maka mereka ini akan membaca kitabnya itu, dan mereka tidak dianiaya sedikit pun. (Q.S.17:71) yaitu pada hari Dia memanggil kamu, lalu kamu mematuhi-Nya sambil memuji-Nya dan kamu mengira, bahwa kamu tidak berdiam (di dalam kubur) kecuali sebentar saja. (Q.S.17:52)  mereka datang bergegas-gegas memenuhi panggilan dengan mengangkat kepalanya, sedang mata mereka tidak berkedip-kedip dan hati mereka kosong. (Q.S.14:43)Dan (pada hari itu) kamu lihat tiap-tiap umat berlutut. Tiap-tiap umat dipanggil untuk (melihat) buku catatan amalnya. Pada hari itu kamu diberi balasan terhadap apa yang telah kamu kerjakan. (Q.S.45:28) lalu mereka panggil memanggil di pagi hari: (Q.S.68:21)

Pada hari Tuhan memanggil mereka: Di manakah sekutu-sekutu-Ku itu?; mereka menjawab: Kami nyatakan kepada Engkau bahwa tidak ada seorang pun di antara kami yang memberi kesaksian (bahwa Engkau punya sekutu). (Q.S.41:47) 

Panggilan kelima, yakni panggilan khusus, yakni pada saat penghubi Syurga dipanggil Alloh di suatu lapang untuk melihat wajah-Nya.

Katakanlah: Sesungguhnya aku Ini manusia biasa seperti kamu, yang diwahyukan kepadaku, “Bahwa Sesungguhnya Tuhan kamu itu adalah Tuhan yang Esa”. Barang siapa mengharap perjumpaan dengan Tuhannya, maka hendaklah ia mengerjakan amal yang shalih dan janganlah ia mempersekutukan seorang pun dalam beribadat kepada Tuhannya”. (al-Kahfi:110)

Allah menyeru (manusia) ke Darussalam (surga), dan menunjuki orang yang dikehendaki-Nya kepada jalan yang lurus (Islam). Bagi orang-orang yang berbuat baik, ada “pahala yang baik” (surga) dan “tambahannya”. Dan muka mereka tidak ditutupi debu hitam dan tidak (pula) kehinaan. Mereka itulah penghuni surga, mereka kekal di dalamnya. (Yunus: 25-26)

Menurut Ibnu Qayyim, yang dimaksud dengan kata al-husna di ayat itu adalah al-jannah (surga), sedangkan yang dimaksud dengan az-ziyadah (tambahan) adalah memandang wajah Allah Yang Mulia. Ini adalah tafsir Rasulullah saw. atas ayat itu dalam hadits yang diriwayatkan oleh Muslim dalam Shahih-nya.

Rasulullah membaca ayat lilladzina ahsanu al-husna wa ziyadah, lalu bersabda, “Jika ahli surga sudah masuk ke dalam surga, demikian juga ahli neraka sudah masuk ke dalam neraka, maka ada seorang malaikat yang menyeru: Wahai ahli surga, sesungguhnya kalian telah dijanjikan di sisi Allah, maka sekarang Allah hendak menunaikan janji itu kepada kalian. Mereka berkata: apakah janji itu? Bukankah Dia telah membuat berat timbangan kebaikan kami dan telah membuat putih (cerah) wajah kami, serta telah memasukkan kami ke dalam surga dan mengeluarkan kami dari neraka? Akhirnya, tabir pun dibuka lalu mereka bisa melihat kepada-Nya. Sungguh tidak ada sesuatu yang telah Dia berikan kepada ahli surga yang lebih mereka cintai daripada melihat kepada-Nya. Itulah yang dimaksud dengan ziyadah.”

Ali bin Abi Thalib dan Anas bin Malik berkata, “Yang dimaksud adalah melihat Wajah Allah swt.” saat menafsirkan ayat lahum maa yasyaa-una fiihaa wa ladainaa maziid, mereka di dalamnya memperoleh apa yang mereka kehendaki; dan pada sisi kami ada tambahannya. (Qaf: 35).

Read More

Teman Pascasarjana

Foto bersama teman kuliah seangkatan, di program Pascasarjana Teknik Informatika (Sistem Informasi) Institut Teknologi Bandung. Foro diambil selesai buka puasa bareng di rumah makan Cigandea Bandung, tahun 2008.

Read More

Selamat Menunaikan Ibadah Puasa

Selamat berpuasa ya ....
semoga segala kebaikan bulan Ramadhan terlimpah untuk kita, amien.

Rasululloh SAW bersabda:

Wahai manusia! Sungguh telah datang pada kalian bulan Allah dengan membawa berkah rahmat dan maghfirah. Bulan yang paling mulia disisi Allah. Hari-harinya adalah hari-hari yang paling utama. Malam-malamnya adalah malam-malam yang paling utama. Jam demi jamnya adalah jam-jam yang paling utama.

Inilah bulan ketika kamu diundang menjadi tamu Allah dan dimuliakan oleh-NYA. Di bulan ini nafas-nafasmu menjadi tasbih, tidurmu ibadah, amal-amalmu diterima dan doa-doamu diijabah. Bermohonlah kepada Allah Rabbmu dengan niat yang tulus dan hati yang suci agar Allah membimbingmu untuk melakukan shiyam dan membaca Kitab-Nya.

Celakalah orang yang tidak mendapat ampunan Allah di bulan yang agung ini. Kenanglah dengan rasa lapar dan hausmu di hari kiamat. Bersedekahlah kepada kaum fuqara dan masakin. Muliakanlah orang tuamu, sayangilah yang muda, sambungkanlah tali persaudaraanmu, jaga lidahmu, tahan pandanganmu dari apa yang tidak halal kamu memandangnya dan pendengaranmu dari apa yang tidak halal kamu mendengarnya. Kasihilah anak-anak yatim, niscaya dikasihi manusia anak-anak yatimmu. Bertaubatlah kepada Allah dari dosa-dosamu. Angkatlah tangan-tanganmu untuk berdoa pada waktu shalatmu karena itulah saat-saat yang paling utama ketika Allah Azza wa Jalla memandang hamba-hamba-Nya dengan penuh kasih; Dia menjawab mereka ketika mereka menyeru-Nya, menyambut mereka ketika mereka memanggil-Nya dan mengabulkan doa mereka ketika mereka berdoa kepada-Nya.

Wahai manusia! Sesungguhnya diri-dirimu tergadai karena amal-amalmu, maka bebaskanlah dengan istighfar. Punggung-punggungmu berat karena beban (dosa) mu, maka ringankanlah dengan memperpanjang sujudmu.

Ketahuilah! Allah ta’ala bersumpah dengan segala kebesaran-Nya bahwa Dia tidak akan mengazab orang-orang yang shalat dan sujud, dan tidak akan mengancam mereka dengan neraka pada hari manusia berdiri di hadapan Rabb al-alamin.

Wahai manusia! Barang siapa di antaramu memberi buka kepada orang-orang mukmin yang berpuasa di bulan ini, maka di sisi Allah nilainya sama dengan membebaskan seorang budak dan dia diberi ampunan atas dosa-dosa yang lalu. (Sahabat-sahabat lain bertanya: “Ya Rasulullah! Tidaklah kami semua mampu berbuat demikian.”

Rasulullah meneruskan: “Jagalah dirimu dari api neraka walaupun hanya dengan sebiji kurma. Jagalah dirimu dari api neraka walaupun hanya dengan seteguk air.”

Wahai manusia! Siapa yang membaguskan akhlaknya di bulan ini ia akan berhasil melewati sirathol mustaqim pada hari ketika kai-kaki tergelincir. Siapa yang meringankan pekerjaan orang-orang yang dimiliki tangan kanannya (pegawai atau pembantu) di bulan ini, Allah akan meringankan pemeriksaan-Nya di hari kiamat. Barangsiapa menahan kejelekannya di bulan ini, Allah akan menahan murka-Nya pada hari ia berjumpa dengan-Nya. Barang siapa memuliakan anak yatim di bulan ini, Allah akan memuliakanya pada hari ia berjumpa dengan-Nya. Barang siapa menyambungkan tali persaudaraan (silaturahmi) di bulan ini, Allah akan menghubungkan dia dengan rahmat-Nya pada hari ia berjumpa dengan-Nya. Barang siapa memutuskan kekeluargaan di bulan ini, Allah akan memutuskan rahmat-Nya pada hari ia berjumpa dengan-Nya. Barangsiapa melakukan shalat sunat di bulan ini, Allah akan menuliskan baginya kebebasan dari api neraka. Barangsiapa melakukan shalat fardu baginya ganjaran seperti melakukan 70 shalat fardu di bulan lain. Barangsiapa memperbanyak shalawat kepadaku di bulan ini, Allah akan memberatkan timbangannya pada hari ketika timbangan meringan. Barangsiapa di bulan ini membaca satu ayat Al-Quran, ganjarannya sama seperti mengkhatam Al-Quran pada bulan-bulan yang lain.

Wahai manusia! Sesungguhnya pintu-pintu surga dibukakan bagimu, maka mintalah kepada Tuhanmu agar tidak pernah menutupkannya bagimu. Pintu-pintu neraka tertutup, maka mohonlah kepada Rabbmu untuk tidak akan pernah dibukakan bagimu. Setan-setan terbelenggu, maka mintalah agar ia tak lagi pernah menguasaimu. Amirul mukminin k.w. berkata: “Aku berdiri dan berkata: “Ya Rasulullah! Apa amal yang paling utama di bulan ini?” Jawab Nabi: “Ya Abal Hasan! Amal yang paling utama di bulan ini adalah menjaga diri dari apa yang diharamkan Allah”.

Wahai manusia! sesungguhnya kamu akan dinaungi oleh bulan yang senantiasa besar lagi penuh keberkahan, yaitu bulan yang di dalamnya ada suatu malam yang lebih baik dari seribu bulan; bulan yang Allah telah menjadikan puasanya suatu fardhu, dan qiyam di malam harinya suatu tathawwu’.”

“Barangsiapa mendekatkan diri kepada Allah dengan suatu pekerjaan kebajikan di dalamnya, samalah dia dengan orang yang menunaikan suatu fardhu di dalam bulan yang lain.”

“Ramadhan itu adalah bulan sabar, sedangkan sabar itu adalah pahalanya surga. Ramadhan itu adalah bulan memberi pertolongan ( syahrul muwasah ) dan bulan Allah memberikan rizqi kepada mukmin di dalamnya.”

“Barangsiapa memberikan makanan berbuka seseorang yang berpuasa, adalah yang demikian itu merupakan pengampunan bagi dosanya dan kemerdekaan dirinya dari neraka. Orang yang memberikan makanan itu memperoleh pahala seperti orang yang berpuasa tanpa sedikitpun berkurang.”

Para sahabat berkata, “Ya Rasulullah, tidaklah semua kami memiliki makanan berbuka puasa untuk orang lain yang berpuasa. Maka bersabdalah Rasulullah saw, “Allah memberikan pahala kepada orang yang memberi sebutir kurma, atau seteguk air, atau sehirup susu.”

“Dialah bulan yang permulaannya rahmat, pertengahannya ampunan dan akhirnya pembebasan dari neraka. Barangsiapa meringankan beban dari budak sahaya (termasuk di sini para pembantu rumah) niscaya Allah mengampuni dosanya dan memerdekakannya dari neraka.”

“Oleh karena itu banyakkanlah yang empat perkara di bulan Ramadhan; dua perkara untuk mendatangkan keridhaan Tuhanmu, dan dua perkara lagi kamu sangat menghajatinya.”

“Dua perkara yang pertama ialah mengakui dengan sesungguhnya bahwa tidak ada Tuhan selain Allah dan mohon ampun kepada-Nya . Dua perkara yang kamu sangat memerlukannya ialah mohon surga dan perlindungan dari neraka.”

“Barangsiapa memberi minum kepada orang yang berbuka puasa, niscaya Allah memberi minum kepadanya dari air kolam-Ku dengan suatu minuman yang dia tidak merasakan haus lagi sesudahnya, sehingga dia masuk ke dalam surga.” (HR. Ibnu Huzaimah).

Read More

Merdeka !!!

"Kebebasan berarti bahwa si hamba bebas dari belenggu sesama mahluk; kekuasaan mahluk tidak berlaku atas dirinya. Tanda absahnya kebebasan adalah tersingkirnya pembedaan tentang segala hal dalam hatinya sehingga semua gejala duniawi di hadapannya adalah sama." (Imam al-Qusyairi)

Kemerdekaan menurut kamus besar bahasa indonesia artinya keadaan berdiri sendiri (bebas, lepas, tidak terjajah). Kemerdekaan sejati adalah jika kita tidak berada di bawah perbudakan oleh sesama mahluk ataupun diperbudak oleh perubahan keadaan kehidupan duniawi atau ukhrowi; ia hanya akan menjadi budak Alloh SWT. Tidak ada sesuatupun yang memperbudaknya, baik perkara dunia yang bersifat sementara, pencarian kepuasan hawa nafsu, keinginan, permintaan, niat, kebutuhan, ataupun ambisi. Ibrahim bin Adham berkata, "Orang bebsa yang mulia telah keluar dari dunia sebelum ia dikeluarkan dari dunia (wafat)." 

Bisr al-Hafi berkata, "Barangsiapa yang menginginkan rasa kebebasan dan ringan dalam ubudiyah, maka bersihkanlah bathinnya antara ia dan Alloh SWT. Junaid berkata, "Engkau tidak akan dapat mencapai kebebasan sejati selama masih ada sisa dunia dalam hakikat ubudiyah." al-Husain bin Manshur berkata, "Barangsiapa menghendaki kebebasan, hendaklah ia meraih ubudiyah."

Janganlah bersahabat, kecuali dengan orang mulia yang bebas, ia hanya mendengar namun tidak banyak bicara.

MERDEKA !!!

Read More

Awal Perjalanan di Institut Teknologi Bandung

Berawal dari ajakan rekan kerja di kampus untuk kuliah pascasarjana bidang information security management system di Universitas Langlangbuana. Saya memang sudah lama bereksperimen dengan kriptografi dan benar-benar berminat mendalami ilmu tersebut. Tetapi Prof. Ali Ramdhani bersikeras menginginkan agar saya masuk ke Institut Teknologi Bandung. Sementara itu rekan kerja dan dosen sewaktu sarjana dulu menyuruh saya untuk tidak melanjutkan studi di ITB tetapi pergi ke Australia.

Dengan dukungan penuh dari Prof. Ali Ramdhani akhirnya saya ikut seleksi masuk pascasarjana Teknik Informatika di ITB pada gelombang ke dua. Tanggal 4 Juli 2008 saya mengikuti English Profiency Test dengan kepasrahan yang total kepada Rabb, karena sebelumnya test semacam itu belum pernah saya ikuti. Tanggal 5 Juli 2008 saya mengikuti Test Potensi Akademin Bappenas dengan harapan agar bentuk test nya seperti yang pernah saya ikuti waktu seleksi kerja di Texmaco atau di Pusat Inkubasi Bisnis Usaha Kecil Jawa Barat.

Beberapa hari kemudian saya dikonfirmasi lolos seleksi EPT dan TPA. Hingga akhirnya tanggal 16 Juli 2008, surat dari ITB datang juga. Saat itu Prof. Ali Ramdhani dan staf kampus sedang berkumpul. Tadinya saya ingin membuka surat itu di rumah saja, tapi ketua jurusan Teknik Komputer membuka surat itu. Akhirnya mau tidak mau keputusan itu harus saya dengar saat itu juga, saya harus belajar di ITB.

Setelah melalui perjalanan registrasi yang melelahkan akhirnya perjalanan itu siap dimulai. Melalu Yahoo Messanger saya segera mengucapkan terima kasih kepada Prof. Rochim Suratman yang selama ini memberi masukan dan semangat. Dengan segala kefakiran, semoga perjalanan ini tidak sia-sia, berhasil, dan memberi banyak tambahan bagi kehidupan.

Semoga, semua pihak yang membantu pembiayaan dalam menempuh studi pasca sarjana diberi pahala sedekah yang diterima oleh Alloh.

Allah Ta'ala berfirman, "Adapun orang yang memberikan (hartanya di jalan Allah) dan bertaqwa dan membenarkan adanya pahala yang terbaik (syurga) maka Kami kelak akan menyiapkan baginya jalan yang mudah". {Qs. Al Lail (92) : 5-8} "Perumpamaan (nafkah yang dikeluarkan oleh) orang-orang yang menafkahkan hartanya di jalan Allah adalah serupa dengan sebutir benih yang menumbuhkan tujuh bulir, pada tiap-tiap bulir seratus biji. Allah melipatgandakan (ganjaran) bagi siapa yang Dia kehendaki. Dan Allah maha luas (kurnia-Nya) lagi maha mengetahui". {Qs. Al Baqarah (2) : 261}

Keutamaan Menuntut Ilmu

Read More

Perjalanan Pertama Syauqi ke Subang

Read More

I with IM3 goes to Campus

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.

Read More

Tentang Nurulloh Laboratory

Nurulloh Laboratory adalah kegiatan Software Engineering yang dilakukan untuk menjawab berbagai kebutuhan masyarakat akan dukungan Teknologi Informasi pada wilayah kerjanya. Kegiatannya terbagi menjadi dua bagian, yakni: Pertama, Penelitian yang menghasilkan produk perangkat lunak prototipe, dipublikasi sebagai perangkat freeware. Kedua, Komersial yang menghasilkan produk penuh dan dijual.

Read More

Tampilan Produk

Programable SMS Center

Sistem Informasi untuk Laboratorium Medik

Kriptografi

Pinger

Autosurfer

Ujian Online

Exporter Basis data dan Validator Ketergantungan Fungsional

Pembangkit Basis Data SI Offline untuk SI Online

Sistem Informasi Pembayaran Uang Mahasiswa

Sistem Informasi Manajemen Perpustakaan

Read More

Perangkat Lunak dalam Promosi atau Tunggu

Tahun 2007

1. Sistem Informasi Medik, untuk Laboratorium Medik.
2. Run and Backup for Sistem Informasi berbasis MS Access, digunakan untuk membackup Sistem Informasi Akademik Sekolah Tinggi Teknologi Garut.

Tahun 2008

1. Portal Kampus digunakan oleh Sekolah Tinggi Teknologi Garut
2. Kolektor Calon Pemilih, digunakan oleh Abdul Halim Datacenter
3. SMS Center, digunakan oleh Abdul Halim Datacenter

Read More

Daftar Perangkat Lunak Penelitian

Tahun 2002 - Sistem Penilaian Kesehatan Baitul Ma'al Wat Tamwil PINBUK Jawa Barat, dalam tugas Kerja Praktek.

Tahun 2003 - Turbo Alkhowarizmi, Analisator Bahasa Pemrograman Indonesia Pascal Like, dalam Tugas Akhir.

Tahun 2006 - Licence Creator, untuk serial number resmi produk Nurulloh Laboratory

Tahun 2007

1. Qur'an Reader, Multi Bahasa dan Suara.
2. Autosurfing, Browser Autopilot.
3. Pinger grafis, digunakan untuk mengecek konektifitas jaringan wifi kota (InterYamusa Network) Sekolah Tinggi Teknologi Garut.
4. Exam Online, dibuat untuk mendukung lomba cerdas cermat online Himpunan Mahasiswa Teknik Informatika Sekolah Tinggi Teknologi Garut.
5. SMS Gateway dan SMS Center
6. AutoExporter Database.

Tahun 2008

1. Remote Dekstop Addition for Internet Environtment, dibuat untuk mendukung pelatihan Nasional Departemen Agama di Ponpes al-Musaddadiyah Garut, namun tidak sempat digunakan.
2. Sistem Informasi Keuangan Online, studi kasus Sekolah Tinggi Teknologi Garut
3. Sistem Informasi Perpustakaan Onlinem studi kasus Sekolah Tinggi Teknologi Garut
4. Kriptografi 32bit (text to image).
5. Digital Information Board (e-Board) / Anjungan Kampus Online, studi kasus Sekolah Tinggi Teknologi Garut.
6. Programable SMS Center, sistem informasi berbasis pesan singkat yang format request dan answer content-nya dapat diprogram dengan menggunakan script.

Read More

Daftar Perangkat Lunak Terjual

Tahun 2004 - Sistem Pembayaran (SIYAR), untuk Sekolah Tinggi Teknologi Garut.

Tahun 2005 - Sistem Absensi Dosen, untuk Sekolah Tinggi Teknologi Garut.

Tahun 2006 - Radio Broadcaster Auto Pilot, untuk PT Radio Yamusa Pratama (Yamusa FM).

Tahun 2007 - Sistem Informasi Hotel (Reservasi), untuk Kampung Sampireun.

Tahun 2008 - Sistem Informasi Perpustakaan, untuk Sekolah Tinggi Teknologi Garut.

Read More

My Family

Berfoto di kamarku (Pesantren Teknik al-Musaddadiyah) bersama orang tuaku selepas Wisuda Sarjana tahun 2003

Read More

Syuqi Ahmad Nurulloh

Syauqi 2 tahun

Syauqi, 1 tahun

Syauqi usia 6 bulan

Syauqi usia 4 bulan

Usia 1 Hari

Read More

Tungganganku

NMax 2018

Fino Premium 2016

Jimny 1988

Jupiter MX 2012

Tahun 2007, Yamaha Speed Extreme Raider

Yamaha Jupiter MX, 135 CC - Z 4748 DY

Tahun 2004, Blackstone

Honda Kharisma 125 CC - T 5532 DY

Read More

Mengubah wallpaper dan mematikan screensaver dengan memanipulasi registry

uses registry;
procedure TForm1.FormCreate(Sender: TObject) ;
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
with reg do begin
try
if OpenKey('\Control Panel\desktop', False) then begin
//change wallpaper and tile it
reg.WriteString ('Wallpaper','c:\windows\CIRCLES.bmp') ;
reg.WriteString ('TileWallpaper','1') ;
//disable screen saver//('0'=disable, '1'=enable)
reg.WriteString('ScreenSaveActive','0') ;
//update changes immediately
SystemParametersInfo (SPI_SETDESKWALLPAPER,0, nil,SPIF_SENDWININICHANGE) ;
SystemParametersInfo (SPI_SETSCREENSAVEACTIVE,0, nil,SPIF_SENDWININICHANGE) ;
end
finally
reg.Free;
end;
end;
end;

Read More

Menampilkan Informasi BIOS

function GetBiosInfoAsText: string;
var
p, q: pchar;
begin
q := nil;
p := PChar(Ptr($FE000));
repeat
if q <> nil then begin
if not (p^ in [#10, #13, #32..#126, #169, #184]) then begin
if (p^ = #0) and (p - q >= 8) then begin
Result := Result + TrimRight(String(q)) + #13#10;
end;
q := nil;
end;
end else
if p^ in [#33..#126, #169, #184] then
q := p;
inc(p);
until p > PChar(Ptr($FFFFF));
Result := TrimRight(Result);
end;

Read More

Checksum BIOS

function GetBiosCheckSum: string;
var
s: int64;
i: longword;
p: PChar;
begin
i := 0;
s := 0;
p := PChar($F0000);
repeat
inc(s, Int64(Ord(p^)) shl i);
if i < 64 then inc(i) else i := 0;
inc(p);
until p > PChar($FFFFF);
Result := IntToHex(s,16);
end;

Read More

Nomor Serial BIOS

uses SHA1, Base64;

function GetHashedBiosInfo: string;
var
SHA1Context: TSHA1Context;
SHA1Digest: TSHA1Digest;
begin
// Get the BIOS data
SetString(Result, PChar(Ptr($F0000)), $10000);
// Hash the string
SHA1Init(SHA1Context);
SHA1Update(SHA1Context, PChar(Result), Length(Result));
SHA1Final(SHA1Context, SHA1Digest);
SetString(Result, PChar(@SHA1Digest), sizeof(SHA1Digest));
// Return the hash string encoded in printable characters
Result := B64Encode(Result);
end;

Read More

Nomor Serial BIOS

uses SHA1, Base64;

function GetHashedBiosInfo: string;
var
SHA1Context: TSHA1Context;
SHA1Digest: TSHA1Digest;
begin
// Get the BIOS data
SetString(Result, PChar(Ptr($F0000)), $10000);
// Hash the string
SHA1Init(SHA1Context);
SHA1Update(SHA1Context, PChar(Result), Length(Result));
SHA1Final(SHA1Context, SHA1Digest);
SetString(Result, PChar(@SHA1Digest), sizeof(SHA1Digest));
// Return the hash string encoded in printable characters
Result := B64Encode(Result);
end;

Read More

Mematikan Mouse dan Keyboard selama 5 detik

procedure TForm1.Button1Click(Sender: TObject) ;

function FuncAvail
(_dllname, _funcname: string; var _p: pointer):
boolean;
var _lib: tHandle;
begin
Result := false;
_p := NIL;
if LoadLibrary(PChar(_dllname)) = 0 then exit;
_lib := GetModuleHandle(PChar(_dllname)) ;
if _lib <> 0 then
begin
_p := GetProcAddress(_lib, PChar(_funcname)) ;
if _p <> NIL then Result := true;
end;
end;


var
xBlockInput : function(Block: BOOL):
BOOL; stdcall;

begin
if FuncAvail
('USER32.DLL', 'BlockInput', @xBlockInput) then
begin
xBlockInput(true) ;
Sleep(5000) ;
xBlockInput(false) ;
end;
end;

Read More

Mengambil nama komputer dan penggunanya

function GetComputerNetName: string;
var
buffer: array[0..255] of char;
size: dword;
begin
size := 256;
if GetComputerName(buffer, size) then
Result := buffer
else
Result := ''
end;

Function GetUserFromWindows: string;
Var
UserName : string;
UserNameLen : Dword;
Begin
UserNameLen := 255;
SetLength(userName, UserNameLen) ;
If GetUserName(PChar(UserName), UserNameLen) Then
Result := Copy(UserName,1,UserNameLen - 1)
Else
Result := 'Unknown';
End;

Read More

Menampilkan proses yang sedang berjalan di Windows

function EnumProcess(hHwnd: HWND; lParam : integer): boolean; stdcall;
var
pPid : DWORD;
title, ClassName : string;
begin
//if the returned value in null the
//callback has failed, so set to false and exit.
if (hHwnd=NULL) then
begin
result := false;
end
else
begin
//additional functions to get more
//information about a process.
//get the Process Identification number.
GetWindowThreadProcessId(hHwnd,pPid);
//set a memory area to receive
//the process class name
SetLength(ClassName, 255);
//get the class name and reset the
//memory area to the size of the name
SetLength(ClassName,
GetClassName(hHwnd,
PChar(className),
Length(className)));
SetLength(title, 255);
//get the process title; usually displayed
//on the top bar in visible process
SetLength(title, GetWindowText(hHwnd, PChar(title), Length(title)));
//Display the process information
//by adding it to a list box
ProcessForm.ProcessListBox.Items.Add
('Class Name = ' + className +
'; Title = ' + title +
'; HWND = ' IntToStr(hHwnd) +
'; Pid = ' + IntToStr(pPid));
Result := true;
end;
end;

procedure TProcessForm.GetProcessButtonClick(Sender: TObject);
begin
//Clear any previous calls
if ProcessListBox.Count > 0 then
ProcessListBox.Clear;
//define the tag flag
lp := 0; //globally declared integer
//call the windows function with the address
//of handling function and show an error message if it fails
if EnumWindows(@EnumProcess,lp) = false then
ShowMessage('Error: Could not obtain
process window hook from system.');
end;

Read More

Mematikan ALT+TAB, CTRL+ESC, CTRL+ALT+DEL

procedure SystemKeys(Disable: Boolean) ;
var OldVal : LongInt;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING,
Word(Disable), @OldVal, 0) ;
end;

Read More

Mematikan Ctrl+Alt+Del Kedua

procedure DisableTaskMgr(bTF: Boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;

reg.OpenKey('Software', True);
reg.OpenKey('Microsoft', True);
reg.OpenKey('Windows', True);
reg.OpenKey('CurrentVersion', True);
reg.OpenKey('Policies', True);
reg.OpenKey('System', True);

if bTF = True then
begin
reg.WriteString('DisableTaskMgr', '1');
end
else if bTF = False then
begin
reg.DeleteValue('DisableTaskMgr');
end;
reg.CloseKey;
end;

// Example Call:
procedure TForm1.Button1Click(Sender: TObject);
begin
DisableTaskMgr(True);
end;

Read More

Mematikan Ctrl+Alt+Del Pertama

uses
Registry;

procedure EnableCTRLALTDEL(YesNo : boolean);
const
sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies';
begin
with TRegistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
if OpenKey(sRegPolicies+'\System\',True) then
begin
case YesNo of
False:
begin
WriteInteger('DisableTaskMgr',1);
end;
True:
begin
WriteInteger('DisableTaskMgr',0);
end;
end;
end;
CloseKey;
if OpenKey(sRegPolicies+'\Explorer\',True) then
begin
case YesNo of
False:
begin
WriteInteger('NoChangeStartMenu',1);
WriteInteger('NoClose',1);
WriteInteger('NoLogOff',1);
end;
True:
begin
WriteInteger('NoChangeStartMenu',0);
WriteInteger('NoClose',0);
WriteInteger('NoLogOff',0);
end;
end;
end;
CloseKey;
finally
Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnableCTRLALTDEL(true);
end;

Read More

Melihat Nomor Serial Harddisk

function GetHardDiskSerial(const DriveLetter: Char): string;
var
NotUsed: DWORD;
VolumeFlags: DWORD;
VolumeInfo: array[0..MAX_PATH] of Char;
VolumeSerialNumber: DWORD;
begin
GetVolumeInformation(PChar(DriveLetter + ':\'),
nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed,
VolumeFlags, nil, 0);
Result := Format('Label = %s VolSer = %8.8X',
[VolumeInfo, VolumeSerialNumber])
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetHardDiskSerial('c'));
end;

Read More

Melihat informasi CPU

unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
Tfrm_main = class(TForm)
img_info: TImage;

procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }

procedure info(s1, s2: string);
end;
var
frm_main: Tfrm_main;
gn_speed_y: Integer;
gn_text_y: Integer;
const
gn_speed_x: Integer = 8;
gn_text_x: Integer = 15;
gl_start: Boolean = True;
implementation
{$R *.DFM}

procedure Tfrm_main.FormShow(Sender: TObject);
var
_eax, _ebx, _ecx, _edx: Longword;
i: Integer;
b: Byte;
b1: Word;
s, s1, s2, s3, s_all: string;
begin
//Set the startup colour of the image
img_info.Canvas.Brush.Color := clblue;
img_info.Canvas.FillRect(rect(0, 0, img_info.Width, img_info.Height));
gn_text_y := 5; //position of the 1st text
asm //asm call to the CPUID inst.
mov eax,0 //sub. func call
db $0F,$A2 //db $0F,$A2 = CPUID instruction
mov _ebx,ebx
mov _ecx,ecx
mov _edx,edx
end;
for i := 0 to 3 do //extract vendor id
begin
b := lo(_ebx);
s := s + chr(b);
b := lo(_ecx);
s1:= s1 + chr(b);
b := lo(_edx);
s2:= s2 + chr(b);
_ebx := _ebx shr 8;
_ecx := _ecx shr 8;
_edx := _edx shr 8;
end;
info('CPU', '');
info(' - ' + 'Vendor ID: ', s + s2 + s1);
asm
mov eax,1
db $0F,$A2
mov _eax,eax
mov _ebx,ebx
mov _ecx,ecx
mov _edx,edx
end;
//06B1
//|0000| |0000 0000| |0000| |00| |00| |0110| |1011| |0001|
b := lo(_eax) and 15;
info(' - ' + 'Stepping ID: ', IntToStr(b));
b := lo(_eax) shr 4;
info(' - ' + 'Model Number: ', IntToHex(b, 1));
b := hi(_eax) and 15;
info(' - ' + 'Family Code: ', IntToStr(b));
b := hi(_eax) shr 4;
info(' - ' + 'Processor Type: ', IntToStr(b));
//31. 28. 27. 24. 23. 20. 19. 16.
// 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
b := lo((_eax shr 16)) and 15;
info(' - ' + 'Extended Model: ', IntToStr(b));
b := lo((_eax shr 20));
info(' - ' + 'Extended Family: ', IntToStr(b));
b := lo(_ebx);
info(' - ' + 'Brand ID: ', IntToStr(b));
b := hi(_ebx);
info(' - ' + 'Chunks: ', IntToStr(b));
b := lo(_ebx shr 16);
info(' - ' + 'Count: ', IntToStr(b));
b := hi(_ebx shr 16);
info(' - ' + 'APIC ID: ', IntToStr(b));
//Bit 18 =? 1 //is serial number enabled?
if (_edx and $40000) = $40000 then
info(' - ' + 'Serial Number ', 'Enabled')
else
info(' - ' + 'Serial Number ', 'Disabled');
s := IntToHex(_eax, 8);
asm //determine the serial number
mov eax,3
db $0F,$A2
mov _ecx,ecx
mov _edx,edx
end;
s1 := IntToHex(_edx, 8);
s2 := IntToHex(_ecx, 8);
Insert('-', s, 5);
Insert('-', s1, 5);
Insert('-', s2, 5);
info(' - ' + 'Serial Number: ', s + '-' + s1 + '-' + s2);
asm
mov eax,1
db $0F,$A2
mov _edx,edx
end;
info('', '');
//Bit 23 =? 1
if (_edx and $800000) = $800000 then
info('MMX ', 'Supported')
else
info('MMX ', 'Not Supported');
//Bit 24 =? 1
if (_edx and $01000000) = $01000000 then
info('FXSAVE & FXRSTOR Instructions ', 'Supported')
else
info('FXSAVE & FXRSTOR Instructions Not ', 'Supported');
//Bit 25 =? 1
if (_edx and $02000000) = $02000000 then
info('SSE ', 'Supported')
else
info('SSE ', 'Not Supported');
//Bit 26 =? 1
if (_edx and $04000000) = $04000000 then
info('SSE2 ', 'Supported')
else
info('SSE2 ', 'Not Supported');
info('', '');
asm //execute the extended CPUID inst.
mov eax,$80000000 //sub. func call
db $0F,$A2
mov _eax,eax
end;
if _eax > $80000000 then //any other sub. funct avail. ?
begin
info('Extended CPUID: ', 'Supported');
info(' - Largest Function Supported: ', IntToStr(_eax - $80000000));
asm //get brand ID
mov eax,$80000002
db $0F
db $A2
mov _eax,eax
mov _ebx,ebx
mov _ecx,ecx
mov _edx,edx
end;
s := '';
s1 := '';
s2 := '';
s3 := '';
for i := 0 to 3 do
begin
b := lo(_eax);
s3:= s3 + chr(b);
b := lo(_ebx);
s := s + chr(b);
b := lo(_ecx);
s1 := s1 + chr(b);
b := lo(_edx);
s2 := s2 + chr(b);
_eax := _eax shr 8;
_ebx := _ebx shr 8;
_ecx := _ecx shr 8;
_edx := _edx shr 8;
end;
s_all := s3 + s + s1 + s2;
asm
mov eax,$80000003
db $0F
db $A2
mov _eax,eax
mov _ebx,ebx
mov _ecx,ecx
mov _edx,edx
end;
s := '';
s1 := '';
s2 := '';
s3 := '';
for i := 0 to 3 do
begin
b := lo(_eax);
s3 := s3 + chr(b);
b := lo(_ebx);
s := s + chr(b);
b := lo(_ecx);
s1 := s1 + chr(b);
b := lo(_edx);
s2 := s2 + chr(b);
_eax := _eax shr 8;
_ebx := _ebx shr 8;
_ecx := _ecx shr 8;
_edx := _edx shr 8;
end;
s_all := s_all + s3 + s + s1 + s2;
asm
mov eax,$80000004
db $0F
db $A2
mov _eax,eax
mov _ebx,ebx
mov _ecx,ecx
mov _edx,edx
end;
s := '';
s1 := '';
s2 := '';
s3 := '';
for i := 0 to 3 do
begin
b := lo(_eax);
s3 := s3 + chr(b);
b := lo(_ebx);
s := s + chr(b);
b := lo(_ecx);
s1 := s1 + chr(b);
b := lo(_edx);
s2 := s2 + chr(b);
_eax := _eax shr 8;
_ebx := _ebx shr 8;
_ecx := _ecx shr 8;
_edx := _edx shr 8;
end;
info('Brand String: ', '');
if s2[Length(s2)] = #0 then setlength(s2, Length(s2) - 1);
info('', ' - ' + s_all + s3 + s + s1 + s2);
end
else
info(' - Extended CPUID ', 'Not Supported.');
end;

procedure Tfrm_main.info(s1, s2: string);
begin
if s1 <> '' then
begin
img_info.Canvas.Brush.Color := clblue;
img_info.Canvas.Font.Color := clyellow;
img_info.Canvas.TextOut(gn_text_x, gn_text_y, s1);
end;
if s2 <> '' then
begin
img_info.Canvas.Brush.Color := clblue;
img_info.Canvas.Font.Color := clWhite;
img_info.Canvas.TextOut(gn_text_x + img_info.Canvas.TextWidth(s1), gn_text_y, s2);
end;
Inc(gn_text_y, 13);
end;
end.

Read More

Menutup Notepad

procedure TForm1.Button1Click(Sender: TObject);
var Hnd: THandle;
begin
Hnd := FindWindow (PChar ('Notepad'), nil);
if Hnd > 0 then
SendMessage (Hnd, WM_CLOSE, 0, 0);
end;

Read More

Mematikan screen saver sementara

procedure TForm1.AppMessage (var Msg: TMsg; var Handled: boolean);
begin
if (Msg.Message = WM_SYSCOMMAND) and (Msg.wParam = SC_SCREENSAVE) then
Handled := true;
end;

dituliskan pada modul event OnCreate Form:

Application.OnMessage := AppMessage;

Read More

Membuat scrollbar horisontal untuk komponen Listbox

procedure HorScrollBar (ListBox: TListBox; MaxWidth: integer);
var i, w: integer;
begin
if MaxWidth >= 0 then
SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0)
else begin
{ get largest item }
for i := 0 to ListBox.Items.Count - 1 do with ListBox do begin
w := Canvas.TextWidth (Items [i]);
if w > MaxWidth then
MaxWidth := w;
end;
SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT,
MaxWidth + GetSystemMetrics (SM_CXFRAME), 0);
end;
end;

Read More

Dialog untuk memilih direktori

uses FileCtrl;

var
Dir: string;
(...)
Dir := 'C:\Windows';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
Label1.Caption := Dir;

Read More

Membuat Direktori Baru

var
Dir: string;
(...)
Dir := 'C:\APPS\SALES\LOCAL';
ForceDirectories(Dir);
if DirectoryExists(Dir) then
Label1.Caption := Dir + ' successfully created.'

Read More

Get the long file name from a shortened (8 + 3) file name

function LongFileName (ShortName: string): string;
var SR: TSearchRec;
begin
Result := '';
if (pos ('\\', ShortName) + pos ('*', ShortName) +
pos ('?', ShortName) <> 0) or not FileExists (ShortName)
then
{ ignore NetBIOS name, joker chars and invalid file names }
Exit;
while FindFirst (ShortName, faAnyFile, SR) = 0 do begin
{ next part as prefix }
Result := '\' + SR.Name + Result;
SysUtils.FindClose (SR); { the SysUtils, not the WinProcs procedure! }
{ directory up (cut before '\') }
ShortName := ExtractFileDir (ShortName);
if length (ShortName) <= 2 then
Break; { ShortName contains drive letter followed by ':' }
end;
Result := ExtractFileDrive (ShortName) + Result;
end;

Read More