Dephi De Cd Sürücü Kapağini Açma Kapama Kodu

[denizonur]

:hhman:

:Sopa




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;

 

[denizonur]

arakadaşlar deneyin bi sorun olursa cevaplamaya hazırız

 

[nill]

her yerde bu kodu bulabilriz sagol yinede. hatta ders kitaplarında bile var