Delphi'de Bilgisayarımıza Donanımsal Komutlar Vermek

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ı..

» SSH komutlar. ssh kullanımı
» Linuxda Genel Amaclı Komutlar
» Photoshopta Korku Filmi Efekti Vermek
» Corel Draw Dersleri: Açık Bir Yola Fill Vermek..