После копирования программа не видит файл. Delphi

[BeLuY]

Здравствуйте. В общем проблема следующего характера: на форме две кнопки, событие первой запускает копирование файла в папку программы, второй - проверяет наличие вновь созданного файла. После процедуры копирование (CopyFile, CopyFileEx), файл появляется в проводнике, но функция FileExists() не видит его. После перезапуска, программа начинает его видеть. Как это исправить?

Спасибо!

[JUDAS]

код посмотреть можно?

[BeLuY]

Примерно как-то так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not FileExists('CopyFile.txt') then ShowMessage('Файла нет');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    CopyFile(PChar(OpenDialog1.FileName),PChar(ExtractFileDir(ParamStr(0))+'\CopyFile.txt'),true);
end;

[JUDAS]

Скорее всего, в настройках параметров запуска Вашего приложения, первій параметр ParamStr(0) - не соответсвует текущей директории с ЕХЕ файлом.
Это могло проявится полсе переноса (переименования) Вашего проекта с папки в папку. Как правило, про этот параметр забывают )))

[BeLuY]

Дело не в этом, ведь файл в проводнике появляется, да и вручную пути прописывал - результат тот же

[JUDAS]

Попробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not FileExists(ExtractFileDir(ParamStr(0))+'\CopyFile.txt') then ShowMessage('Файла нет');
end;

[BeLuY]

Спасибо, помогло, но теперь возникла следующая проблема: после вызова OpenDialog.Execute не работает ShellExecute. Для наглядности приведу код:

procedure TForm1.Button1Click(Sender: TObject);
begin  
  if not FileExists(ExtractFileDir(ParamStr(0))+'\Asm00.asm') then ShowMessage('Файла нет');
  ShellExecute(Application.Handle,'open',PAnsiChar('TASM\TASM.EXE'),PAnsiChar('Asm00.asm /t > 1.txt'),'',SW_SHOW);  
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    CopyFile(PChar(OpenDialog1.FileName),PChar(ExtractFileDir(ParamStr(0))+'\Asm00.asm'),true);
  //CopyFile(PChar('D:\Prog01.asm'),PChar(ExtractFileDir(ParamStr(0))+'\Asm00.asm'),true);
end;

Если файл Asm00.asm есть, то при нажатии на Button1 работает, или же следует перезапускать программу

Добавлю: Если сделать так, то все работает:

procedure TForm1.Button2Click(Sender: TObject);
begin
  //if OpenDialog1.Execute then
    //CopyFile(PChar(OpenDialog1.FileName),PChar(ExtractFileDir(ParamStr(0))+'\Asm00.asm'),true);
  CopyFile(PChar('D:\Prog01.asm'),PChar(ExtractFileDir(ParamStr(0))+'\Asm00.asm'),true);
end;

[Stilet]

после вызова OpenDialog.Execute не работает ShellExecute

Ерунда. Все там работает, просто ты не потрудился указать в ShellExecute директорию.

[Serge_Bliznykov]

Stilet, ну разумеется!

BeLuY, Вы продолжаете наступать на одни и те же грабли!

Нужно, чтобы текущим был НУЖНЫЙ каталог или (ЛУЧШЕ!) работать с полными именами директорий (использовать полный путь, как Вам показали в примере).
Скорее всего при выполнении OpenDialog текущая папка сменяется на выбранную, соответственное ShellExecute не может выполнить 'TASM\TASM.EXE', т.к. в текущей папке нет подпапки TASM ...
пробуйте, например, так:

ShellExecute(Application.Handle,'open',PAnsiChar(ExtractFileDir(ParamStr(0))+'\TASM\TASM.EXE'),PAnsiChar('Asm00.asm /t > 1.txt'),'',SW_SHOW);

ну, разумеется, если папка TASM с tasm.exe внутри неё лежит там же, где ваш exeшник...

[BeLuY]

И правда, спасибо!