Penjelasan Fungsi Shell di Delphi XE5

By: QMPC Network on 21.52

Shell adalah suatu aplikasi yang mampu mengendalikan aplikasi lain dalam sebuah sistem operasi Microsoft Windows. Shell mampu mengendalikan aplikasi lain dalam hal membuka file/folder, mencetak file, menjalankan file executable dll. Sedangkan Shell Programming adalah suatu pemrograman yang menghasilkan suatu aplikasi yang dapat mengendalikan aplikasi lain.

Pada Delphi, shell dideklarasikan menjadi beberapa fungsi yang berbeda. Ada 11 fungsi shell yang tercantum dalam Shell Library Functions yaitu :
-> DragAcceptFiles
-> DragFinish
-> DragQueryFile
-> DragQueryPoint
-> ExtractAssociatedIcon
-> ExtractIcon
-> ExtractIconEx
-> FindExecutable
-> ShellAbout
-> ShellExecute
-> ShellExecuteEx

Karena keterbatasan pengetahuan penulis maka implementasi dari fungsi-fungsi shell tidak akan dibahas semua. Namun yang pasti fungsi-fungsi yang dibahas disini adalah fungsi shell yang penting dan umum digunakan didalam pembuatan aplikasi. Untuk menggunakan fungsi-fungsi shell dalam delphi, kita perlu mendeklarasikan file header ( file library yang berisi fungsi-fungsi shell ) terlebih dahulu, supaya delphi mengkompile file header tersebut bersama dengan file aplikasi yang kita buat sehingga fungsi-fungsi shell tersebut berjalan. File library yang dimaksud adalah ShellApi.h, untuk mendeklarasikannya cukup dengan menambahkanShellApi pada klausa uses.

Uses ShellApi,Windows, Messages, SysUtils, .....;

atau bisa juga di bawah klausa Implementation

Implementation
uses ShellApi;

Berbagai source code shell :

- Menjalankan program aplikasi tertentu :
ShellExecute(handle, 'open', Pchar('C:\BagusSoft.exe'),0,0,SW_SHOW);

- Menjalankan Notepad dan membuka sebuah file dokumen
ShellExecute(handle,'open','notepad.exe',Pchar('C:\unit1.pas'),0, SW_SHOW);

- Mencetak file dokumen
ShellExecute(handle,'print',Pchar('C:\latihan.txt'),0,0,SW_SHOW);

- Membuka browser dengan alamat URL tertentu
ShellExecute(handle,'open',Pchar('http://www.qmpctutorial.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);