Кстати почему так странно делается перемещение файла?:
Цитата:
|
Сообщение от Danielz
Код:
if CopyFile(PWideChar(SourceFile), PWideChar(DestDir + '\' + ExtractFileName(SourceFile)), True) then
begin
if not DeleteFile(SourceFile) then
Result := False;
end
else
Result := False; |
Для перемещения/переименования файлов есть функция RenameFile (оболочка над API-функцией MoveFile)