Buatlah rancangan form seperti berikut :
Pada Uses tambahkan secara manual ShellApi seperti berikut :
procedure TForm1.Button1Click(Sender: TObject);
begin
Shellexecute(handle,'open','coba.doc','',nil,sw_shownormal);
end;
Jika sudah selesai jalankan programnya dan klik tombol Buka Ms.Word apakah Ms.Word tampil? hasilnya pasti tidak terjadi apa-apa karena file yang akan dijalankan belum disiapkan, jadi maksud dari perintah coba.doc adalah aplikasi akan menjalankan Ms.Word dengan nama coba.doc yang berada 1 folder atau 1 direktori dengan aplikasi (.exe) , jika beda folder sebelum coba.doc ditambahkan keterangan direktorinya.
Untuk ShellApi ini sendiri tentunya tidak terbatas hanya untuk membuka Ms.Word saja , disini Ms.Word hanya sebagai contoh, jika akan membuka aplikasi lain tinggal menyesuaikan aplikasi apa yang akan dibuka.
Tidak ada komentar:
Posting Komentar