Проверка при запуске

[Nice42ru]

Как сделать следующее:
При запуске программа проверяет в папке файлы тоесть там programma.exe run.dll если запустили exe а в папке нету run.dll то программа выводит ошибку и закрывается, как это осуществить?


зы ВСЕХ С НАСТУПАЮЩИМ!

[IT-man]

If not fileexist('your.dll') then halt;

[Nice42ru]

а можно ли сюда добавить примитивную проверку на размер файла????

[aleks8091]

If not fileexist('your.dll') then halt;

Спасибо!
Вот интересно, можно как нить защитить программу от копирования? Либо при копировании чтобы она получала следующий индивидуальный номер <> номеру your.dll

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

можно как нить защитить программу от копирования?

какнить да можно

[Goodwin98]

Отдельный файл ? Ну, наверно, если только работая напрямую с секторами диска.
Чем-нибудь типа If not fileexist('your.dll') then halt; точно не обойтись

[aleks8091]

Как сделать следующее:
При запуске программа проверяет в папке файлы тоесть там programma.exe run.dll если запустили exe а в папке нету run.dll то программа выводит ошибку и закрывается, как это осуществить?

можно еще 'your.dll' кинуть на сервак, и при каждом включеннии программы Коннектится к нему)) не удобно ток..

[Nice42ru]

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

[Terran]

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

Можно.
Во простой способ:

Procedure TForm1.FormCreate(Sender: TObject);
Var
M: TMemoryStream;
Begin
M:=TMemoryStream.Create;
M.LoadFromFile('Proga.exe');
If M.Size <> 12345 Then
Begin
M.Free;
ShowMessage('Ошибка!');
Halt;
End;
M.Free;
End;

[Serge_Bliznykov]

Terran, категорически не согласен с предложенным Вами способом ;(
конкретно - зачем делать LoadFromFile ?! ;(

для Pascal:

var
  f: file of Byte;
  size : Longint;
begin
  Assign(f, 'Proga.exe');
  Reset(f);
  size := FileSize(f);
  Close(f);
  Writeln('File size in bytes: ',size);

либо, используя тот же метод, для Delphi:

var
  f: file of Byte;
  size : Longint;
begin
  FileMode := 0;
  AssignFile(f, Application.ExeName );
  Reset(f);
  size := FileSize(f);
  CloseFile(f);
  ShowMessage('File size in bytes: '+IntToStr(size));
end;

либо можно использовать FindFirst (для TurboPascal тоже подойдёт этот способ):

var
  sr : TSearchRec;
  size : Longint;
begin
  size := 0;
  if FindFirst(Application.ExeName, faAnyFile, sr) = 0
    then  size := sr.Size;
  FindClose(sr);
  ShowMessage('File size in bytes: '+IntToStr(size));
end;

либо через TFileStream:

var
  fs : TFileStream;
  size : Longint;
begin
  size := 0;
  fs := TFileStream.Create(Application.ExeName, fmShareDenyNone);
  size := fs.Size;
  FreeAndNil(fs);
  ShowMessage('File size in bytes: '+IntToStr(size));
end;

разумеется, во всех примерах вместо Application.ExeName можно написать имя любого файла, например, 'proga.exe'