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

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

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

открытие файла [D7, WinXP]

dms_main © (2005-01-17 13:03:00)
Уважаемые! Можно ли узнать открыт файл другой программой или нет? И как реализовать?

dms_main (2005-01-17 19:31:00) [1]

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

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

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

dms_main (2005-01-17 15:11:00) [3]

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

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

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

Neznaika (2005-01-17 13:53:00) [5]
>>Я пока не получил ответ на [5]
Да какая разница скажи как можно это сделать если знаешь и все.

Fay (2005-01-17 13:51:00) [6]
2 Neznaika © (17.01.05 13:44) [11]
Я пока не получил ответ на [5]

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

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

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

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

Neznaika (2005-01-17 13:35:00) [9]
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622454&n=15

Fay (2005-01-17 13:28:00) [10]
>> if not FileExists(fName) then exit;
А это вАщЕ глупость.

Fay (2005-01-17 13:26:00) [11]
2 dms_main © (17.01.05 13:25) [6]
Это не решение.

dms_main (2005-01-17 13:25:00) [12]
уже нашел - но не здесь:
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:23:00) [13]
А зачем именно это надо?

dms_main (2005-01-17 13:16:00) [14]
пока не нашел - мож ссылку кинешь?

Neznaika (2005-01-17 13:16:00) [15]
Ну например в блокноте в шапке формы пишется название файла который открыт можно прочитать там (дурацкий вариант конечно но тоже вариант) Как это сделать ты найдешь на этом сайте с помощью поиска.

dms_main (2005-01-17 13:11:00) [16]
Есть файл например тот же txt, нужно узнать открыт он какой либо другой программой или нет....

Neznaika (2005-01-17 13:07:00) [17]
Можно! например txt файлы для блокнота можно открыть WordPad-ом.

;)

О чем речь то?

Наверх

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