Tulisan Berjalan Marquee

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Left := Label1.Left -2;  //Nilai (2) tingkat kecepatan bergerak
  if label1.Left <= -200 then     
   label1.Left := 422;
end;

Jam Analog Delphi

1. Masukkan Label dan Timer
2. double klik timer 
3. ketik

procedure TForm1.Timer1Timer(Sender: TObject);

begin

label1.caption:=timetostr(time);

end;

4.jalankan program

Menjalankan Aplikasi Dari Delphi

Be sure to add ShellApi to your Unit's uses clause.

Run Notepad

 uses ShellApi;
 ...
 ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ; 

Open SomeText.txt with Notepad

 ShellExecute(Handle,'open', 'c:\windows\notepad.exe','c:\SomeText.txt', nil, SW_SHOWNORMAL) ;

Display the contents of the "DelphiDownload" folder

 ShellExecute(Handle,'open', 'c:\DelphiDownload', nil, nil, SW_SHOWNORMAL) ; 

Execute a file according to its extension.

 ShellExecute(Handle, 'open', 'c:\MyDocuments\Letter.doc',nil,nil,SW_SHOWNORMAL) ; 

Tulisan Berjalan Delphi

Tulisan berjalan pada delphI

===============================================================

sekedar contoh sederhana:

tinggal tambahkan Component TTimer dan panggil di event OnTimer

MyBannerVer01('Tulisan berjalan');

{hasilnya tulisan berjalan bolak balik}


function MyBannerVer01(Text: String): String;
var
panjang,Akhir : integer;
begin
panjang := Length(Text);
Akhir := panjang * 2 + 2+ Delay;
if z <= panjang then
begin
Result := copy(Text,1,z);
inc(z);
end else
if z >= panjang then
begin
delete(Text,1,z-panjang);
Result := Text;
inc(z);
end;
if z = Akhir then z := 0;

end;


sekedar contoh sederhana:

tinggal tambahkan Component TTimer dan panggil di event OnTimer

MyBannerVer01('Tulisan berjalan');

{hasilnya tulisan berjalan bolak balik}


function MyBannerVer01(Text: String): String;
var
panjang,Akhir : integer;
begin
panjang := Length(Text);
Akhir := panjang * 2 + 2+ Delay;
if z <= panjang then
begin
Result := copy(Text,1,z);
inc(z);
end else
if z >= panjang then
begin
delete(Text,1,z-panjang);
Result := Text;
inc(z);
end;
if z = Akhir then z := 0;

end;

Fungsi Sebenarnya dari Tombol Klik Kanan Refresh pada Desktop

Kebanyakan pengguna komputer terutama komputer dengan Operating System keluaran Windows pernah atau bahkan sering menekan tombol Tombol Klik Kanan Refresh pada Desktop atau menggunakan tombol shortcut-nya pada keyboard yaitu tombol fungsi F5. Yang mengkhawatirkan dari mereka, mungkin karena mereka tidak tahu alasan sebenarnya mengapa mereka menekan tombol ini. Parahnya lagi, mereka yang memiliki alasan kuat mengapa mereka menekan tombol ini justru meyakini mitos yang salah tentang fungsi tombol refresh tersebut.

Perlu diketahui refresh pada desktop berbeda dengan refresh page atau reload page pada browser. Kadangkala karena lalu lintas internet yang padat, ada halaman internet yang tidak dapat dimuat secara sempurna. Fungsi refresh pada browser ini adalah untuk memuat kembali halaman yang gagal dimuat sebelumnya. Sedangkan, refresh pada desktop memiliki fungsi yang berbeda dengan tombol refresh yang terdapat di dalam browser.

Kebanyakan pengguna komputer baru atau awam, seperti ane sendiri sendiri , pada awalnya meyakini bahwa tombol refresh berfungsi untuk meng-update atau memperbaharui kondisi siaga (idle) komputer setelah terjadi perubahan dan menghapus perintah sebelumnya dari RAM, sehingga komputer yang kita gunakan akan berjalan dengan lebih lancar dan lebih cepat. Namun, seperti yang telah diungkapkan sebelumnya, ternyata merupakan mitos semata.

Fungsi Tombol Refresh Desktop yang Sebenarnya

Refresh desktop sebenarnya digunakan untuk memperbaharui tampilan atau memuat kembali tampilan yang ada di desktop setelah terjadi suatu perubahan. Refresh desktop tidak berfungsi untuk memperbaharui kembali kondisi RAM, dan tidak membersihkan komputer anda atau menyegarkan komputer anda. Oleh karena itu refresh desktop juga tidak menyumbangkan peningkatan performa apa pun pada kinerja komputer.

Untuk lebih memudahkan anda dalam memahami penjelasan fungsi tombol refresh desktop ini, maka perhatikan ilustrasi berikut. Kadangkala bila anda melakukan perubahan pada shortcut di desktop, perubahan tersebut tidak ditampilkan secara instan. Pada kasus ini, barulah anda perlu untuk melakukan refresh pada desktop anda untuk menampilkan perubahan yang telah dilakukan di desktop.

