Cara memanggil aplikasi yang ada di komputer seperti word dll menggunakan delphi 2010

Cara memanggil aplikasi yang ada di komputer seperti word dll menggunakan delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Untuk langkah awal kali ini kita akan membuat ligin dalam pmbuatan kali ini kita bisa membuat form terlebih dahulu komponennya antara lain : di bawah ini dan untuk panel di letakan di paling bawah atau paling atas.

Nama komponen	caption	nama
Timage	-	Image2
Timage	-	Image2
Timage	-	Image2
Timage	-	waktu
Timage	-	Image2
Timage	-	Image2
Timage	-	Image2
Timage	-	Image2
Timage	-	Image2
Timage	-	Image2
Timage	-	Image2
Timage	-	Image2
Timage	-	Image2
Tbutton	x	Button1
Tlabel	-	Label1
Tlabel	-	Label2
Tlabel	Designprogram717	Label3
Tpanel	-	waktu
Ttimer	-	Timer1
Ttimer	-	Timer2

truz untuk t image kita bisa pilih sendiri sesuai dengan keinginan kita untuk mempercantik tampilan caranya pilih properti kemu dian pictur cari dech gambarnya sesuai kesukaan kita di usahakan yang kita buat untuk sub menu yang akan kita panggil sesuaikan gambarnya kan ga cantik jika ki memanggil word ko yang kita beri gambar roti kan g lucu kecuali image1,2,3 dan waktu so imat itu kita gunakan untuk bingkai jdi gambarnya sesuka kita mengapa image yang ke 4 ga ada ? ada cuman namanya di ganti dengan waktu sebab di waktu ini akan kita letakan panel1 untuk penampil watu biar ga lupa saja makanya di beri nama waktu terus untuk button kita kasih nama x sebab berfungsi untuk exit atau keluar

untuk langkah awal kita bbisa membuat form terlebih dahulu lalu kita bikin tampilan form klik f

Untuk form utamama marom pilih properti border style kemudian pilih bsnone agar tidak ada bordir yang akan kita ganti dengan timage / bingkai kemudian masukan kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  pastikan kode sama persis di bawah ini

unit Unit12;

//==========================================================//

//copyright : http://olvandra.blogspot.com                  //

//            http://meanddelphi.blogspot.com                //

//==========================================================//

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, jpeg, Shellapi, ExtCtrls;

Jangan lupa tambahkan shellapi

type

  TForm1 = class(TForm)

    waktu: TImage;

    Image2: TImage;

    Image3: TImage;

    Button1: TButton;

    Image5: TImage;

    Image6: TImage;

    Image7: TImage;

    Image8: TImage;

    Image9: TImage;

    Image10: TImage;

    Image11: TImage;

    Image12: TImage;

    Image13: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Timer1: TTimer;

    Label3: TLabel;

    waktu1: TPanel;

    Timer2: TTimer;

    Image1: TImage;

    procedure Image13MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Image12MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Image10MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Image11MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Image9MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Image12Click(Sender: TObject);

    procedure Label1MouseEnter(Sender: TObject);

    procedure Image13Click(Sender: TObject);

    procedure Image10Click(Sender: TObject);

    procedure Image11Click(Sender: TObject);

    procedure Image8Click(Sender: TObject);

    procedure Image7Click(Sender: TObject);

    procedure Image9Click(Sender: TObject);

    procedure Image6Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

Untuk button kita klik dua kali lalu masukan kodeseperti di bawah ini

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

dan klik dua kali pada form lalu masukan kode seperti di bawah ini

procedure TForm1.FormCreate(Sender: TObject);

begin

ShellExecute(Application.handle, 'open', 'designprogram717.blogspot.com', nil, nil,

SW_ShowNormal);

end;

untuk memanggil media player klik 2 kali pada image 10lalu masukan kode seperti dibawah ini oy untuk imagenya jangan lupa di sesuaikan dengan media player,

procedure TForm1.Image10Click(Sender: TObject);

begin

ShellExecute(Application.handle, 'open', 'wmplayer.exe', nil, nil,

SW_ShowNormal);

end;

dan di imag sepuluh pulak kita pilih even on mous move untuk menampilkan nama di label2 agar lebih bagus dan kita tau fil apa yang akan kita panggil,

procedure TForm1.Image10MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

label2.Caption:='Media Player';

end;

untuk memanggil kalkulator klik 2 kali pada image 11lalu masukan kode seperti dibawah ini oy untuk imagenya jangan lupa di sesuaikan dengan kalkulator,

procedure TForm1.Image11Click(Sender: TObject);

begin

ShellExecute(Application.handle, 'open', 'calc.exe', nil, nil,

SW_ShowNormal);

end;

dan di imag 11 juga kita pilih even on mous move untuk menampilkan nama di label2 agar lebih bagus dan kita tau fil apa yang akan kita panggil,

procedure TForm1.Image11MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

label2.Caption:='Kalkulator';

end;

untuk memanggil internet explorer klik 2 kali pada image 12 lalu masukan kode seperti dibawah ini oy untuk imagenya jangan lupa di sesuaikan dengan internet explorer

