Station type kennen

Alles over het toepassen van API en DLL's in Liberty BASIC

Moderator: anthonio

Station type kennen

Berichtdoor anthonio » ma aug 18, 2008 2:14 pm

Handige API-call die kan zeggen welke verschillende station types er op je computer aanwezig zijn.
Een stuk van de code heb ik gehaald uit de helpfile.

Code: Selecteer alles
'Written by anthonio (andy)

nomainwin

dim letters$(25)
index = 0
while word$(Drives$, index + 1) <> ""
    letters$(index) = word$(Drives$, index + 1)
    index = index + 1
wend

statictext #win, "Double-click to pick a drive:", 10, 10, 200, 20
listbox #win.list, letters$(, [selectionMade], 10, 35, 100, 150
open "Scan drive" for dialog as #win
wait

[selectionMade]

#win.list, "selection? selected$"
nDrive$ = selected$
calldll #kernel32, "GetDriveTypeA", nDrive$ as ptr, result as long

Select case result
    Case 0
        notice "Drive unknow"
    Case 1
        notice "No existing root directory"
    Case 2
        notice "Removable drive"
    Case 3
        notice "Hard disk"
    Case 4
        notice "Remote (network) drive"
    Case 5
        notice "CD-ROM/DVD-ROM drive"
    Case 6
        notice "RAM disk"
End select
wait

Dual boot: Ubuntu 8.04 - WIndows XP SP2 (via VMware) - Windows Vista 32bit - Toshiba L40 - Dual Core @ 1,76GHz - 1GB RAM - 120GB HDD - VDSL Connection
Avatar gebruiker
anthonio
 
Berichten: 281
Geregistreerd: zo mei 20, 2007 9:58 pm

Keer terug naar API/DLL

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 2 gasten

cron