Stillcetek

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.