Cara Open File dengan Delphi VCL

Assalamu'alaikum wr, wb. 

 

Pada postingan kali ini saya akan memberikan sebuah catatan tentang cara menjalankan file atau program dengan Delphi VCL.



Sangat mudah sekali,, dan juga mudah dihafal.

Oke langsung saja kita ke pembahasan.

 

Seperti biasa, buka dulu Delphi, dan buat project baru (File > New > VCL Form Application - Delphi)

 

Selanjutnya tambahkan 5 button. Ubah Captionnya masing-masing menjadi

   - "Jalankan Program"

   - "Buka Folder"

   - "Buka File *.txt dengan Notepad"

   - "Buka Halaman Web" dan

   - "Buka FIle dengan Program Default".

 

 

Masukkan Uses ShellApi.

 

 

Masukkan kode berikut, pada event button click.

 

- Button "Jalankan Program"

 

   procedure TForm2.Button1Click(Sender: TObject);
   begin
     ShellExecute(Handle, 'open', 'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL) ;
      end;

 

- Button "Buka File *.txt dengan Notepad"

 

   procedure TForm2.Button2Click(Sender: TObject);
   begin
     ShellExecute(Handle,'open', 'c:\windows\notepad.exe', '.\Execute.txt', nil, SW_SHOWNORMAL) ;
   end;

 

- Button "Buka Halaman Web"

 

   procedure TForm2.Button3Click(Sender: TObject);
   begin
     ShellExecute(Handle, 'open', 'http://tutorialkodedelphi.blogspot.com',nil,nil,  SW_SHOWNORMAL) ;
   end;

 

- Button "Buka Folder"

 

   procedure TForm2.Button4Click(Sender: TObject);
   begin
     ShellExecute(Handle, 'open', '..\debug', nil, nil, SW_SHOWNORMAL) ;
   end;

 

- Button "Buka FIle dengan Program Default"

 

   procedure TForm2.Button5Click(Sender: TObject);
   begin
     ShellExecute(Handle, 'open', '.\Execute.docx',nil,nil,SW_SHOWNORMAL) ;
   end;

 

Sekian dari saya.

Saya tunggu komentarnya.

Untuk contoh program silakan klik di sini.

 

Wassalamu'alaikum wr, wb.