<CT> BUG: I hate it when this happens...

  • From: Erwin Dokter <edokter@xxxxxxx>
  • To: calmira_tips@xxxxxxxxxxxxx
  • Date: Mon, 13 May 2002 08:39:03 +0200

Hi gang,

Some time ago I recieved a bug report from a user with a ZIP drive. He
said Calmira would hang if he opened explorer with no disk in the drive.
So I fixed it, so I thought... It created a more serious bug.

Trying to open a drive from My Computer no longer works.

So I will be undoing that bugfix. As I found out, the ZIP drive user had
the "pretend to be non-removable" option on, causing Calmira to hang.

Later today I will upload the update.

For those with source code; restore HDirectoryExists to it's ogiginal
state:

function HDirectoryExists(const Filename: TFilename): Boolean;
var
  rec: TSearchRec;
begin
  Result := ((Length(Filename) = 3) and CouldBeFolder(Filename))
    or (FindFirst(Filename, faDirectory or faHidden or faSysFile
    or faReadOnly, rec) = 0) and (rec.Attr and faDirectory <> 0);
  FindClose(rec); { 3.11 }
end;

-- Erwin Dokter
   mailto:edokter@xxxxxxx
   http://members.home.nl/edokter
--
To unsubscribe, send a message to listar@xxxxxxxxxxxxxxxxx with
"unsubscribe calmira_tips" in the body.
OR visit http://freelists.dhs.org



Other related posts:

  • » <CT> BUG: I hate it when this happens...