Hallo Wissende,
Delphi kenne ich überhaupt nicht. Ich suche an sich eine VBa(Excel) oder VB Lösung.
Problem ist, alle mir bekannten Möglichkeiten, auch per API-Aufrufen, herauszufinden ob eine Diskette in A bzw B eingelegt ist, dauern mir zu lange, so mindestens 5 Sekunden (zumindest wenn keine Diskette eingelegt ist).
Deshalb stellte ich im VB-Brett eine Anfrage:
http://www.wer-weiss-was.de/cgi-bin/www/service.fpl?..
(Wegen Crossposting bitte auch nur dort antworten, Dankeschön)
Nun hat mir dort jemand geantwortet und eine Delphiprozedur vorgeschlagen, die man evtl. nach VB(a) anpassen könnte:
Quelle: http://delphi.about.com/od/beginners/a/floppy.htm
Prozedur:
procedure TForm1.Button1Click(Sender: TObject) ;
var
EMode: Word;
begin
EMode := SetErrorMode(SEM\_FAILCRITICALERRORS) ;
try
if DiskSize(Ord('A')-$40) -1 then
ShowMessage('Disk **in** drive A: !')
else
ShowMessage('No disk **in** drive A: !') ;
finally
SetErrorMode(EMode) ;
end;
end;
Nun meine eigentliche Anfrage.
Wäre hier jmd. so nett, diesen Code in Delphi zum Laufen zu bringen und mir mitzuteilen ob durch diesen Code auch erst mehrere Sekunden lang auf das Diskettenlaufwerk zugegriffen wird bevor da dieses „ShowMessage“-Fenster kommt, oder ob das fix geht.
Danke ^ Gruß
Reinhard