CD-ROM Drive'ı kontrol etmek(Delphi Kod Örneği

[By_FUCKan]

CD-ROM Drive'ı kontrol etmek


Kod:
function IsCDROM(DriveNum: Integer): Boolean; assembler;asmMOV AX,1500h { MSCDEX 'e bakıyor}XOR BX,BXINT 2fhOR BX,BXJZ @FinishMOV AX,150Bh { CD driver ın kullanılırlığına bakıyor}MOV CX,DriveNumINT 2fhOR AX,AX@Finish:end;// Win32 kontrolörlüFunction IsCdRom(DriveNum : Word) : Boolean;VarF : WordBool;Beginasmmov ax, 1500hxor bx, bxint 2fhmov ax, bxor ax, axjz @no_mscdexmov ax, 150bhmov cx, DriveNumint 2fh@no_mscdex:mov f,axend;Result := F;End;