<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Мой DELPHI - Программирование &#187; PlayAudioCD</title>
	<atom:link href="http://www.mydelphi.info/code/tag/playaudiocd/feed" rel="self" type="application/rss+xml" />
	<link>http://www.mydelphi.info</link>
	<description>Всё для программера</description>
	<lastBuildDate>Mon, 09 Jun 2008 16:55:52 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.9.2</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>Как узнать есть ли в заданном CD-ROM&#8217;е Audio CD?</title>
		<link>http://www.mydelphi.info/code/122</link>
		<comments>http://www.mydelphi.info/code/122#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:23:49 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Audio]]></category>
		<category><![CDATA[FileSystemFlags]]></category>
		<category><![CDATA[GetVolumeInformation]]></category>
		<category><![CDATA[MainForm]]></category>
		<category><![CDATA[MaximumComponentLength]]></category>
		<category><![CDATA[Parent]]></category>
		<category><![CDATA[PlayAudioCD]]></category>
		<category><![CDATA[Shareable]]></category>
		<category><![CDATA[ShowMessage]]></category>
		<category><![CDATA[String]]></category>
		<category><![CDATA[sult]]></category>
		<category><![CDATA[Visible]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=122</guid>
		<description><![CDATA[Вопрос:
Как узнать есть ли в заданном CD-ROM'е Audio CD?

Ответ:
Можно использовать функцию
Windows API GetDriveType() чтобы определить является ли дисковод CD-ROM&#8217;мом.
И функцию API GetVolumeInformation() чтобы проверить VolumeName на равенство
&#8216;Audio CD&#8217;.
Пример:
function IsAudioCD(Drive : char) : bool;
var
	DrivePath : string;
	MaximumComponentLength : DWORD;
	FileSystemFlags : DWORD;
	VolumeName : string;
Begin
	sult := false;
	DrivePath := Drive + ':\';
	if GetDriveType(PChar(DrivePath)) &#60;&#62; DRIVE_CDROM then
		exit;
	SetLength(VolumeName, 64);
	GetVolumeInformation(PChar(DrivePath),PChar(VolumeName),
	Length(VolumeName),nil,MaximumComponentLength,FileSystemFlags,nil,0);
	if lStrCmp(PChar(VolumeName),'Audio CD') = [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/122/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

