QBasic - Conoscere i drive installati con l'uso di INT

Forum - QBasic - Conoscere i drive installati con l'uso di INT

Pagine: [ 1 2 ]

1n4148 (Normal User)
Newbie

Messaggi: 7
Iscritto: 10/06/2011

Postato alle 16:05
Venerdì, 17/02/2012

Salve
Premetto che sono un testardo perché potrei fare molto più facilmente in VisualB quello che mi ostino a cercare in Quick.
Il problema che vorrei risolvere è il seguente:
Vorrei sapere quanti drive sono disponibili sul PC comprese le porte USB, per avere un elenco di tutti i possibili drive.
Ho cercato di usare i vari Interrupt del DOS ma non ho trovato nessuno che funzionasse come volevo io.
Ho usato la sub rutine che allego ma il risultato non mi piace anche se la risposta è giusta.

GOSUB ListaDrivers
ListaDrivers:
   ListaDrv$ = ""
   FOR i = 1 TO 26
      FILES CHR$(i + 64) + ":*.pip"
      IF E% = 68 THEN
      ELSE
         ListaDrv$ = ListaDrv$ + CHR$(i + 64)
      END IF
   NEXT i
RETURN
Mi ritorna in ListaDrive$ "ACDEFGHIJKL"
C'e modo di avere lo stesso risultato usando gli interrupt del DOS?

HeDo (Founder Member)
Guru^2

Messaggi: 2765
Iscritto: 21/09/2007

Postato alle 19:13
Venerdì, 17/02/2012

domanda totalmente inutile, mi chiedo perchè la sezione qbasic sia ancora aperta...

1n4148 (Normal User)
Newbie

Messaggi: 7
Iscritto: 10/06/2011

Postato alle 6:26
Sabato, 18/02/2012

Grazie comunque
Però avevo fatto una premessa e la risposta è comunque utile.

nessuno (Normal User)
Guru^2

Messaggi: 6403
Iscritto: 03/01/2010

Postato alle 9:50
Sabato, 18/02/2012

L'interrupt 21 AX 4408 restituisce info sui device (da A in poi) ma non ti puoi aspettare informazioni particolari dal DOS (o da quello che rimane del DOS) dato che questo non può avere conoscenza di specifici device ...

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

Postato alle 10:16
Sabato, 18/02/2012

(doppio)

Ultima modifica effettuata da Poggi Marco il 18/02/2012 alle 10:17

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

Postato alle 10:16
Sabato, 18/02/2012

Una possibile soluzione al problema, consiste nel tentativo di scrivere un file su ogni drive possibile?

nessuno (Normal User)
Guru^2

Messaggi: 6403
Iscritto: 03/01/2010

Postato alle 10:26
Sabato, 18/02/2012

Questo non ti dice se il drive c'è ... potrebbe essere protetto in scrittura o non avere i permessi.

1n4148 (Normal User)
Newbie

Messaggi: 7
Iscritto: 10/06/2011

Postato alle 16:59
Martedì, 21/02/2012

Con questo listato sono riuscito l'unico arzigogolo che ho dovuto fare è stato di inviare l'output su altro schermo per non avere scritte indesiderate.
Però proverò anche L'INT 21 AX4408 grazie

Codice sorgente - presumibilmente VB.NET

On Error goto Errore
Gosub ListaDriver
ListaDrivers:
   ListaDrv$ = ""
   SCREEN , , 1, 0 'Invia output su altro schermo
   FOR i = 1 TO 26
      FILES CHR$(i + 64) + ":*.pip"  'estensione improbabile
      IF E% = 68 THEN
      ELSE
         ListaDrv$ = ListaDrv$ + CHR$(i + 64)
      END IF
   NEXT i
RETURN
' ****************    Gestore di errori  **************************
Errore:
IF ERR = 71 THEN E% = ERR: RESUME NEXT
IF ERR = 68 THEN E% = ERR: RESUME NEXT
IF ERR = 53 THEN E% = 53: RESUME NEXT

Ultima modifica effettuata da 1n4148 il 21/02/2012 alle 17:06

Atif (Normal User)
Newbie

Messaggi: 1
Iscritto: 28/03/2015

Postato alle 6:57
Sabato, 28/03/2015

Io houn win7 64bit ed ho creato il programma per funzionare con anyCPU ma preferibilmente a x86.
ora ho sistemato un po il codice ed ora i moduli x86 funzionano...
L'unico problema e che non riesco ad avere il percorso dei processi a 64bit utilizzando il mio programma a 32bit.
Esiste qualche funzione che fa accedere un processo a 32bit alla lettura dei processi a 64bit?

_________________________
Join online [url=http://www.test-king.com/]ccna book and testking to pass exam in first try. Our best quality and [url=http://www.test-king.com/cert-PMP.htm]testking pmp certification guide you well for real exam. [url=http://www.sciarc.edu/]sciarc.edu q ....

Ultima modifica effettuata da Atif il 10/04/2015 alle 9:22

Pagine: [ 1 2 ]