Free Pascal Lazarus : Aplikasi Membuka File atau Berkas

Masih me-refresh pemrogrman Delphi dengan Lazarus Free Pascal. Kali ini mengutip dari laman blog Dhian Prameswara yakni membuat aplikasi untuk membuka file atau berkas sesuai dengan aplikasi default-nya.

Aplikasi Windows membuka file cukup sederhana hanya menggunakan sebuah button untuk membuka window dialog file. Saya tambahkan satu tombol untuk keluar dari aplikasi.
Langkah pertama, buka aplikasi Free Pascal Lazarus dan buat new project.
Langkah kedua, tambahkan Button1 dan Button2 dari tab Standard serta berikan nama caption “Open File” pada Button1 dan “Exit” pada Button2.
Langkah ketiga, tambahkan komponen OpenDialog1 dari tab Dialogs. Kamu bisa mengubah properti filter OpenDialog1 untuk menentukan ekstensi file yang akan ditampilkan.


Langkah keempat, tambahkan unit process di uses
Langkah kelima, klik-ganda Button1 yang akan membuat prosedur Event OnCLick.
Kemudian ketik skrip dibawah:

procedure TForm1.Button1Click(Sender: TObject);
var
lProcess: TProcess;
begin
if OpenDialog1.Execute then
begin
// buat object process yang akan melakukan eksekusi command
lProcess :=TProcess.Create(Self);
lProcess.Options:=lProcess.Options+[poWaitOnExit];
lProcess.Executable:=’explorer’;
// nama file yang akan dibuka dimasukkan sebagai parameter pertama
// untuk command tersebut
lProcess.Parameters.Append(OpenDialog1.FileName);
// execute command
lProcess.Execute;
lProcess.Free;
end;
end;

Ada penambahan TProcess, non-visual component yang memungkinkan eksekusi program eksternal. Sintaks lProcess.Free untuk membebaskan memory komputer setelah TProcess tidak digunakan lagi.

Langkah terakhir, buat perintah “Close” di prosedur Button2Click.

Jangan lupa simpan project dan selanjutnya eksekusi Run F9. Ukuran file exe sekitar 20MB cukup ringkas.

Be the first to comment

Leave a Reply

Your email address will not be published.


*