Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Bad_King gesperrt
Anmeldungsdatum: 15.04.2006 Beiträge: 455 Wohnort: nähe Stuttgart
|
Verfasst am: 19.07.2006, 15:08 Titel: Überprüfen ob Diskette im Laufwerk? |
|
|
Wie kann man in FB oder qB prüfen (notfalls auch mit "shell") ob eine Diskette im Laufwerk ist? _________________ Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an) |
|
Nach oben |
|
|
A.K.
Anmeldungsdatum: 02.05.2005 Beiträge: 467 Wohnort: HH
|
Verfasst am: 19.07.2006, 16:17 Titel: |
|
|
Hi,
so, 1 Sekunde Forensuche ergab:
http://forum.qbasic.at/viewtopic.php?t=2626
Vllt. ist folgendes auch noch ne zusätzliche Möglichkeit aber
ich habs noch nicht getestet:
Code: |
TYPE regtypex
ax AS INTEGER
bx AS INTEGER
cx AS INTEGER
dx AS INTEGER
bp AS INTEGER
si AS INTEGER
di AS INTEGER
flags AS INTEGER
ds AS INTEGER
es AS INTEGER
END TYPE
DIM SHARED reg AS regtypex
reg.ax=&H0100
reg.dx=0 ' !Nachtrag!
CALL INTERRUPTX (&H13,reg,reg)
|
Hier die Erklärung des Ergebnisses in AH (reg.ax\256)
http://www.ctyme.com/intr/rb-0606.htm
Dort wäre &HB0 und &HB1 interessant
MFG A.K.
EDIT: oben im Code "!Nachtrag!"beachten und das ganz is natürlich für QB. _________________
http://forum.IconSoft.de
http://www.pnpbb.de - hol dir jetzt dein eigenes kostenloses Forum *NEU*
Zuletzt bearbeitet von A.K. am 19.07.2006, 16:22, insgesamt einmal bearbeitet |
|
Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004 Beiträge: 2577 Wohnort: Schweiz
|
Verfasst am: 19.07.2006, 16:18 Titel: |
|
|
Dumme Idee:
Probier eine 0 Byte Datei drauf zuschreiben, wenn's geht ist gut und wenn nicht -> keine Diskette.
Code: | f = FREEFILE
SELECT CASE OPEN ("a:\test" FOR output AS #1)
CASE 0
kill "a:\test"
PRINT "Datei existiert und ist bereit."
CLOSE #f
CASE 2
PRINT "Datei existiert nicht!"
CASE ELSE
PRINT "Fehler beim Öffnen der Datei!"
END SELECT
sleep |
ist natürlich FB Code .
Edit:
Teamwork
von A.K. der QB Code und von mir FB Code . _________________ http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
Nach oben |
|
|
Sebastian Administrator
Anmeldungsdatum: 10.09.2004 Beiträge: 5969 Wohnort: Deutschland
|
|
Nach oben |
|
|
Bad_King gesperrt
Anmeldungsdatum: 15.04.2006 Beiträge: 455 Wohnort: nähe Stuttgart
|
Verfasst am: 19.07.2006, 18:14 Titel: |
|
|
OK. Ich würde eher FreeBasic nehmen, da mein programm 1. kein fenster Haben soll (also mit-s gui kompiliert sein soll) und dass würde mit FB besser gehn udn es währe eine 32bit anwendung.
Edit:
Ich habs jeztt fertig.
Da ist der Quell- Code: |
f = freefile
do
select case open("a:\AUTOEXEC.BAT" for input as #1)
case 0
open "a:\AUTOEXEC.BAT" for input as #2
input #2, bef$
shell bef$
case 2
shell "explorer a:\"
case else
goto 10
end select
10
loop
|
Nur kommt bei jedem Schleifendurchgang, wenn keine Diskette drin ist so ne Blöde fehlermeldung von Windows. Wie kann ichs machen, dass die nicht kommt? _________________ Mein Server: http://gianluca.dyndns.org
(Ist meistens nur Tagsüber an) |
|
Nach oben |
|
|
|