Table of Contents
Bagaimana saya dapat membuka suatu URL dengan Web Browser apapun yang terinstall ?
Bagaimana saya dapat membuka suatu window "New Mail" dengan program Mail apapun yang terinstal ?

Bagaimana saya dapat membuka suatu URL dengan Web Browser apapun yang terinstal ?
Terkadang, cukup sulit untuk menentukan Internet Browser apa yang terinstal pada komputer Client. Untuk itu, sebuah metode sederhana untuk membuka suatu URL tertentu diperlukan. Jangan lupa untuk menambahkan ShellAPI pada pernyataan USES !

if ShellExecute( Application.MainForm.Handle, nil, PChar( 'http://www.hianoto.net' ),
                 PChar( '' ), PChar( '' ), SW_SHOWNORMAL ) <= 32 then
  MessageDlg( 'Error in web browser', mtError, [ mbOk ], 0 );

Go Top

Bagaimana saya dapat membuka suatu window "New Mail" dengan program Mail apapun yang terinstal ?
Dibawah ini adalah cuplikan program untuk membuka window baru "New Mail" dengan program Mail APAPUN yang terinstal. Ingat, tambahkan ShellAPI pada pernyataan USES.

if ShellExecute( Application.MainForm.Handle, nil, PChar( 'mailto:hian@hianoto.net',
                 PChar( '' ), PChar( '' ), SW_SHOWNORMAL ) <= 32 then
  MessageDlg( 'Error in mail client', mtError, [ mbOk ], 0 );

Go Top