Проблема, не успевает удалится файл

[Lonix]

Смысл программы в том чтобы найти файл1, его удалить и в место него поставить другой файл2, а потом удалить файл2. Такая проблема: он находит файл1, начинает удалять, из заэтого файл2 не копируется. Вот код:
.................
var
h: string;
begin
h:=memo1.Lines.Strings[0]; // путь к файлу
DeleteFile(pchar(h)); //удаляем файл
while FileExists(h) do
begin
DeleteFile(pchar(h));
end;
copyfile('uninstall.exe', pchar(h), false);
DeleteFile('uninstall.exe');

Как можно это исправиь?

[merax]

Я не проверял, времени нет, попробуй Sleep использовать!

[Сильванович Михаил]

Меня вот смущает следующий код:

while FileExists(h) do
begin
DeleteFile(pchar(h));
end;

Какой смысл пытаться запускать DeleteFile несколько раз? (достаточно одного и он стерт, если то позволяют атрибуты файла)

Если надо подождать можно сделать так:

while FileExists(h) do
begin
Application.ProcessMessages;
end;

З.Ы. Проверял - работает.

[Lonix]

Все работает, спасибо!
Application.ProcessMessages - а что именно делает эта функция?

[Сильванович Михаил]

Эта функция позволяет подождать пока приложение будет обрабатывать сообщения. Здесь использована, чтобы программа была доступна юзеру
во время работы цикла.

[r-sol]

А что будет если файл нельзя удалить? защищен он записи или редактируется? ведь программа зависнет?
DeleteFile один раз отработав, сразу возвращает результат, и только потом выполнение идет дальше, надо просто этот результат проверить... И можно спокойно копировать.

[Сильванович Михаил]

Спасибо, что поправил r-sol, но я имел в виду Windows.DeleteFile,а
не SysUtils.DeleteFile. А с зависанием полностью согласен.