Want an example of the call GetDriveTypeA from kernel32.dll

Author

Message

IceBird

22

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Sweden

Posted: 14th Jan 2003 16:31

Link

Want an example of the call GetDriveTypeA from the windows system dll file kernel32.dll and how I can use this in DBPro as function for checking if the game is running from the GAME CD or NOT

Just an easy tutorial would help me.. so I know how to do in the future with this and other dll calls from kernel32.dll

------------------------------------------------
Someone is watching you...... And it isn't ME!
------------------------------------------------

Back to top

Profile PM Email

IceBird

22

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Sweden

Posted: 14th Jan 2003 16:35

Link

I know is't more simplier to write my own dll file for this and other calls in c++ and then use them in DBPro as the example but I want to know anyway

------------------------------------------------
Someone is watching you...... And it isn't ME!
------------------------------------------------

Back to top

Profile PM Email

Hubdule

22

Years of Service

User Offline

Joined: 3rd Sep 2002

Location: Gundelsheim

Posted: 14th Jan 2003 17:07

Link

Nothing easier than that

` #########################################################
`  DBPro Get Drive Type (c) by Hubdule @ Color Arts 2003
`  http://www.colorarts.de
` #########################################################
load dll "kernel32",1

Do
input "Please input the drive letter to test: e.g. C:\ (blank for exit) ",JustOneDrive$

if len(JustOneDrive$)>0 and len(JustOneDrive$)<=3
   DriveType=call dll(1,"GetDriveTypeA",JustOneDrive$)
   select DriveType
      case 5
         print Upper$(JustoneDrive$) + " is a CD Drive"
      endcase
      case 2
         print Upper$(JustoneDrive$) + " is a floppy Drive"
      endcase
      case 6
         print Upper$(JustoneDrive$) + " is a Ram Disk"
      endcase
      case 3
         print Upper$(JustoneDrive$) + " is a fixed Disk (HD)"
      endcase
      case 4
         print Upper$(JustoneDrive$) + " is a network Disk (HD)"
      endcase
      case 1
         print Upper$(JustoneDrive$) + " root does not exist"
      endcase
   endselect
   endif

if JustOneDrive$="" then exit

loop

suspend for key
delete dll 1
end

+ Code Snippet

` #########################################################
`  DBPro Get Drive Type (c) by Hubdule @ Color Arts 2003
`  http://www.colorarts.de
` #########################################################
load dll "kernel32",1

Do
input "Please input the drive letter to test: e.g. C:\ (blank for exit) ",JustOneDrive$

   if len(JustOneDrive$)>0 and len(JustOneDrive$)<=3
   DriveType=call dll(1,"GetDriveTypeA",JustOneDrive$)
   select DriveType
      case 5
         print Upper$(JustoneDrive$) + " is a CD Drive"
      endcase
      case 2
         print Upper$(JustoneDrive$) + " is a floppy Drive"
      endcase
      case 6
         print Upper$(JustoneDrive$) + " is a Ram Disk"
      endcase
      case 3
         print Upper$(JustoneDrive$) + " is a fixed Disk (HD)"
      endcase
      case 4
         print Upper$(JustoneDrive$) + " is a network Disk (HD)"
      endcase
      case 1
         print Upper$(JustoneDrive$) + " root does not exist"
      endcase
   endselect
   endif

if JustOneDrive$="" then exit

loop

suspend for key
delete dll 1
end

Back to top

Profile PM Email Website

IceBird

22

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Sweden

Posted: 14th Jan 2003 17:15

Link

There is one thong wrong in the code snippet

The new one..

` #########################################################
`  DBPro Get Drive Type (c) by Hubdule @ Color Arts 2003
`  http://www.colorarts.de
` #########################################################
load dll "kernel32",1

Do
input "Please input the drive letter to test: e.g. C:\ (blank for exit) ",JustOneDrive$

if len(JustOneDrive$)>0 and len(JustOneDrive$)<=3
   DriveType=call dll(1,"GetDriveTypeA",JustOneDrive$)
   select DriveType
      case 5
         print Upper$(JustoneDrive$) + " is a CD Drive"
      endcase
      case 2
         print Upper$(JustoneDrive$) + " is a floppy Drive"
      endcase
      case 6
         print Upper$(JustoneDrive$) + " is a Ram Disk"
      endcase
      case 3
         print Upper$(JustoneDrive$) + " is a fixed Disk (HD)"
      endcase
      case 4
         print Upper$(JustoneDrive$) + " is a network Disk (HD)"
      endcase
      case 1
         print Upper$(JustoneDrive$) + " root does not exist"
      endcase
   endselect
   endif

if JustOneDrive$="" then exit

loop

suspend for key
delete dll 1
end

+ Code Snippet

` #########################################################
`  DBPro Get Drive Type (c) by Hubdule @ Color Arts 2003
`  http://www.colorarts.de
` #########################################################
load dll "kernel32",1

