Cek Program di komputer (Delphi 7)

Sekilas Program Iseng-iseng Untuk Mengecek Aplikasi yang ada didalam Komputer Apakah sudah terinstal atau belum, nah  kali ini saya buat tutorial nya sebagai contohnya didalam program saya menggunakan Cek Untuk Photoshop, Word dan Access. dengan manggil fungsi dari Registry windows, ok langsung aja ke Tutorialnya :

yang Mw download Source Code nya :

Via Mediafire
>Download<

Via 4Shared
>Download<

Listing Lengkap :





=========================Begin Code===================
unit Unit1;
//http://olvandra.blogspot.com
//http://meanddelphi.blogspot.com

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, XPMan, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    XPManifest1: TXPManifest;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton5: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses registry;

{$R *.dfm}

function Installed : Boolean;
var
  Ke: TRegistry;
begin
  Ke:= TRegistry.Create;
  With Ke do
  Begin
    RootKey:=HKEY_CLASSES_ROOT;
    result := Keyexists('Word.Application');
    Free;
  end;
end;

function Installed2 : Boolean;
var
  Ke: TRegistry;
begin
  Ke:= TRegistry.Create;
  With Ke do
  Begin
    RootKey:=HKEY_CLASSES_ROOT;
    result := Keyexists('Access.Application');
    Free;
  end;
end;

function Installed3 : Boolean;
var
  Ke: TRegistry;
begin
  Ke:= TRegistry.Create;
  With Ke do
  Begin
    RootKey:=HKEY_CLASSES_ROOT;
    result := Keyexists('Photoshop.Application');
    Free;
  end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin

  if Installed then
  begin
    ShowMessage('..TERINSTALL..');
    end
    else
    ShowMessage('~_~ BELUM TERINSTALL ~_~');

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  if Installed2 then
  begin
    ShowMessage('..TERINSTALL..');
    end
    else
    ShowMessage('~_~ BELUM TERINSTALL ~_~');
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
  if Installed3 then
  begin
    ShowMessage('..TERINSTALL..');
    end
    else
    ShowMessage('~_~ BELUM TERINSTALL ~_~');
end;

end.

==========================END CODE=================