Access2.0, WIN95, API-GetDriveType doesn't work?

Hi! I have an access2.0 application(which was created under win 3.11) running on PC with WIN95.
i need to expand this app and,as a part of this process I have to be able to find which Drive is the CD_ROM Drive.
GetDriveType() function doesn't work-I get a "file not found" error message.
i checked it in access8 and it works OK.
But i need it to work in acc2.0.
Thank you
LVL 1
lina10Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

ozphilCommented:
Youll probably find the "kernel32" library specified in the API declaration.

Access 2 cannot access 'kernel32.dll", hence the error message.

You need the API Declaration for the 16-bit kernel.dll library.
You need to have kernel.dll in your system.
Check this and try the API declaration with 'kernel' instead of 'kernel32'.

Im dashing off now so have not the time to check on 16-bit API declaration. Follow up later.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
lina10Author Commented:
HI!
if so,what do i do? can i copy the kernell file to my system?
is it possible to have both of them?
i checked this function in a pc with win3.11,but it doesn't return
a cr-rom drive yet.it seems there are few versions of older kernel?

0
ozphilCommented:
HI Lina10,

Whats the main exercise, to get the API function working or to detect the CD-ROM drive.

Havent worried at this stage about determining whether drive is CDROM.

What info does the win3.11 API function return;what do you mean by 'doesnt return a cd-rom drive'.

Can you load kernell.dll into win95 system directory, run your program and hope for the best. :).









0
Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

lina10Author Commented:
Hello,ozphil!
i got an email notification that you have added a comment
but it doesn't appear on question history.I hope you saw
my comment on your answer.What is going on?
lina10
0
lina10Author Commented:
Hello again!
please disregard my last comment!(after i submitted it,the history
was presented in full)
i checked under win3.11 api text viewer and this function returnes only tree values and none of them CD_ROM!
while the kernel32 function returnes 5 values,including cd_rom.
Now,about copying kernell to my system:Is there any point to it,if it doesn't return a cd_rom? What to do?
thank you
0
ozphilCommented:
What a bummer.

If you cant find a kernel API to to the job, try this:

Use Registry API calls to look up the drives in the HKEY_LOCAL_MACHINE key. Have a look in your Registry (using regedit) at HKEY_LOCAL_MACHINE/Enum/ESDI. Youll see CurrentDriveLetterAssignment for each drive.

The CurrentDriveLetterAssignment for the cdrom is 'CD'.

Im still looking at the feasibilty of this.

0
ozphilCommented:
Wrong registry key.

Its HKEY_LOCAL_MACHINE/Enum/SCSI.

Enumerating the keys below will locate the device with Class value 'CDROM', and the associated CurrentDriveLetterAssignment value. There may be more than one CDROM device, and the correct one is found by being the one in the get  drive list api.

This is a lot of stuffing around. There has to be something easier.

0
ozphilCommented:
theres no such animal as kernel.dll, nor kernel.exe.

It seems the reference is valid, even though the referenced library doesnt exist as a separate entity.

'User' library exists as user.exe. 'shell' library exists as 'shell.dll'. As for 'kernel'? probably something to do with krnl386.exe.

I dont know of the 16-bit API call to the equivalent of the 32-bit calls.

Most focus is on 16-bit to 32-bit conversion. Very little discussion anywhere on 32-bit to 16-bit.

As an alternative to Registry manipulation, creating an OLE automation exe with VB4 or VB5 and calling the 32-bit API function from within the OLE exe and returning it to your app may do it.


0
ozphilCommented:
I think i have found a simple solution at last.

Declare Function GetDriveType Lib "Kernel" (ByVal nDrive As Integer) As Integer

Function driveType ()
    Dim iType As integer

    For i = 1 To 26    ' all the drive letters
        iType = GetDriveType(i)
        if iType = 4 then
               MsgBox "Drive " & i & " is a CD-ROM"
        endif
        Debug.Print iType
    Next
end function

I found that the type number retruned for my cd-rom is 4.
The numbers for the other types o fdrive i have are different, so there can be no ambiguity.

Lina, you can transalte the drive number to a letter and return the appropriate functiton value.


0
lina10Author Commented:
Hi!
finally,SOMETHING works!!!
i checked it on my computer and got the followingh results:
for drive A(3.5)----iType=2
for drive B(5.25)---iType=3
for drive C(h.d.)----iType=3
for drive D(h.d.)----iType=3
for drive E(h.d.)----iType=4
for drive F(CD)-----iType=0
those results seem somehow confusing-you got 4 for CD and I got 0?
how to be sure?
0
ozphilCommented:
Yes i see what the problem is.

Change the code from:
For i = 1 To 26 ' all the drive letters
to:
For i = 0 To 25 ' all the drive letters

and all will make sense.
The removable media return 2 ( A and B)
The HDDs return 3
CDROM returns 4

Voila.
0
lina10Author Commented:
You're absolutly GREAT!!!
thank you
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.