Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как проверить

Автор: koder 17.6.2006, 16:02

сабж?

Автор: Spectral 17.6.2006, 17:18

Для папки:

Код


if DirectoryExists('\\ip\directory\') then
  ShowMessage('Directory Exists!');

Для файла:

Код


if FileExists('\\ip\directory\inf.txt') then
  ShowMessage('File Exists!');

Автор: koder 18.6.2006, 00:37

Я имею ввиду
мы создали net share myres=c:\res
Как проверить есть ли myres или нет? на этом же компьютере.

Автор: Mailman 18.6.2006, 01:13

\\127.0.0.1\myshare

Автор: koder 18.6.2006, 08:52

Mailman, программным путем.

Автор: Mechanic 18.6.2006, 18:59

Цитата(koder @ 18.6.2006, 08:52

)

Mailman, программным путем.

Цитата(Spectral @ 17.6.2006, 17:18

)

Для папки:

Код


if DirectoryExists('\\ip\directory\') then
  ShowMessage('Directory Exists!');

Только вместо '\\ip\directory' написать '\\localhost\myres' или '\\127.0.0.1\myres'.

Автор: koder 19.6.2006, 14:55

А можно уменьшить время проверки наличия ресурса, а то программу замедляет ух ти как...

Автор: Romikgy 19.6.2006, 16:32

http://forum.vingrad.ru/index.php?act=module&module=vingradfaq&target=main_panel&section=753
WNetEnumResource
RESOURCETYPE_DISK
имхо так