Reproductor Delphi

[[escafandra]]

Empezado por anonymous

... el unico error es que al apretar ESC se cierra el programa

Tienes razón, no me di cuenta al sacar distintas versiones de lo mismo. La solución es bien fácil:

Código Delphi [-]
procedure TForm1.FullScreenKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
  VK_ESCAPE = $1B;
begin
  if Key = VK_ESCAPE then (Sender as TForm).Close;
end;

Saludos.