Bilgisayarımıza yazdığımız kodlarla emir verebilir, ondan istediğimiz gibi faydalanabiliriz.. Nasıl mı çok basit.. Ama bilgisayarımızın donanımına ait bir takım kalıp kodları bilmeliyiz.. Mesela örnek olarak bir CD-Rom açma-kapama programı yapıyoruz. CD-Rom'un çalışması manuel olarak iki şekildedir. Ya açılır, ya da kapanır. Cd'yi okuması vs. otomatik gerçekleşen işlemler olduğundan ayrıca koda gerek yoktur onlar için..

Örneğin ben yazmış olduğum Cd-Rom açma-kapama programında kullandığım önemli iki kod var. Buyrun kodlar:

unit Unit1;

interface

uses
  Windows, MMSystem, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, SkinCaption, WinSkinData;

type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    SkinData1: TSkinData;
    SkinCaption1: TSkinCaption;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Ac
Procedure OpenDoor;
Begin
  mciSendString('Set cdaudio door open', nil, 0, 0);
End;

// Kapat
Procedure CloseDoor;
Begin
  mciSendString('Set cdaudio door closed', nil, 0, 0);
End;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
opendoor;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
closedoor;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

Burada dikkat etmemiz gereken konu dediğim gibi açılış ve kapanış kalıp kodları..