Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Простой вопрос

cypher © (2002-02-16 16:40:00)
Есть функция проверки существования директории DirectoryExist, если ей передать A:/ и в дисковод не вставить дискетку, Винда ругнется, типа - "Диск не готов". Как избавиться от этого сообщения?

VID (2002-02-18 08:51:00) [1]
Да, дело явно в ОСи...

cypher (2002-02-18 00:13:00) [2]
Гы.... а в Win98 окшко невыскакивает даже изпод Дельфей... тока дисковод жужжит! =)

cypher (2002-02-17 21:15:00) [3]
Народ, я не пью! =)))) серьезно... В дельфях окошко есть, просто exe- нет...

У меня Дельфи 5, WinXP Pro rus

VID (2002-02-17 21:13:00) [4]
Это ты про галочку "STOP ON DELPHI EXCEPTIONS ". TOOL - Debugger Options , вкладка Language Exceptions.

Я и включал и выключал эту опцию - в приведённом случае разницы нет, собщение как у cypher не появлялось ни в одном из случаев ...

nick_vstu (2002-02-17 20:59:00) [5]
В Delphi есть возможность настраивать - прерываться программе во время возникновения ошибок (даже если они в конструкции try...) или нет. Это где-то в настройках компилятора вроде.

VID (2002-02-17 19:49:00) [6]
а фиг его знает...у меня такое сообщение ни в каком случае не появляется ...

cypher (2002-02-17 16:54:00) [7]
Ну в принципе - да, только интересно, почему окошко появляется при запуске из дельфей...

VID (2002-02-17 02:39:00) [8]
значит проблема решена ? :))

cypher (2002-02-16 22:17:00) [9]
ой... меня колбасит...
окошко он мне выдавал при запуске из дельфей..
при запуске exe ничего не говорит =)))

cypher (2002-02-16 22:13:00) [10]
procedure TForm1.BuildNetShareList;
var
I: Integer;
LastCaption: String;
FindItem: TListItem;
begin
with ListView1 do begin
Items.BeginUpdate;
try
Items.Clear;
ShareList.Refresh;
for I := 0 to ShareList.Count - 1 do
with Items.Add, ShareList[I] do begin
////////////////////////////////////
if DirectoryExists(Path) then ImageIndex := 0
else ImageIndex := 4;
///////////////////////////////////
Caption := ShareName;
Data := ShareList[I];
SubItems.Add(Path);
SubItems.Add(Remark);
end;
AlphaSort;
finally
Items.EndUpdate;
end;
end;
end;

Функция заполняет ListView расшареными папками..
Если расшарить флоппик - ругается... В 9x не проворял, но в XP ругается...

VID (2002-02-16 19:36:00) [11]
Очень странно, так как в этом случае у меня, например, такой ьастдайной ругани не возникало. Функция преспокойно возвращает FALSE и всё .

Ты не мог бы привести код, где вызывается эта функция ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »