{"id":765,"date":"2008-05-26T07:15:11","date_gmt":"2008-05-26T07:15:11","guid":{"rendered":"http:\/\/6teen.ru\/?p=488"},"modified":"2008-05-26T07:15:11","modified_gmt":"2008-05-26T07:15:11","slug":"1048","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=765","title":{"rendered":"\u041a\u0430\u043a \u0443\u0437\u043d\u0430\u0442\u044c \u0435\u0441\u0442\u044c \u043b\u0438 \u0432 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u043c CD-ROM&#8217;\u0435 Audio CD"},"content":{"rendered":"<p>\u041a\u0430\u043a \u0443\u0437\u043d\u0430\u0442\u044c \u0435\u0441\u0442\u044c \u043b\u0438 \u0432 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u043c CD-ROM&#8217;\u0435 Audio CD<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u041a\u0430\u043a \u0443\u0437\u043d\u0430\u0442\u044c \u0435\u0441\u0442\u044c \u043b\u0438 \u0432 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u043c CD-ROM'\u0435 Audio CD\n\n\u041c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u044e Windows API GetDriveType() \u0447\u0442\u043e\u0431\u044b \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043b\u0438 \u0434\u0438\u0441\u043a\u043e\u0432\u043e\u0434 CD-ROM'\u043c\u043e\u043c. \u0418 \u0444\u0443\u043d\u043a\u0446\u0438\u044e API GetVolumeInformation() \u0447\u0442\u043e\u0431\u044b \u043f\u0440\u043e\u0432\u0435\u0440\u0438\u0442\u044c VolumeName \u043d\u0430 \u0440\u0430\u0432\u0435\u043d\u0441\u0442\u0432\u043e 'Audio CD'.\n\nfunction IsAudioCD(Drive : char) : bool;\nvar\n  DrivePath : string;\n  MaximumComponentLength : DWORD;\n  FileSystemFlags : DWORD;\n  VolumeName : string;\nBegin\n  sult := false;\n  DrivePath := Drive + ':\\';\n  if GetDriveType(PChar(DrivePath)) <> DRIVE_CDROM then\n    exit;\n  SetLength(VolumeName, 64);\n  GetVolumeInformation(PChar(DrivePath), PChar(VolumeName),\n  Length(VolumeName), nil, MaximumComponentLength,\n  FileSystemFlags,nil,0);\n  if lStrCmp(PChar(VolumeName), 'Audio CD') = 0 then\n    result := true;\nend;\n\nfunction PlayAudioCD(Drive : char) : bool;\nvar\n  mp : TMediaPlayer;\nbegin\n  result := false;\n  Application.ProcessMessages;\n  if not IsAudioCD(Drive) then\n    exit;\n  mp := TMediaPlayer.Create(nil);\n  mp.Visible := false;\n  mp.Parent := Application.MainForm;\n  mp.Shareable := true;\n  mp.DeviceType := dtCDAudio;\n  mp.FileName := Drive + ':';\n  mp.Shareable := true;\n  mp.Open;\n  Application.ProcessMessages;\n  mp.Play;\n  Application.ProcessMessages;\n  mp.Close;\n  Application.ProcessMessages;\n  mp.free;\n  result := true;\nend;\n\nprocedure TForm1.Button1Click(Sender: TObject);\nbegin\n  if not PlayAudioCD('D') then\n    ShowMessage('Not an Audio CD');\nend;\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u041a\u0430\u043a \u0443\u0437\u043d\u0430\u0442\u044c \u0435\u0441\u0442\u044c \u043b\u0438 \u0432 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u043c CD-ROM&#8217;\u0435 Audio CD<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[398,433],"tags":[1112,1117,1328],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/765"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=765"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/765\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=765"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=765"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=765"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}