Pada Delphi, sebuah aplikasi yang dibuat dapat diberikan Hiperlink yang akan mengeksekusi link ataupun membuka data (pada drive Hard Disk). Sedangkan Hyperlink dapat dibuat dengan perintah ShellExecute.Sebagai contoh, listing program dibawah ini akan mengeksekusi link 'http://fiqih-88.blogspot.com' atau mengirim E-mail menggunakan Windows Outlook Express pada alamat E-mail ‘fiqih_88@yahoo.co.id’.
Listing Program :
…
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Label1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(0, 'open', 'http://fiqih-88.blogspot.com', '', '',
SW_SHOWNORMAL);
end;
procedure TForm1.Label2Click(Sender: TObject);
begin
ShellExecute(0, 'open',
'mailto:fiqih_88@yahoo.co.id?Subject=Halo...!!!',
'', '', SW_SHOWNORMAL);
end;
0 komentar:
Posting Komentar
Silahkan tinggalkan komentar Anda...