Tuesday, 28 February 2017T2/28/2017 08:20:00 pm

FUNGSI DAN PENGGUNAAN SHELLAPI DI DELPHI

Salam blogger…..pada postingan artikel saya kali ini saya akan membahas tentang cara penggunaan shellapi di Delphi. Fungsi shellapi sendiri adalah untuk memanggil program lain dengan menggunakan program Delphi yang kita buat. Dengan shellapi kita dapat memanggil program lain dengan format exe, text, file, software lain, alamat web, media player, aplikasi ms. Office dan lain sebagainya. Dalam membangun sebuah aplikasi terkadang kita perlu untuk memanggil sebuah file atau exe lainnya yang ada kaitannya dengan program aplikasi yang kita buat.
Pada dasarnya untuk membuka sebuah file diatas melalui Delphi dapat dilakukan dengan cara menggunakan fungsi shellapi, kita hanya perlu menambahkan shellapi pada klausa uses, jika library nya sudah ditambahkan maka kita hanya perlu menambahkan sedikit perintah program untuk memanggil atau membuka file yang kita inginkan. Untuk lebih jelasnya akan saya jelaskan pada paragraph di bawah ini.

Untuk dapat menggunakan fungsi shellapi di Delphi kita perlu mendeklarasikan file library shell yang akan kita gunakan, hal ini bertujuan agar Delphi dapat mengkompile kan fungsi shellapi dengan file yang akan kita panggil atau kita buka yang akan kita jalankan. Untuk mendeklarasikannya kita cukup menambahkan file shellapi di klausa uses.
Contoh : uses Winapi.Windows, ShellApi, Vcl.Imaging.pngimage, Vcl.DBCtrls;
Atau kita bisa juga menempatkannya di klausa implementation ;
Implementation
Uses shellapi;


Jika kita sudah menambahkan library pada uses, maka selanjutnya kita akan menambahakan sebuah perintah untuk memanggil kode program yang akan kita panggil, contoh coding program nya berikut ini :
procedure TFmenu.SpeedButton10Click(Sender: TObject);
begin
ShellExecute(handle, 'open', 'C:\AplikasiKTP\manual aplikasi.pdf','','',SW_RESTORE);
end;

penjelasanya :

 - Tulisan yang berwarna merah merupakan path dan nama file yang akan kita panggil.

 - SW_RESTORE  : mengaktifkan dan menampilkan windows, jika windows maximize

Untuk tulisan yang berwarna merah sobat dapat menyesuaikan penempatan path file dan nama file yang akan di panggil sesuai dengan kebutuhan aplikasi sobat.

Jika kita ingin memanggil sebuah alamat website melalui browser yang ada di pc kita maka perintah coding program nya adalah sebagai berikut :
procedure TFinfo.Label4Click(Sender: TObject);
begin
shellexecute(self.Handle,'open','firefox','uduymacal.com',nil,SW_Normal);
end;

penjelasannya ;

 - Firefox merupakan nama browser yang akan kita panggil

 - uduymacal.com merupakan nama situs yang akan kita buka


dari contoh diatas akan saya jelaskan jenis parameter yang digunakan di shellapi dibawah ini :

 - SW_HIDE -> Menyembunyikan window dan mengaktifkan window lain.

 - SW_MAXIMIZE -> Maximizes window.

 - SW_MINIMIZE -> Minimizes window dan mengaktifkan window berikutnya.

 - SW_SHOW -> Mengaktifkan dan menampilkan window pada ukuran dan posisi pada saat itu.

 - SW_RESTORE -> mengaktifkan dan menampilkan windows, jika windows maximize atau minimize maka window akan dikembalikan pada ukuran dan posisi aslinya.

 - SW_SHOWDEFAULT -> Mengaktifkan dan menampilkan default window

 - SW_SHOWMINNOACTIVE ->kombinasi

 - SW_SHOWNA ->kombinasi

 - SW_SHOWNOACTIVATE -> kombinasi

 - SW_SHOWNORMAL -> kombinasi

 - SW_SHOWMAXIMIZED -> kombinasi

 - SW_SHOWMINIMIZED -> kombinasi.

Berikut ini juga saya tambahkan beberapa contoh untuk memanggil file tertentu :

- Menjalankan program aplikasi tertentu :

ShellExecute(handle, 'open', Pchar('D:\Administrasi.exe'),0,0,SW_SHOW);


- Menjalankan Notepad dan membuka sebuah file dokumen

ShellExecute(handle,'open','notepad.exe',Pchar('D:\unit3.pas'),0, SW_SHOW);


- Mencetak file dokumen

ShellExecute(handle,'print',Pchar('D:\help.txt'),0,0,SW_SHOW);


- Membuka browser dengan alamat URL tertentu

ShellExecute(handle,'open',Pchar('http://www.google.com'),nil,nil, SW_SHOW);


- Mengeksplore folder dengan Windows Eksplorer

ShellExecute(handle,'explore',PChar('C:\WINDOWS'),nil,nil,SW_SHOW)


- Menjalankan sebuah perintah DOS

ShellExecute(handle, 'open', PChar('command.com'),

PChar('/c copy file1.exe file2.exe'),nil,SW_SHOW);

Demikian artikel saya kali ini tentang fungsi shellapi di Delphi yang dapat saya share kali ini kepada sobat semua, semoga dapat bermanfaat bagi sobat semua dan selamat mencoba.
Previous
Next Post »
2 Komentar untuk "FUNGSI DAN PENGGUNAAN SHELLAPI DI DELPHI"

agan memang juaranya kalau urusan programing artikelnya sangat bagus dan baik gan rapih lagi

biasa aja gan....saya cuma berbagi ilmu yang sudah saya dapat kepada pembaca aja...

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status