Cara Membuat Open Link dengan Delphi

selamat datang.
saya kali ini akan membuat alikasi open link dengan delphi yang sederhana mungkin bermanfaat bagi anda penggemar delphi, kalu yang sudah tau/yang sudah mehir dengan delphi mohon di maklumi ajah soalnya saya juga baru belajar dengan delphi.

Oke lah Langsung saja kita mulai buat aplikasinya..?

Yang pertama kali kita buat yaitu desain terlebih dahulu form nya seperti gambar di atas sanah..

Cuma siapkan 1 form, 4 Bitbtn, 1 Label.

Ya kalau sudah mendesain formnya seperti gambar di atas. Kita langsung ke masalah koding mengkoding.

Buka unit koding nya,

Tuliskan di bagian Uses (ShellApi) seperti gambar di bawah ini.

Jika sudah tinggal menambahkan kodingnya di bagian tombol – tombolnya.

Klik 2x di Tombol facebook me /bitbtn1. Isikan koding seperti  di bawah ini.

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

shellexecute(handle,'open','http://facebookt.com/',nil,nil,0);

end;

sudah kah anda menulis kodingnya seperti yang di atas kalu sudah kita lanjutkan ke tombol

twitter me/ bitbtn2, klik 2x tombolnya terus isikan kodingnya.

shellexecute(handle,'open','http://twitter.com/farid_cocohex',nil,nil,0);

terus giliran tombol google.com/ bitbtn3 seperti langkah di atas klik2x tombolnya. Isikan kodingnya.

shellexecute(handle,'open','http://anteater175.blogspot.com/',nil,nil,0);

dan selanjutnya dan yang terakhir tombol Blog me/ bitbtn4. Klik2x tombolnya tuliskan kodingnya.

shellexecute(handle,'open','http://google.com/',nil,nil,0);

beres tinggal kita RUN ajah, dan tara Aplikasi Open Linknya sudah berhasil.

Anda juga bisa menambahkan link”-link apa ajah bisa menyimpan ribuan link. Tinggal ganti alamat linknya.

Oke sudah beres tutornya membuat Aplikasi open Link nya.

Cukup sekian tutorialnya kali ini. Saya Farid Edo atas nama admin Anteater 175, mengucapkan.

Terimakasih Telah mengunjungi Blog ini,

Silahkan Komentarnya saya tunggu,

//Ingat kalu ada komentar yang seronoh, spam, nglink,dll yang melanggar aturan saya akan tindak lanjuti komentar anda Terimakasih                                                                                                                          

Good Luck..??