Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Получение последнего измененного файла, Получение последнего измененного файла 
:(
    Опции темы
1Age
Дата 15.1.2015, 10:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 13.1.2015

Репутация: нет
Всего: нет
Цитата(ТоляМБА @ 15.1.2015,  09:45)
Код
a := Chr(i);

Thanks smile
PM MAIL   Вверх
1Age
Дата 28.1.2015, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 13.1.2015

Репутация: нет
Всего: нет
Подниму темочку , дабы не создавать лишнюю .
И так , устанавливаю функцией ниже , время для файлов,папок .  Вообщем часто использую .
Но заметил очень странный баг , а может и не баг .
Суть - Пару раз в коде устанавливается время папки . Но если сидеть в самой папке , на которую хочу установить время , то время тупо не устанавливается .
Если папка не открыта , то все нормально работает.
Можно ли это как то фиксануть?
Код

function NT_SetDateTime(FileName: string; dtCreation, dtLastAccessTime, dtLastWriteTime: TDateTime): Boolean;
 // by Nicholas Robinson 
var
   hDir: THandle;
   ftCreation: TFiletime;
   ftLastAccessTime: TFiletime;
   ftLastWriteTime: TFiletime;
   function DTtoFT(dt: TDateTime): TFiletime;
   var
     dwft: DWORD;
     ft: TFiletime;
   begin
     dwft := DateTimeToFileDate(dt);
     DosDateTimeToFileTime(LongRec(dwft).Hi, LongRec(dwft).Lo, ft);
     LocalFileTimeToFileTime(ft, Result);
   end;
 begin
   hDir := CreateFile(PChar(FileName),
                      GENERIC_READ or GENERIC_WRITE,
                      0,
                      nil,
                      OPEN_EXISTING,
                      FILE_FLAG_BACKUP_SEMANTICS,
                      0);
   if hDir <> INVALID_HANDLE_VALUE then
    begin
     try
       ftCreation       := DTtoFT(dtCreation);
       ftLastAccessTime := DTtoFT(dtLastAccessTime);
       ftLastWriteTime  := DTtoFT(dtLastWriteTime);
       Result := SetFileTime(hDir, @ftCreation, @ftLastAccessTime, @ftLastWriteTime);
     finally
       CloseHandle(hDir);
     end;
   end
   else
     Result := False;
 end;
 procedure TForm1.Button2Click(Sender: TObject);
 begin
   NT_SetDateTime('c:\temp\MyFolder', now, now, now);
 end;


Это сообщение отредактировал(а) 1Age - 28.1.2015, 20:32
PM MAIL   Вверх
Illusion Dolphin
Дата 28.1.2015, 21:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63
https://msdn.microsoft.com/en-us/library/wi...v=vs.85%29.aspx


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
1Age
Дата 28.1.2015, 22:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 13.1.2015

Репутация: нет
Всего: нет
Цитата(Illusion Dolphin @ 28.1.2015,  21:56)
https://msdn.microsoft.com/en-us/library/wi...v=vs.85%29.aspx

Ошибку я в принципе знал , но не уверен был . Теперь убедился .
Цитата

32: Процесс не может получить доступ к файлу, так как этот файл занят другим процессом.

Походу из - за того что получает хендл папки. 
Исправить я так понимаю нельзя?

Это сообщение отредактировал(а) 1Age - 28.1.2015, 22:14
PM MAIL   Вверх
Illusion Dolphin
Дата 28.1.2015, 23:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63
Цитата

Походу из - за того что получает хендл папки. 

А попробуйте другие опции доступа. Я правильно понимаю, что ошибка в CreateFile? Что если добавить что-нибудь вроде FILE_SHARE_WRITE/FILE_SHARE_READ ?


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
1Age
Дата 29.1.2015, 16:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 13.1.2015

Репутация: нет
Всего: нет
Цитата(Illusion Dolphin @ 28.1.2015,  23:27)
Цитата

Походу из - за того что получает хендл папки. 

А попробуйте другие опции доступа. Я правильно понимаю, что ошибка в CreateFile? Что если добавить что-нибудь вроде FILE_SHARE_WRITE/FILE_SHARE_READ ?

Код

hDir := CreateFile(PChar(FileName),
                      GENERIC_READ or GENERIC_WRITE,
                      0,
                      nil,
                      OPEN_EXISTING,
                      FILE_FLAG_BACKUP_SEMANTICS,
                      0);

Я так понимаю , что вы написали выше, надо подставить за место этого?

Это сообщение отредактировал(а) 1Age - 29.1.2015, 16:53
PM MAIL   Вверх
Illusion Dolphin
Дата 29.1.2015, 20:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63
Это надо добавить к GENERIC_READ or GENERIC_WRITE через OR


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
1Age
Дата 29.1.2015, 21:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 13.1.2015

Репутация: нет
Всего: нет
Цитата(Illusion Dolphin @ 29.1.2015,  20:28)
Это надо добавить к GENERIC_READ or GENERIC_WRITE через OR

Не помогло ( 
Можете еще что нибудь подсказать? Ошибка такая же .

Это сообщение отредактировал(а) 1Age - 29.1.2015, 21:26
PM MAIL   Вверх
Illusion Dolphin
Дата 1.2.2015, 13:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63
Цитата

Не помогло ( 
Можете еще что нибудь подсказать? Ошибка такая же .

Без финального кода и примера папок сложно сказать.


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0498 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.