Check for CD files..?

[MachTwo]

I would like my installer to check for a product CD before allowing the user to continue with the installation.

I have the following code used in On Start:

tblDrives = Drive.Enumerate();
if(tblDrives)then
for i, strDrive in tblDrives do
nType = Drive.GetType(strDrive);
if(nType == 5)then
tblResults = File.Find(strDrive,"*.*", true, false, nil);
if tblResults then
Altcd = 1;
else
Altcd = 2;
end

if Altcd == 2 then
result = Dialog.Message("Notice", "The specified file does not exist.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
end
end
end


The problem is that I have 2 CD drives. With the above code and the product CD in one drive, the absence of a product CD (or any CD in the above example) in the second CD drive causes the message box to display.

Is there a way to work around this? Any suggestions would be appreciated.

[Corey]

I'm sure someone will be able to answer this. In the meantime I checked out your profile link to that Concorde add-on for MS flight simulator, pretty neat. I know there's some mighty big fans of MS flight simulator around here. :yes

[csd214]

Use the function g_GetDriveLetters() (in _SUF70_Global_Functions.lua) with the argument DRIVE_CDROM.

tCDdrives = g_GetDriveLetters(DRIVE_CDROM);
if tCDdrives then
sCDdrive = "";
for index, data in tCDdrives do
sCDdrive = sCDdrive..data;
end
Dialog.Message("CD Drives", sCDdrive);

End

Test each entry in the table until you find your file (while/end).

There is a lot of gunpowder in _SUF70_Global_Functions.lua.

[MachTwo]

Thanks for your suggestion csd214. I’ve played around with the code and used a short loop to check any CD drives before presenting the user with the installer interface, or an error message requesting that the CD be placed in the CD drive.

[reflexive]

How can I check if a CD is in drive, without knowing anything about that CD?

[csd214]

Welcome to the forum, Reflexive. Sorry you had to wait for an answer.

A suggestion to achieve what you want:

sCdDrive = "G:"; -- drive letter is determined
tInfo = Drive.GetInformation(sCdDrive);
nError = Application.GetLastError();
if (nError ~= 0) then
-- some kind of error has occurred!
if nError == 2104 then
-- Error #2104 = "Failed to get volume information."
Dialog.Message("Error", "Drive "..sCdDrive.." is empty!");
-- else
-- Dialog.Message("Feil ", "Feil # " ..nError.."\r\n".. _tblErrorMessages[nError], MB_OK, MB_ICONSTOP);
end
Application.ExitScript(); -- a usefull command!
end

Dialog.Message("Drive "..sCdDrive, "CD is found. The drive is NOT empty.", MB_OK, MB_ICONINFORMATION);
:)