Mengeksekusi Aplikasi dan Files dari Delphi : Stillcetek

14
Nov

Mengeksekusi Aplikasi dan Files dari Delphi

Delphi

Hemm saya ingin membuka file chm, atau html dibrowser, atau membuka file doc dengan MS Word langsung dari aplikasi Delphi yang saya buat. Yuk di coba.

Kode untuk mengeksekusi aplikasi atau file adalah shellExecute(), sebelumnya anda harus menambahkan sebuah library ShellApi di bagian uses. Yuk lihat beberapa contoh dibawah.

unit Unit1;
  interface uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls, ShellApi;

type

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
  var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bukaAppWord(Sender: TObject);
begin
ShellExecute(Handle,'open','C:Program FilesMicrosoft OfficeOFFICE11WINWORD.EXE',nil,nil,SW_SHOWNORMAL)
end;

procedure TForm1.bukaFileDocPakeWord (Sender: TObject);
begin
ShellExecute(Handle,'open', 'C:Program FilesMicrosoft OfficeOFFICE11WINWORD.EXE','C:MyDocument.doc', nil, SW_SHOWNORMAL) ;
end;

procedure TForm1.bukaFileSesusaiTypenya(Sender: TObject);
begin
ShellExecute(Handle,'open','C:file.chm', nil,nil, SW_SHOWMAXIMIZED) ;
end;

procedure TForm1.bukaWebStillcetekCom(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'http://www.stillcetek.com',nil,nil, SW_ SHOWMAXIMIZED) ;
end;

end.

Author : Lukman

Comments

6 Responses to “Mengeksekusi Aplikasi dan Files dari Delphi”

ipul on June 19th, 2008 11:15 am

kok g lengkap sich contohnya….seharusnya yg lengkap agar bisa di buat contoh oleh orang lain
Lukman on June 19th, 2008 11:55 am

agar tinggal liat hasilnya? kebiasaan kita memang begitu tinggal pake,g mau coba-coba.

saya kira kode diatas sudah gamblang. dan tinggal copy paste ke event tertentu.
nita on August 2nd, 2008 8:45 am

mas… sya sudah coba script diats tapi gak bisa tu… saya letakkan di event onclick milik button 1… saya pinginya bisa me-attach file . doc yang uda di scan di komputer gt mas…

mohon bantuaanya…

maturnuwun….
Lukman on August 2nd, 2008 4:03 pm

untuk attach file? mungkin salah menggunakan, program diatas kan cuma untuk membuka file yang sudah ada sebelumnya di hardisk, dan file itu akan dibuka sesuai dengan aplikasi yang bisa membuka file dengan ext tersebut.

atau menjalankan sebuah aplikasi yang sudah terinstall dikomputer kita.

lalu yang dimaksud dengan attach file itu apa ya?
princess on August 4th, 2008 8:32 am

jadi begini mas…. saya kepingin aplikasi saya tersebut bisa digunakan untuk mengambil dan menyimpan file .doc yang saya ambil di hardisk saya….dan juga bisa membuka file tersebut juga…

itu gimana mas….

mohon bantuannya… saya Lagi bikin aplikasi buat PKL nie…. makasiiihhh…
princess on August 4th, 2008 8:45 am

jadi begini mas…. saya kepingin aplikasi saya tersebut bisa digunakan untuk mengambil dan menyimpan file .doc yang saya ambil di hardisk saya….dan juga bisa membuka file tersebut juga…

itu gimana mas….

mohon bantuannya… saya Lagi bikin aplikasi buat PKL nie…. makasiiihhh… ^_^

Mengeksekusi Aplikasi dan Files dari Delphi

Comments

Leave a Reply