procedure TForm1.Image12Click(Sender: TObject);

begin

ShellExecute(Application.handle, 'open', 'iexplore.exe', nil, nil,

SW_ShowNormal);

end;

dan di imag 12 juga kita pilih even on mous move untuk menampilkan nama di label2 agar lebih bagus dan kita tau fil apa yang akan kita panggil,

procedure TForm1.Image12MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

Label2.Caption:='Internet Explorer';

end;

untuk memanggil ferefox klik 2 kali pada image 13 lalu masukan kode seperti dibawah ini oy untuk imagenya jangan lupa di sesuaikan dengan ferefok

procedure TForm1.Image13Click(Sender: TObject);

begin

ShellExecute(Application.handle, 'open', 'firefox.exe', nil, nil,

SW_ShowNormal);

end;

dan di image 13 juga kita pilih even on mous move untuk menampilkan nama di label2 agar lebih bagus dan kita tau fil apa yang akan kita panggil,

procedure TForm1.Image13MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

label2.Caption:='Mozila FireFox';

end;

dan di imag 5 juga kita pilih even on mous move untuk menampilkan nama di label1berubah warnanya jadi hijau dan label2 o agar lebih bagus dan kita tau fil apa yang akan kita panggil,

procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

label1 .Caption:='designprogram717.blokspot.com';

label1.Font.Color:=clLime;

label2 .Caption:='';

end;

untuk memanggil ms acces klik 2 kali pada image 6 lalu masukan kode seperti dibawah ini oy untuk imagenya jangan lupa di sesuaikan dengan ms acces

procedure TForm1.Image6Click(Sender: TObject);

begin

ShellExecute(Application.handle, 'open', 'ACCICONS.exe', nil, nil,

SW_ShowNormal);

end;

dan di image 6 juga kita pilih even on mous move untuk menampilkan nama di label2 agar lebih bagus dan kita tau fil apa yang akan kita panggil

procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

label2.Caption:='Ms.Access 2007';

end;

untuk memanggil ms powerpoint klik 2 kali pada image 7 lalu masukan kode seperti dibawah ini oy untuk imagenya jangan lupa di sesuaikan dengan ms acces

procedure TForm1.Image7Click(Sender: TObject);

begin

ShellExecute(Application.handle, 'open', 'POWERPNT.exe', nil, nil,

SW_ShowNormal);

end;

dan di image 7 juga kita pilih even on mous move untuk menampilkan nama di label2 agar lebih bagus dan kita tau fil apa yang akan kita panggil

procedure TForm1.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

label2.Caption:='Ms.Power Point 2007';

end;

untuk memanggil ms word klik 2 kali pada image 8 lalu masukan kode seperti dibawah ini oy untuk imagenya jangan lupa di sesuaikan dengan ms word

procedure TForm1.Image8Click(Sender: TObject);

begin

ShellExecute(Application.handle, 'open', 'Winword.exe', nil, nil,

SW_ShowNormal);

end;

dan di image 8 juga kita pilih even on mous move untuk menampilkan nama di label2 agar lebih bagus dan kita tau fil apa yang akan kita panggil

procedure TForm1.Image8MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

label2.Caption:='Ms.Word 2007';

end;

untuk memanggil ms exel klik 2 kali pada image 7 lalu masukan kode seperti dibawah ini oy untuk imagenya jangan lupa di sesuaikan dengan ms exel

procedure TForm1.Image9Click(Sender: TObject);

begin

ShellExecute(Application.handle, 'open', 'excel.exe', nil, nil,

SW_ShowNormal);

end;

dan di image 9 juga kita pilih even on mous move untuk menampilkan nama di label2 agar lebih bagus dan kita tau fil apa yang akan kita panggil

procedure TForm1.Image9MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

label2.Caption:='Ms.Excel 2007';

end;

kemudian di label1 juga akan kita beri even on mous enter berfungsi untukmengubah warna label1dan memrubah nama label2 masukan kode seperti di bawah ini pada even on mous move klik 2x lalu masukan kode seprti di bawah ini

procedure TForm1.Label1MouseEnter(Sender: TObject);

begin

label1.Font.Color:=clBlue;

label2.Caption:='designprogram717.blogspot.com';

end;

pada timer 1 kita klik 2x lalu masukan kode seperti di bawah ini jangan lupa di properti intervar ubah menjadi 10

procedure TForm1.Timer1Timer(Sender: TObject);

begin

if label3.Left <= 700 then

label3.Left := label3.Left + 2

else

label3.Left := -310;

end;

dan di timer2 kita masukan kode seperti di bawah ini untuk menampilkan waktu

procedure TForm1.Timer2Timer(Sender: TObject);

begin

  waktu1.Caption:=FormatDateTime('dddd, dd mmmm yyyy (hh:mm:ss)',Now);

end;

//==========================================================//

//copyright : designprogram717.blogspot.com                  //

//            http://meanddelphi.blogspot.com               //

//==========================================================//

end.

Selesai dech program yang kita buat kali ini jangan lupa even2 yang akan kita beri perintah yea so 1 komponen banyak yang memiliki 2 iven

Selamat mencoba

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717