sariye

uses MMSystem;

// 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;

//Kullanimi:
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDoor;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Closedoor;
end;

ismltr

sağol kardeş ii olmuş

makinist

Bunlarla ne ugrasacan kardeş altında açmak için düğmesi yokmukine )

__________________

To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.

mehmettev

Aha işte uygulaması :P

Eklenmiş Dosya

mehmet.zip (3,0 KB (Kilobyte), 8x kez indirilmiştir)

__________________

To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.

"The difficult we do right away. The impossible takes slightly longer."

To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.