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ı..
Nerden
İş/Hobiler
Lakap
Salı Ara. 08, 2009 4:23 pm