Текущий архив: 2005.01.30;
Скачать: CL | DM;
Вниз
открытие файла Найти похожие ветки
← →
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]
← →
Neznaika © (2005-01-17 13:53) [13]>>Я пока не получил ответ на [5]
Да какая разница скажи как можно это сделать если знаешь и все.
← →
Fay © (2005-01-17 14:19) [14]2 Neznaika © (17.01.05 13:53) [13]
>> Да какая разница скажи как можно это сделать если знаешь и все.
Разница офигенная. Автору явно (судя по найденому решению) нужно не то, что он спросил.
← →
dms_main © (2005-01-17 15:11) [15]
> Fay © (17.01.05 13:28) [8]
> >> if not FileExists(fName) then exit;
> А это вАщЕ глупость.
Это не глупость - это обязательная проверка на существование файла.
А главное - что этот вариант работает...
← →
Fay © (2005-01-17 15:15) [16]2 dms_main © (17.01.05 15:11) [15]
1) А ты убери эту проверку. Узнаешь, "обязательная" она, или не очень.
2) ApplicationUse возвращает не то, что должно. К примеру, если файла нет, это совсем не значит, что он используется другой программой.
3) Ты ты и не ответил на [5].
← →
dms_main © (2005-01-17 19:31) [17]
> 3) Ты ты и не ответил на [5].
и необязан....
Хотя при открытии этого файла должен раздаваться звуковой сигнал
Страницы: 1 вся ветка
Текущий архив: 2005.01.30;
Скачать: CL | DM;
Память: 0.5 MB
Время: 0.05 c
