No replies to this topic

[sir.dev.a.lot]

[TRUCO DELPHI] Chequear si hay un Disco en una Unidad.

delphi

function DiskInDrive(Drive: Char): Boolean;
	var
	  ErrorMode: word;
	begin
 
	  if Drive in ['a'..'z'] then Dec(Drive, $20);
	  { make sure it's a letter }
	  if not (Drive in ['A'..'Z']) then
	    raise EConvertError.Create('Not a valid drive ID');
 
	  ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
	  try
 
	    if DiskSize(Ord(Drive) - $40) = -1 then
	      Result := False
	    else
	      Result := True;
	  finally
 
	    SetErrorMode(ErrorMode);
	  end;
	end;

Saludos!