Ошибка при использовании copyfile

[The Best]

а у мну не пашет
Гейтсу: Конечно. halt;

Прикрепляю исходники.

[bill_gates]

А может перед удалением стоит подождать?

Sleep(1200);//например

[The Best]

М.. пожалуй даже и не знаю.. помогло или нет.. Походу нет.. Только вот появилась ещё одна ошибка: EInvalidOperation и что-то там про то, что не может сделать невидимы окно или что-то в этом роде.. выскакивает она во втором проекте после экзека на холте. (Cannot change Visible in OnShow or OnHide)

Ураа! Получилось! Тока прога терь тормозит жутко.

[bill_gates]

Есть еще один выход: Некоторые проги перед открытием лезут в нет и пишут, типа есть новая версия, обновить сейчас?. Я понимаю, что ето может и не самый разумный выход, но может сделать ланчер-апдейтер, который будет сначала коннектиться к нету и смотреть версию, обновлять Project1, а потом запускать уже обновленную прогу юзеру.

Сорри за пост, не заметил как отредактировался предыдущий.

[The Best]

У меня пока второй вариант работает. Но, как грится, надо же поискать проблем на своою голову)) Вот и решил "попонтить". Кста, проблему с тормозами тоже решил: вместо 1200 100 в слипе написал, и всё стало работать без заметных тормозов..

PS А если прога будет запускаться на компе, который будет подтормаживать?.. Получится, что там надо будет менять значение слипа на большее?.. Хреново.. Надо подумать..

PPS Вот я и смог написать то, что хотел: апдейтер проги из инета без использования сторонних прог и т.п. Уря!)) Пусть пока она и работает тока на пробном проекте (отдельно от основной проги), но скоро это изменится)

[uberchel]

Ну вот наваял процедуру которая работает по типу Uninstaller'a!

procedure UpdateApp(const UpdateFile, AppName: string);
var
  F: TextFile;
  DelAppName: string;
begin
  if  FileExists(UpdateFile) then
  begin
  DelAppName:= 'del.bat';
  AssignFile(F, DelAppName); 
  Rewrite(F);
  Writeln(F, 'del '+AppName);
  Writeln(F, 'ren '+ UpdateFile + ' '+AppName);
  Writeln(F, 'del '+ DelAppName);
  CloseFile(F);
  Winexec(Pchar(DelAppName), SW_Hide);
  Halt;
end;
end;

Ставите в таймер и как только в появляться файл обновленный EXE то, прога сама себя удаляет и переименовывает Новый EXE в себя!

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  UpdateApp('project2.exe', 'project1.exe');
end;

Project1 - сама прога , project2 -обновленная !

[Stilet]

Чет я не понимаю в чем трудности?

if not CopyFile... then ShowMessage(IntToStr(GetLastError)+' - '+SysErrorMessage(GetLastError));

И текст ошибки увидишь и ее код.

[The Best]

Stilet, дело в том, что SysErrorMessage(GetLastError)); даёт application complited succesfuly.

PS люди, когда же вы поймёте, что если человек просит дать что-то, то не надо говорить ему, что нужно сделать чтобы он сам получил это что-то.. (Я попросил дать описание ошибок функции, т.к. у меня не работает помощь, а в ответ получил "Зайди туда и увидишь сам всё" "Напиши это и увидиш сам всё". Еси бы это помогло, я бы и не обращаля сюда..)

[bill_gates]

Сообщение от The Best

PS А если прога будет запускаться на компе, который будет подтормаживать?.. Получится, что там надо будет менять значение слипа на большее?.. Хреново.. Надо подумать..

Я щас посмотрел старый код. Есть еще один вариант, не зависящий от слипа. Вот такой код был:

{$I-}

//(...) Другой код

repeat
deletefile('C:\project1.exe');
until IOResult=0;

//(...) Другой код

{$I+}

Так и не понял почему но IOResult всегда возвращает 0 если юзать его с DeleteFile. Но ведь DeleteFile это функция, типа Boolean возвращает false если удаление неудачно завершилось. Можно этим воспользоваться(Я свой код написал):

procedure TForm1.FormShow(Sender: TObject);
var b:boolean;
begin
{$I-}
b:=false;
repeat
if DeleteFile('Project1.exe') then begin
b:=true;
end;
{$I+}
until b=true;
end;

Форма Project'a2 не появится пока файл Project1 не будет свободен для удаления. Удачи!

[The Best]

А я немного доработаю твой код:

procedure TForm1.FormShow(Sender: TObject);
var b:boolean;
begin
 {$I-}
 b:=false;
 repeat
  if DeleteFile('Project1.exe') then
   b:=true;
 until b=true;
 {$I+}
end;

{$I+} не в репите должен стоять. а во вторых - этот код тоже почему-то не пашет.. Дело в том, что, он выводит тру а потом удаляет этот файл. Всё равно нужна задержка.. Но всё равно спасибо.

PS Всё таки хорошо отдохнуть какое-то время, а потом снова взяться за работу. Нам же ничего не мешает использовать функцию fileexists!! Тогда код будет следующий:

procedure TForm1.FormShow(Sender: TObject);
var 
 b:boolean;
begin
 {$I-}
 repeat
  if DeleteFile('Project1.exe') then
   b:=true;
 until (not fileexists('Project1.exe')) and (b=true);
 {$I+}
end;

Вопрос тока в том теперь заключается, что будет, если этот файл недоступен?.. Всё, вроде подправил кодик и на этот случай.. Вопрос тока будет ли это терь работать..

PPS ЭТО РАБОТАЕТ!