Aplikasi SItus Favorite

Hey, Kita sekarang akan membuat sebuah aplikasi sederhana, untuk menyimpan website favorite kita
sehingga kalian gak perlu lagi khawatir apabila lupa dengan link website kalian.

Oke, Langsung to do point aja ya Sob !

Pertama buka Borland Delphi, terus bikin formnya Seperti ini :

Yang Kedua Isi Combobox1 di items tstring seperti ini

setelah mengikuti langkah tersebut, isikan listing codenya seperti ini

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
//pemanggilan unit shellapi dan comobj
uses shellapi,comobj;
procedure aktif(sobjectpath:string);
//Listing untuk prosedur pemanggilan Link
begin
shellexecute(0,nil,pchar(sobjectpath),nil,nil,SW_NORMAL);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case combobox1.ItemIndex of
 0:aktif('www.facebook.com');
 1:aktif('www.google.com');
 2:aktif('www.twiiter.com');
 3:aktif('www.youtube.com');
 4:aktif('students.bsi.ac.id');
 5:aktif('krucaci.blogspot.com');
end;

end;

end.

Oke, setelah semua selesai, silahkan di run atau F9.
dan lihat hasilnya.

Kalau mau instan silahkan download di sini ,
Klik Disini UNtuk Download Bro

REFRESNI::
LUPA BRO AMBIL DARI BUKU MANA :D