Do
input "Please input the drive letter to test: e.g. C:\ (blank for exit) ",JustOneDrive$

   if len(JustOneDrive$)>0 and len(JustOneDrive$)<=3
   DriveType=call dll(1,"GetDriveTypeA",JustOneDrive$)
   select DriveType
      case 5
         print Upper$(JustoneDrive$) + " is a CD Drive"
      endcase
      case 2
         print Upper$(JustoneDrive$) + " is a floppy Drive"
      endcase
      case 6
         print Upper$(JustoneDrive$) + " is a Ram Disk"
      endcase
      case 3
         print Upper$(JustoneDrive$) + " is a fixed Disk (HD)"
      endcase
      case 4
         print Upper$(JustoneDrive$) + " is a network Disk (HD)"
      endcase
      case 1
         print Upper$(JustoneDrive$) + " root does not exist"
      endcase
   endselect
   endif

if JustOneDrive$="" then exit

loop

suspend for key
delete dll 1
end

------------------------------------------------
Someone is watching you...... And it isn't ME!
------------------------------------------------

Back to top

Profile PM Email

IceBird

22

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Sweden

Posted: 14th Jan 2003 17:16

Link

haven't tested it yet but I'm pretty sure that should have made some error

*lol*

------------------------------------------------
Someone is watching you...... And it isn't ME!
------------------------------------------------

Back to top

Profile PM Email

IceBird

22

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Sweden

Posted: 14th Jan 2003 17:21

Link

Sorry I said I posted the snippet without the error but I didn't now I did =) Sorry for all my posts..

` #########################################################
`  DBPro Get Drive Type (c) by Hubdule @ Color Arts 2003
`  http://www.colorarts.de
` #########################################################
load dll "kernel32.dll",1

Do
input "Please input the drive letter to test: e.g. C:\ (blank for exit) ",JustOneDrive$

if len(JustOneDrive$)>0 and len(JustOneDrive$)<=3
   DriveType=call dll(1,"GetDriveTypeA",JustOneDrive$)
   select DriveType
      case 5
         print Upper$(JustoneDrive$) + " is a CD Drive"
      endcase
      case 2
         print Upper$(JustoneDrive$) + " is a floppy Drive"
      endcase
      case 6
         print Upper$(JustoneDrive$) + " is a Ram Disk"
      endcase
      case 3
         print Upper$(JustoneDrive$) + " is a fixed Disk (HD)"
      endcase
      case 4
         print Upper$(JustoneDrive$) + " is a network Disk (HD)"
      endcase
      case 1
         print Upper$(JustoneDrive$) + " root does not exist"
      endcase
   endselect
   endif

if JustOneDrive$="" then exit

loop

suspend for key
delete dll 1
end

+ Code Snippet

` #########################################################
`  DBPro Get Drive Type (c) by Hubdule @ Color Arts 2003
`  http://www.colorarts.de
` #########################################################
load dll "kernel32.dll",1

Do
input "Please input the drive letter to test: e.g. C:\ (blank for exit) ",JustOneDrive$

   if len(JustOneDrive$)>0 and len(JustOneDrive$)<=3
   DriveType=call dll(1,"GetDriveTypeA",JustOneDrive$)
   select DriveType
      case 5
         print Upper$(JustoneDrive$) + " is a CD Drive"
      endcase
      case 2
         print Upper$(JustoneDrive$) + " is a floppy Drive"
      endcase
      case 6
         print Upper$(JustoneDrive$) + " is a Ram Disk"
      endcase
      case 3
         print Upper$(JustoneDrive$) + " is a fixed Disk (HD)"
      endcase
      case 4
         print Upper$(JustoneDrive$) + " is a network Disk (HD)"
      endcase
      case 1
         print Upper$(JustoneDrive$) + " root does not exist"
      endcase
   endselect
   endif

if JustOneDrive$="" then exit

loop

suspend for key
delete dll 1
end

------------------------------------------------
Someone is watching you...... And it isn't ME!
------------------------------------------------

Back to top

Profile PM Email

Hubdule

22

Years of Service

User Offline

Joined: 3rd Sep 2002

Location: Gundelsheim

Posted: 14th Jan 2003 19:25

Link

btw. the example works ! I never release examples if I haven't testet them ... you don't need to write "kernel32.dll" because it's built in like the user32 or the gdi ... therefore you don't need .dll at the end.

Back to top

Profile PM Email Website

IceBird

22

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Sweden

Posted: 14th Jan 2003 20:14

Link

Okaj.. but the example above jusr freezes when I'm trying it in db pro 1.0 + patch 3.1... whats wrong??

------------------------------------------------
Someone is watching you...... And it isn't ME!
------------------------------------------------

Back to top

Profile PM Email

IceBird

22

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Sweden

Posted: 14th Jan 2003 23:49

Link

That above code only works in debug mode, and not in the builded version? Why so? Could it be becuase I have the version 3.1 patch or the updated ide things?

------------------------------------------------
Someone is watching you...... And it isn't ME!
------------------------------------------------

Back to top

Profile PM Email

Hubdule

22

Years of Service

User Offline

Joined: 3rd Sep 2002

Location: Gundelsheim

Posted: 15th Jan 2003 00:01

Link

This source was tested in DBPro + P3.1 and also the demo version with no problems ...

Back to top

Profile PM Email Website

IceBird

22

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Sweden

Posted: 15th Jan 2003 01:18

Link

There's something strange... sometimes it works now and sometimes it don't.. even with the code snippet above without anychange it works sometime or just in the dubug mode... ohh well... maybe I should do a fresh install of XP again..

------------------------------------------------
Someone is watching you...... And it isn't ME!
------------------------------------------------

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Want an example of the call GetDriveTypeA from kernel32.dll