Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

DVD,VCD or audio CD ???

Posted on 2002-06-10
8
Medium Priority
?
183 Views
Last Modified: 2010-04-04
Hello,

Is there a way to find out whether there is a DVD, VCD or audio CD in the CD drive by using delphi 5.0?

Thank you for your help.
Totok
0
Comment
Question by:totok
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 2
8 Comments
 
LVL 9

Expert Comment

by:ginsonic
ID: 7067029
For audio CD:

function IsAudioCD(CDDrive : Char) : boolean;

var
  VolumeName, DrivePath : string;
  MaximumComponentLength, FileSystemFlags : DWORD;

begin
  DrivePath := CDDrive + ':\';
  Result := FALSE;

  if (GetDriveType(PChar(DrivePath)) = DRIVE_CDROM) then
    begin
      SetLength(VolumeName, 64);
      GetVolumeInformation(PChar(DrivePath), PChar(VolumeName), Length(VolumeName), nil, MaximumComponentLength,
                                          FileSystemFlags, nil, 0);

      if (lStrCmp(PChar(VolumeName),'Audio CD') = 0) then Result := TRUE;
    end;
end;

0
 
LVL 9

Expert Comment

by:ginsonic
ID: 7067047
The VCD format requires specific folders and files and the DAT. So search if exist these folders and the DAT.
0
 

Accepted Solution

by:
KFZ earned 400 total points
ID: 7067924
the DVD cd's has a "Video_ts" and an "Audio_ts" folder in the root, so you can just search if these folders exists
0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
LVL 9

Expert Comment

by:ginsonic
ID: 7068797
KFZ, we have here at Ex-Ex a golden 'rule' :) We don't put a directly answer, just comments . How you can see I answer to 2/3 from the question and I put just comments(your answer solve just 1/3).
This way let the asker to choice the better solution for him.

Totok can accept anytime a comment as answer.

Regards,
Nick
0
 

Expert Comment

by:KFZ
ID: 7069152
sorry im new as an expert, so i just wrote, and did'nt see that i should choose between answer or comment
0
 

Author Comment

by:totok
ID: 7069680
Thank you for the answers.

<KFZ, we have here at Ex-Ex a golden 'rule' :) We don't put <a directly answer, just comments . How you
<can see I answer to 2/3 from the question and I put just <comments(your answer solve just 1/3).
Ginsonic right about this. But I can not reject KFZ's answer, because he gave a valid answer too. Btw, since KFZ's is a new expert, I think I will give the point to him as a welcome.

Again thank you for your help.
0
 
LVL 9

Expert Comment

by:ginsonic
ID: 7070287
No problem for points :) I have a lots .
Hope to help you my comments, too.
0
 
LVL 9

Expert Comment

by:ginsonic
ID: 7070302
BTW, not particular for this case ... but when you wish ( multiple good answers ) you can split the points to experts number that you wish .
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
Have you created a query with information for a calendar? ... and then, abra-cadabra, the calendar is done?! I am going to show you how to make that happen. Visualize your data!  ... really see it To use the code to create a calendar from a q…
Suggested Courses

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question