Mega Code Archive

 

Categories / Delphi / Hardware

 

[] Disk veya disket yerinde mi

function DiskInDrive(Drive: Char): Boolean; var ErrorMode: word; begin if Drive in ['a'..'z'] then Dec(Drive, $20); if not (Drive in ['A'..'Z']) then raise EConvertError.Create('Not a valid drive ID'); ErrorMode := SetErrorMode(SEM_FailCriticalErrors); try { sürücü 1 = a, 2 = b, 3 = c, etc. } if DiskSize(Ord(Drive) - $40) = -1 then Result := False else Result := True; finally { error moduna geri dön } SetErrorMode(ErrorMode); end; end;