Модератор: Модераторы
Вопрос: Как сделать чтобы можно было запускать внешнюю программу.., получать уведомление о её выполнении,Код: Выделить всё
while ((FileExists(GetCurrentDir + '\tools\Charset\result_charset.txt')=false) or (E9FileStatus(GetCurrentDir + '\tools\Charset\result_charset.txt')=false)) do sleep (20);Код: Выделить всё
function E9FileStatus(const Origin: string): boolean;
var
F: TFileStream;
begin
//используется ли файл в данный момент другим приложением
{
Значение Описание
fmCreate Созда¸т файл с данным именем. Если файл существует, то открыть его в
режиме записи.
fmOpenRead Открыть файл только для чтения.
fmOpenWrite Открыть файл только на запись. При этом запись в файл заменит вс¸ его
содержимое.
fmOpenReadWrite Открыть файл скорее для изменения содержимого чем для замены его.
Режим доступа должен иметь одно из следующих значений:
Значение Описание
fmShareCompat Доступ к файлу совместим с FCB.
fmShareExclusive Другое приложение не может открыть файл для различных целей.
fmShareDenyWrite Другое приложение может открыть файл для чтения, но не для записи.
fmShareDenyRead Другое приложение может открыть файл для записи, но не для чтения.
fmShareDenyNone Разрешить другим файлам делать с файлом и чтени и запись.
Если файл невозможно открыть, то Create сгенерирует исключение.
Возвращает true если файл не заблокирован
}
try
F := TFileStream.Create(Origin, fmOpenReadWrite or fmShareExclusive);
try
Result := true;
finally
F.Free;
end;
except
Result := false;
end;
end; Ism писал(а):E9FileStatus
Ism писал(а):У Tprocess есть свойство running
while AProcess.Running do Application.ProcessMessages;
Ism писал(а):тогда события элементов должны работать
Ism писал(а):Если стартануть без poWaitOnExit, то код программы нормально будет выполняться
Вопрос: Как называется событие onКрестик.Click ???Ism писал(а):Или я ошибаюсь ?
Mr.Smart писал(а):TForm.OnClose, TForm.OnCloseQuery.
Ism писал(а):Либо сделайте отдельную кнопку для закрытия