Adicione:
2 Button
Em Text
Button 1 para Abrir
Button 2 para Fechar
De 1 clique no Button 1 e adicione esse codigo:
Código:
Depois Adicione esse codigo no Button 2:
Código:
Scan
2 Button
Em Text
Button 1 para Abrir
Button 2 para Fechar
De 1 clique no Button 1 e adicione esse codigo:
Código:
- Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;
Depois Adicione esse codigo no Button 2:
Código:
- Código:
procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;
end.
Scan
- Anexos
- Abridor de CD-ROOM.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (6.1 Mb) Baixado 0 vez(es)