открытие файла

← →
dms_main © (2005-01-17 13:03) [0]

Уважаемые! Можно ли узнать открыт файл другой программой или нет? И как реализовать?

← →
Neznaika © (2005-01-17 13:07) [1]

Можно! например txt файлы для блокнота можно открыть WordPad-ом.

;)

О чем речь то?

← →
dms_main © (2005-01-17 13:11) [2]

Есть файл например тот же txt, нужно узнать открыт он какой либо другой программой или нет....

← →
Neznaika © (2005-01-17 13:16) [3]

Ну например в блокноте в шапке формы пишется название файла который открыт можно прочитать там (дурацкий вариант конечно но тоже вариант) Как это сделать ты найдешь на этом сайте с помощью поиска.

← →
dms_main © (2005-01-17 13:16) [4]

пока не нашел - мож ссылку кинешь?

← →
Fay © (2005-01-17 13:23) [5]

А зачем именно это надо?

← →
dms_main © (2005-01-17 13:25) [6]

уже нашел - но не здесь:
Function ApplicationUse(fName : string ) : boolean; var HFileRes : HFILE; begin Result := false; if not FileExists(fName) then exit; HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0); Result := (HFileRes = INVALID_HANDLE_VALUE); if not Result then CloseHandle(HFileRes); end;

← →
Fay © (2005-01-17 13:26) [7]

2 dms_main © (17.01.05 13:25) [6]
Это не решение.

← →
Fay © (2005-01-17 13:28) [8]

>> if not FileExists(fName) then exit;
А это вАщЕ глупость.

← →
Neznaika © (2005-01-17 13:35) [9]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622454&n=15

← →
Fay © (2005-01-17 13:36) [10]

2 Neznaika © (17.01.05 13:35) [9]
>> Пример получения списка запущенных приложений
Зачем?

← →
Neznaika © (2005-01-17 13:44) [11]

Это я в продолжение своего дурацкого варианта описанного в Neznaika © (17.01.05 13:16) [3]

оттуда можно посмотреть какой файл открыт из каптион формы(еще раз повторяю что сам знаю что это глупо).

Обращаюсь к Fay, че-то ты всех футболишь, сам то что-нибудь предложи!

← →
Fay © (2005-01-17 13:51) [12]

2 Neznaika © (17.01.05 13:44) [11]
Я пока не получил ответ на [5]

>>Я пока не получил ответ на [5]
Да какая разница скажи как можно это сделать если знаешь и все.

2 Neznaika © (17.01.05 13:53) [13]
>> Да какая разница скажи как можно это сделать если знаешь и все.
Разница офигенная. Автору явно (судя по найденому решению) нужно не то, что он спросил.

> Fay © (17.01.05 13:28) [8]
> >> if not FileExists(fName) then exit;
> А это вАщЕ глупость.

Это не глупость - это обязательная проверка на существование файла.
А главное - что этот вариант работает...

2 dms_main © (17.01.05 15:11) [15]
1) А ты убери эту проверку. Узнаешь, "обязательная" она, или не очень.
2) ApplicationUse возвращает не то, что должно. К примеру, если файла нет, это совсем не значит, что он используется другой программой.
3) Ты ты и не ответил на [5].

> 3) Ты ты и не ответил на [5].

и необязан....
Хотя при открытии этого файла должен раздаваться звуковой сигнал

открытие файла Найти похожие ветки