как можно сделать проверку?

[KARUSHEV]

Всем привет!

Подскажите, как можно сделать проверку, при запуске программы на наличие какого-нибудь файла (например txt), который будет храниться в определенной папке, если файла нет, то программа не должна запускаться. Нужно это для того, чтобы программа работала на одном компе, если программу (exeшник) копируют, то она не должна запускаться. Если можно на примере, или где можно почитать как это сделать.

Заранее большое спасибо!

[Alex Cones]

http://www.programmersforum.ru/showthread.php?t=65944

[russian-stalker]

Язык какой?
Если Delphi, то:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  SysUtils;

{$R *.res}

begin
  if not fileexists(extractfilepath(paramstr(0))+'my.txt') then
  application.Terminate;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[KARUSHEV]

Язык Delphi, а где будет храниться my.txt, в данном примере? мне нужно чтобы он был в другой папке (не вместе с программой).

[Пепел Феникса]

в папке с прогой....но путь то можно свой указать.

[Alex Cones]

Ну давайте полный путь. Для этого колдуйте с
S:=Application.Exename

Delete,Length Вам в помощь.

[russian-stalker]

В данном примере он ищется в папке с программой
Измените это:
extractfilepath(paramstr(0))+'my.tx t'
на допустим
'C:\my.txt'

[KARUSHEV]

Спасибо! сегодня вечером попробую сделать. Плюсы всем поставил

[KARUSHEV]

Работает только, если в той же папке, может я не правильно делаю c 'C:\my.txt' ?
Подправьте, что не так:

  if not fileexists(extractfilepath(paramstr(0))+'C:\my.txt') then
  application.Terminate;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
}

[SERG1980]

 if not fileexists('C:\my.txt') then