Contohnya, anda telah mengatur shortcut di desktop agar namanya sesuai dengan urutan abjad. Saat anda menambahkan shortcut baru pada desktop, shortcut baru tersebut tidak akan langsung tersortir sesuai urutan abjad, tetapi akan berada di bagian paling bawah daftar shortcut. Jika anda menekan tombol refresh desktop, semua shortcut akan diatur ulang kembali dan shortcut yang baru tersebut akan menempati posisinya sesuai abjadnya. Ini adalah fungsi tombol refresh desktop yang sebenarnya. Selain itu, refresh juga punya fungsi yang sama pada Windows Explorer.

Jadi, bila anda punya kebiasaan melakukan refresh pada desktop anda berkali-kali tanpa mengetahui maksud dan fungsi sebenarnya tombol ini, maka anda sebaiknya menghentikan kebiasaan tersebut. Karena anda hanya membuang waktu dan perhatian anda untuk melakukan pekerjaan yang sebenarnya sia-sia  .

Mendaftarkan Situs ke Search Engine

Salah satu nilai lebih dari suatu website adalah terdaftar pada search engine populer sehingga mudah ditemukan dan tentu saja akan mendatangkan traffic yang lebih besar. Cara untuk terdaftar pada sebuah search engine sebenarnya cukup mudah meskipun Anda tidak dapat menyulap situs Anda untuk masuk ke halaman pertama index pencarian.
Hal – hal yang Harus dipenuhi
Untuk dapat masuk dalam daftar pencarian search engine, website Anda harus memenuhi beberapa persyaratan berikut :

• Website Anda harus mengandung unsur text
  Search engine membaca file non-binary pada website Anda. Text – text yang terdapat di dalamnya akan disimpan dalam database search engine tersebut sehingga akan muncul pada pencarian dengan kata kunci yang relevan dengan isinya. Sangat tidak disarankan membuat suatu website dalam full flash karena teknologi search engine saat ini tidak dapat membaca file flash
• Lengkapi header di setiap halaman
  Header yang terdiri dari title, meta description, dan meta keyword harus diisi dengan kata – kata yang relevan dengan isi website. Hal ini semakin memudahkan search engine untuk menyimpan isi halaman website Anda dalam databasenya.
• Buat semua halaman dengan lengkap
  Sebelum Anda mulai mendaftarkan website Anda pada search engine, silahkan buat seluruh halaman dengan lengkap. Jangan sampai ada deadlink. Biasanya search engine tidak banyak mereferensikan hasil pencariannya pada website yang masih terdapat banyak deadlink.
• Sebaiknya membuat sitemap
  Untuk mempermudah search engine menemukan halaman – halaman pada website Anda, buatlah sitemap yang berisi link ke seluruh halaman dalam website tersebut.
• Tambahkan tag alt pada link image
  Tag alt pada image yang berkait (memiliki link) akan memudahkan search engine untuk mengcrawl halaman yang dituju oleh link tersebut.

Mendaftar di Google
Google memiliki banyak fasilitas untuk mendaftarkan website dan memasukkannya ke dalam index pencariannya. Untuk mendaftarkan suatu website di Google dapat memilih salah satu cara yang terdapat di halaman : http://www.google.com/intl/en/submit_content.html
Biasanya untuk website baru, Anda disarankan untuk mendaftarkannya melalui http://www.google.com/addurl/?continue=/addurl
Mendaftar di Yahoo
Untuk mendaftarkan situs Anda di Yahoo, dapat dilakukan melalui : http://search.yahoo.com/info/submit.html
INGAT! Tidak ada jaminan
Perlu diingat bahwa tidak ada jaminan website Anda akan masuk ke index pencarian Google, Yahoo, maupun search engine lain. Masing – masing search engine memiliki mekanisme seleksi, crawl, dan indexing yang berbeda – beda.
Cara termudah untuk dapat masuk pada index pencarian adalah melalui link. Tambahkan link ke website Anda dari website lain yang halaman – halamannya telah masuk ke index pencarian.

Cara membuat PC menyapamu saat LOGIN!!

1. Buka Notepad
2. copy code vbscript berikut ke notepad :
----------------------------------------------------------------
Dim speaks, speech, salam , username

username = CreateObject("WScript.Network").Username

If Hour(Time) < 12 Then
salam = "Good morning"
ElseIf Hour(Time) < 20 Then
salam = "Good afternoon"
Else
salam = "Good night"
End If

speaks = salam + " " + Username + "! Welcome back to your computer! Have a nice work!"
Set speech = CreateObject("sapi.spvoice")
speech.Speak speaks
----------------------------------------------------------------
3. save file berikut jadi "welcome.vbs" (tanpa tanda kutip)
4. copy file tersebut ke :
----------------------------------------------------------------
Windows Vista & 7
- "C:\Users\{username}\AppData\Roaming\Microsoft \Win dows\Start Menu\Programs\Startup"
Note : untuk Win7 biar script vbsnya coba dengan "disable UAC" (User Account Control) di Win7nya caranya : masuk ke msconfig - Tools - Pilih Change UAC Settings - Klik tombol Launch - Geser slice bar ke Never notify
Windows XP (Pilih Salah Satu)
- C:\Documents and Settings\{username}\Start Menu\ Programs\Startup
- C:\Documents and Settings\All Users\StartMenu\Programs\Startup
-------------------------------------------------------------------