From: Alex Soto <Alex@nowhere.everywhere.com>
Subject: Re: disqueteras
Date: 23 Mar 1999 00:00:00 GMT
Message-ID: <36F7F095.F12BB56D@nowhere.everywhere.com>
Content-Transfer-Encoding: 8bit
References: <36F7B152.D8E478F0@retemail.es>
X-Accept-Language: en
Content-Type: text/plain; charset=iso-8859-1
Organization: Inc.Net http://www.inc.net
Mime-Version: 1.0
Newsgroups: es.comp.lenguajes.delphi

Eloi prueba con esto:


var
  LRec   : TSearchRec;
  OldMode: Cardinal;
  Retcode: Integer;
begin
  OldMode := SetErrorMode (SEM_FAILCRITICALERRORS);
  try
    RetCode := FindFirst ('A:\*.*', faAnyFile, LRec);
    FindClose (LRec);
    case RetCode of
     0    : ShowMessage ('Accesible con archivos');
     2    : ShowMessage ('Accesible sin archivos');
     21, 3: ShowMessage ('No accesible, no hay disco en la torre');
     else   ShowMessage ('No accesible, el disco no esta fomateado');
    end;
  finally
    SetErrorMode(OldMode);
  end;



Eloi wrote:
>
> Buenas. Podría alguien decirme:
>  Cómo puedo detectar si una disquetera tiene o no introducido un
> disquet?
> Cómo puedo detectar si el disquet está protegido contra escritura
> (desde delphi, por supuesto).
>
> Venga grácias y un saludo
>
> Eloi