Delphi for delphier

Langkah-langkah membuat program untuk mengecek apakah aplikasi microsoft office sedang dijalankan atau tidak

 
   
Oleh
eko-indriyawan-png.png   Nama Eko Indriyawan
Domisili Surabaya – Darmo Satelit
Delphi Delphi 2007 for Win32
YM eko_elits
Email eko_elits@yahoo.com
Telp 031 – 605 384 36
   
Petunjuk :
Silahkan anda ikuti langkah – langkah berikut ini dengan pelan – pelan agar bisa berjalan dengan lancar sesuai dengan petunjuk yang sudah diberikan.
   
Langkah 1
   
Langkah 2
Tambahkan beberapa object kedalam Form.
   
      Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Button2: TButton;
    Bevel1: TBevel;
   
Langkah 3
Atur desainnya seperti berikut ditampilkan pada gambar form dibawah ini. Klik disini untuk melihat kode form dibawah ini.
   
 
menengahactivex00000000000001.png
   
Langkah 4
Tambahkan library ComObj dan ActiveX pada uses. Untuk lebih jelasnya, silahkan anda lihat potongan kode program berikut ini.
   
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComObj, ActiveX;
   
Langkah 5
Lanjutkan dengan membuat fungsi pengecekan status program aplikasi. Untuk lebih jelasnya silahkan anda lihat potongan kode program berikut ini.
   
 
function IsObjectActive(ClassName: string): Boolean;
var
  ClassID: TCLSID;
  Unknown: IUnknown;
begin
  try
    ClassID := ProgIDToClassID(ClassName);
    Result  := GetActiveObject(ClassID, nil, Unknown) = S_OK;
  except
    Result := False;
  end;
end;
   
Langkah 6
Sekarang silahkan anda lanjutkan dengan mengklik 2x tombol Cek Status dan isikan kode program didalam event OnClick seperti terlihat pada potongan kode program dibawah ini.
   
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := ‘Status Offline‘;
Edit2.Text := ‘ Status Offline‘;
Edit3.Text := ‘ Status Offline‘;
Edit4.Text := ‘ Status Offline‘;
Edit5.Text := ‘ Status Offline‘;
if IsObjectActive(‘Word.Application‘) then
  Edit1.Text := ‘ Status Online‘;
if IsObjectActive(‘Excel.Application‘) then
  Edit2.Text := ‘ Status Online‘;
if IsObjectActive(‘Outlook.Application‘) then
  Edit3.Text := ‘ Status Online‘;
if IsObjectActive(‘Access.Application‘) then
  Edit4.Text := ‘ Status Online‘;
if IsObjectActive(‘Powerpoint.Application‘) then
  Edit5.Text := ‘ Status Online‘;
end;
   
Langkah 7
Setelah itu program aplikasi anda compile dengan menekan tombol Ctrl + F9.
   
Langkah 8
Lanjutkan dengan menekan tombol F9 hingga program aplikasi siap dijalankan.
   
 

menengahactivex00000000000002.png

   
Langkah 9
Sekarang anda jangan menjalankan salah satu program aplikasi Microsoft Office.
   
Langkah 10
Tekan tombol Cek Status. Apabila berhasil, maka akan ditunjukkan tampilan seperti terlihat dibawah ini.
   
 

menengahactivex00000000000003.png

   
Langkah 11
Sekarang anda jalankan program aplikasi Microsoft Office Powerpoint.
   
Langkah 12
Kemudian anda tekan tombol Cek Status sekali lagi.
   
Langkah 13
Apabila berhasil, maka akan terlihat tampilan program aplikasi seperti ditunjukkan pada gambar dibawah ini.
   
 

menengahactivex00000000000004.png

   
Langkah 14
Program aplikasi pengecekan sudah selesai dilakukan. Silahkan anda tutup program aplikasi ini dengan menekan tombol Keluar.
   
Download
Klik disini untuk mendapatkan contoh kode programnya
 
Klik disini untuk mendapatkan video tutorialnya
   
Buku panduan
Dasar First Step To Be A Programmer
Menengah Pemrograman Database dengan Delphi dan MS SQL Server
Menengah Membangun database MLM
   
 

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: