Нужен файл для открытия

[bookkc]

Как сделать, что бы програма немогла запускаться если рядом с ней небудет файла к прмеру programm.exe ?

[Stilet]

Например используя FindFirst можно провести поиск в той же папке и выяснить есть ли файл. если нет то halt.

[Tronix]

Можно тупо открыть-закрыть, отключив на время IOchecking... Хотя пахнет быдлокодом конешно

PHP код:

Var F : File;
begin
   Assign(F, "programm.exe");
   {$I-}
    Reset(F,1);
   {$I+}
    If IOResult <> 0 then 
      begin
         writeln('error: file "programm.exe" not found')
         halt;
      end;
    close(F);
end. 


А ваще как уже выше сказали - FindFirst правильное решение:

PHP код:

Uses DOS;
Var
      SR : SearchRec;
Begin
      FindFirst('program.exe',AnyFile, SR);
      FindClose(SR);
      If DOSError <> 0 then
        begin
           writeln('error: file "programm.exe" not found');
           halt;
        end;
End. 


[bookkc]

Ошибка

[Tronix]

Сообщение от bookkc

Ошибка

Да. Ошибка.

[Grag]

Тоже самое, но... без ошибок!

Var F : File;
begin
   Assign(F, 'programm.exe');
   {$I-}
    Reset(F,1);
   {$I+}
    If IOResult <> 0 then 
      begin
         writeln('error: file "programm.exe" not found');
         halt;
      end;
    close(F);
end.