CDRW-blank for DOS

Sprache: English
Programmiersprache: Pascal
Veröffentlicht von: cinek [nicht registriert]
Letzte Änderung: 15.05.2006
Aufrufe: 1106

Lizenz: GNU General Public License

Beschreibung

This is a Pascal routine forblanking CDRWs with DOS.

Code

Zeilennummern anzeigen

1 uses ATAPI; 2 3 const IDEPORT_DATA=0; 4 var Output:PATAPIDevice; 5 Size,j:word; 6 i,WTrackNr:byte; 7 DataSize:longint; 8 RawData,Data:PByteArray; 9 answ:char; 10 11 begin 12 Output:=New(PATAPIDevice,Init(DRV_MASTER,1,RESET_DRIVE)); 13 Output^.RegisterIntHandler($0F); 14 Output^.RequestSense; 15 16 write('Blanking CD ... This takes about 2 minutes ... '); 17 Output^.Blank(BLANK_MINIMAL,0,true); 18 19 while (Output^.GetStatus and AST_BSY)>0 do; 20 21 Output^.RequestSense; 22 23 writeln('Sensekey: ',Output^.SenseBuffer^.ILISenseKey); 24 writeln('ASC: ',Output^.SenseBuffer^.ASC); 25 writeln('ASCQ: ',Output^.SenseBuffer^.ASCQ); 26 27 writeln(' completed.'); 28 29 30 Dispose(Output,Done); 31 end. 32

Noch kein Kommentar vorhanden

Dieses Snippet kommentieren

Name *

E-Mail (wird nicht angezeigt) *

Website

Kommentar *

Sicherheitscode *