}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: b38d9648 Описание: Код загружен: 13 июля 2011, 19:24 (Моисеев Евгений Леонидович)

  1. unit Unit13;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, Menus, OleCtrls, WMPLib_TLB;
  8.  
  9. type
  10. TForm13 = class(TForm)
  11. WindowsMediaPlayer1: TWindowsMediaPlayer;
  12. MainMenu1: TMainMenu;
  13. OpenDialog1: TOpenDialog;
  14. SaveDialog1: TSaveDialog;
  15. N1: TMenuItem;
  16. N2: TMenuItem;
  17. N3: TMenuItem;
  18. N4: TMenuItem;
  19. N5: TMenuItem;
  20. N6: TMenuItem;
  21. N7: TMenuItem;
  22. N8: TMenuItem;
  23. N9: TMenuItem;
  24. N10: TMenuItem;
  25. procedure N2Click(Sender: TObject);
  26. procedure N6Click(Sender: TObject);
  27. procedure N8Click(Sender: TObject);
  28. procedure N9Click(Sender: TObject);
  29. procedure N10Click(Sender: TObject);
  30. private
  31. { Private declarations }
  32. public
  33. { Public declarations }
  34. end;
  35.  
  36. var
  37. Form13: TForm13;
  38.  
  39. implementation
  40. uses Unit14, Unit1;
  41. {$R *.dfm}
  42.  
  43. procedure TForm13.N2Click(Sender: TObject);
  44. begin
  45. if OpenDialog1.Execute then
  46. begin
  47. WindowsMediaPlayer1.URL:=OpenDialog1.FileName;
  48. Form13.Caption:='SMP - '+ExtractFileName(OpenDialog1.FileName);
  49. end;
  50. end;
  51.  
  52. procedure TForm13.N6Click(Sender: TObject);
  53. begin
  54. Self.Close;
  55. end;
  56.  
  57. procedure TForm13.N8Click(Sender: TObject);
  58. begin
  59. if WindowsMediaPlayer1.PlayState = wmppsPlaying then
  60. WindowsMediaPlayer1 .Controls.Stop
  61. else
  62. WindowsMediaPlayer1.Controls.Play;
  63. end;
  64.  
  65. procedure TForm13.N9Click(Sender: TObject);
  66. begin
  67. if WindowsMediaPlayer1.PlayState =wmppsPlaying then
  68. WindowsMediaPlayer1.Controls.Pause;
  69. end;
  70.  
  71. procedure TForm13.N10Click(Sender: TObject);
  72. begin
  73. AboutBox.ShowModal;
  74. end;
  75. end.

Ссылка на данный код:

На главную страницу сервиса обмена кодом »