Solved

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

Posted on 1997-10-27
12
461 Views
Last Modified: 2008-03-17
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
0
Comment
Question by:lina10
  • 7
  • 5
12 Comments
 
LVL 4

Accepted Solution

by:
ozphil earned 100 total points
ID: 1957931
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
 
LVL 1

Author Comment

by:lina10
ID: 1957932
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
 
LVL 4

Expert Comment

by:ozphil
ID: 1957933
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
Complete VMware vSphere® ESX(i) & Hyper-V Backup

Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)

 
LVL 1

Author Comment

by:lina10
ID: 1957934
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
 
LVL 1

Author Comment

by:lina10
ID: 1957935
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
 
LVL 4

Expert Comment

by:ozphil
ID: 1957936
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
 
LVL 4

Expert Comment

by:ozphil
ID: 1957937
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
 
LVL 4

Expert Comment

by:ozphil
ID: 1957938
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
 
LVL 4

Expert Comment

by:ozphil
ID: 1957939
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
 
LVL 1

Author Comment

by:lina10
ID: 1957940
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
 
LVL 4

Expert Comment

by:ozphil
ID: 1957941
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
 
LVL 1

Author Comment

by:lina10
ID: 1957942
You're absolutly GREAT!!!
thank you
0

Featured Post

Simplifying Server Workload Migrations

This use case outlines the migration challenges that organizations face and how the Acronis AnyData Engine supports physical-to-physical (P2P), physical-to-virtual (P2V), virtual to physical (V2P), and cross-virtual (V2V) migration scenarios to address these challenges.

Question has a verified solution.

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

Suggested Solutions

Introduction When developing Access applications, often we need to know whether an object exists.  This article presents a quick and reliable routine to determine if an object exists without that object being opened. If you wanted to inspect/ite…
Preparing an email is something we should all take special care with – especially when the email is for somebody you may not know very well. The pressures of everyday working life stacked with a hectic office environment can make this a real challen…
In Microsoft Access, learn how to “cascade” or have the displayed data of one combo control depend upon what’s entered in another. Base the dependent combo on a query for its row source: Add a reference to the first combo on the form as criteria i…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

809 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