Mengecek Ukuran File Dengan Delphi

Untuk mengetahui ukuran suatu file, Delphi telah menyediakan fungsi FileSize(var F) : integer

Pada contoh program berikut, saya menggunakan fungsi Windows API GetFileSize( ).
 

Contoh Program Delphi sebagai berikut :

Langkah pertama : desain form dengan popertiey 2 Button , Edit1 , OpenDialog
Langkah kedua isikan listing program sebagai berikut :

Mengubah Background Toolbar Windows Dengan Bitmap

Program ini menjelaskan tentang mengubah background toolbar windos Explorer dengan gambar bitmap. Yang dilakukan program ini sangat sederhana, yakni memberikan data value BackBitmapShell pada key HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbat dan nilainya merupakan path file bitmap yang digunakan. Pada Form rancang 2 Button dan poperty Dialog dengan mengambil OpenPictureDialog, dan juga EditText.

Mudah Membuat Artikel Terkait dan Sroll Bar

Blog Tutorial - Baiklah pada postingan kali ini saya akan share tentang bagaimana Cara Membuat ArtikelTerkait (Related Post) dengan Scroll Bar dalam postingan Blog atau tepatnya berada di bawah postingan blog. Seberapa penting sih  memasang Artikel terkait di blog ?  pastinya sangat penting !! dengan memasang Artikel Terkait di blog akan lebih memudahkan lagi bagi para visitor blog membaca dan melihat artikel-artikel yang berhubungan dengan artikel yang dibaca. 

Dan jika dikreasikan dengan Sroll Bar akan lebih menghemat tempat di blog kita jika isi postingan sudah banyak.

Penemu Teknologi 4D Yang Digunakan NASA

WARSITO nyaris gila saat komputer kerjanya hangus terbakar disambar petir. Hanya satu laptop tersisa, dan itu juga tiba-tiba jebol. Ini cobaan berat: di komputer itu, hasil riset belasan tahun hilang tak berjejak.

Hampir sepekan dia berdiam diri di kamar. Mimpinya seperti kandas. Dia ingin menciptakan alat pemindai empat dimensi (4D) berbasis teknologi Electrical Capacitance Volume - Tomography (ECVT). Itu teknologi pemindaian tiga dimensi (3D), dengan obyek bergerak berkecepatan tinggi, sehingga menghasilkan citra 4D.

Getir. Tapi dia harus bangkit, dan tak boleh menyerah. Musibah itu memaksanya kembali membongkar arsip, dan catatan riset. Satu tim ahli dibentuknya membantu kerja besar itu. Mereka dari Center for Tomography Research Laboratory (CTECH Labs).