Самоудаление файла.

[iLnes]

Имеется такой код:

begin
  NewLocation := PAnsiChar(GetNewFolder + 'NewFile.exe');
  if ParamStr(0) <> NewLocation then
  begin
    CopyFile(PAnsiChar(ParamStr(0)), NewLocation, False);
    ShellExecuteA(0, 'open', NewLocation, PAnsiChar(ParamStr(0)), nil, 0);
    Halt
  end
  else
  begin
    DeleteFile(PAnsiChar(ParamStr(1)));
  end;

То есть, файл копирует себя в папку и самоудаляется. На Windows 7 - все отлично. На XP - копирует, запускает, но не самоудаляется. в чем может быть причина? есть альтернативы?

[GunSmoker]

в чем может быть причина?

Подсказка: DeleteFile - это функция.

[iLnes]

Не понимаю вашего намека и подсказки

[GunSmoker]

Функция возвращает значение. А ты с ним что делаешь? Игнорируешь. Почему?

[GunSmoker]

Нажимаем F1:

Return value

If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero (0). To get extended error information, call GetLastError.

И вот ещё кусочек для размышления:

Checks the return value of a Windows API call and raises an appropriate exception when it indicates failure.

Call Win32Check with the return value of a Windows API call that returns a Boolean to indicate success or failure. If the Windows API returns False (indicating failure), Win32Check calls RaiseLastOSError to raise an exception.

[iLnes]

    if(not DeleteFile(PAnsiChar(ParamStr(1)))) then
    ShowMessage('Cannot delete file :' + SysErrorMessage(GetLastError));

Пробовал так, даже ошибку не выводит


@UPD А нет, извиняюсь. Выбило ошибку: "Не удается найти указанный файл".

[GunSmoker]

Ну, вот вам и причина.

[iLnes]

Сообщение от GunSmoker

Ну, вот вам и причина.

Тогда почему на 7 работает, а на XP не хочет ?!

[GunSmoker]

(Вздох)

Потому что версия ОС тут ни при чём.

Тебе компьютер чёрному по белому сказал, что у тебя баг в коде - ты в DeleteFile передал не имя файла. Зачем сюда приплетать что-то ещё - выше моего разумения.

"Вчера я ехал на красный свет в зелёной машине и нормально проехал, а сегодня я ехал в синей машине на красный свет и меня остановили и взяли штраф! Почему меня остановили в синей машине, но не в зелёной?" Казалось бы: причём тут цвет машины?

Вот и у тебя так же. Ты обращаешь внимание на самое заметное (цвет машины/версию ОС), не замечая тот факт, что это не имеет никакого отношения к проблеме, это случайность, так кубики выпали. А проблема-то не в этом, она в твоих ошибках.

[GunSmoker]

P.S. Кстати, топик показывает важность проверки на ошибки, т.к. изначально при просмотре я заметил другой баг в коде, но всё же решил не говорить, а подвести к решению по частям, начав с правильной обработки ошибок. В итоге, как оказалось, ситуация у вас другая, не та, что я предполагал изначально. Итого, у вас уже найдено 2 бага в коде.