Обновление файла после перезагрузки системы

Delphi , ОС и Железо , Компьютер

Автор: Dimka Maslov
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> 
Данная процедура настраивает систему для обновления файлов после перезагрузки.
TargetFileName - имя файла, содержиоме которого при перезагрузке будет заменено
на содержимое файла, имя которого укзаывается в параметре SourceFileName.

Если первый аргумент процедуры представляет собой пустую строку, при
перезагрузке файл SourceFileName будет удалён.

Зависимости: Windows
Автор:       Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        18 ноября 2002 г.
***************************************************** }

procedure BootReplaceFile(TargetFileName, SourceFileName: string)
var
  WinInitName: string;
  P: PChar;

  procedure InternalGetShortPathName(var S: string);
  begin
    UniqueString(S);
    GetShortPathName(PChar(S), PChar(S), Length(S));
    SetLength(S, StrLen(@S[1]));
    CharToOEM(PChar(S), PChar(S));
  end;

begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    if TargetFileName <> '' then
      P := PChar(TargetFileName)
    else
      P := nil;
    MoveFileEx(PChar(SourceFileName), P,
      MOVEFILE_DELAY_UNTIL_REBOOT or MOVEFILE_REPLACE_EXISTING);
  end
  else
  begin
    SetLength(WinInitName, MAX_PATH);
    GetWindowsDirectory(@WinInitName[1], MAX_PATH);
    SetLength(WinInitName, StrLen(@WinInitName[1]));
    WinInitName := IncludeTrailingBackslash(WinInitName) + 'WININIT.INI';
    if TargetFileName = '' then
      TargetFileName := 'NUL'
    else
      InternalGetShortPathName(TargetFileName);
    InternalGetShortPathName(SourceFileName);
    WritePrivateProfileString('Rename', PChar(TargetFileName),
      PChar(SourceFileName), PChar(WinInit));
  end;
end;

Пример использования:

// После перезагрузки содержимое первого файла будет заменено на
// содержимое второго файла, а второй файл будет удалён
BootReplaceFile('c:\Program Files\proga.exe', 'c:\temp\proga.exe');

// Указанный файл будет удалён после перезагрузки
BootReplaceFile('', 'c:\temp\proga.exe');

Программный процесс BootReplaceFile, написанный на языке Delphi, обновляет файл после перезапуска системы. Процедура принимает два параметра типа строка: TargetFileName и SourceFileName. Если TargetFileName не пустой, файл по указанному пути будет заменен содержимым файла из пути SourceFileName. Если TargetFileName пустой, файл из пути SourceFileName будет удален.

Программный процесс включает в себя два вложенных процесса:

1. InternalGetShortPathName: Процедура конвертирует длинное имя файла в короткое используя функцию GetShortPathName.
2. Основной процесс использует эту процедуру для конвертации обоих TargetFileName и SourceFileName в их короткие формы, если это необходимо.

Пример использования процесса BootReplaceFile:

// Заменить файл 'c:\Program Files\proga.exe' на 'c:\temp\proga.exe' после перезапуска, а затем удалить 'c:\temp\proga.exe'
BootReplaceFile('c:\Program Files\proga.exe', 'c:\temp\proga.exe');

// Удалить файл 'c:\temp\proga.exe' после перезапуска
BootReplaceFile('', 'c:\temp\proga.exe');

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

Альтернативное решение могло бы заключаться в использовании функции SHFileOperation API или третьей-сторонней библиотеки, которая предоставляет функциональность по управлению файлами. Эти подходы, вероятно, будут более надежными и совместимыми с современными версиями Windows.

Процедура BootReplaceFile позволяет обновлять файлы после перезагрузки системы, заменяя содержимое одного файла на содержимое другого или удаляя файл полностью.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Компьютер ::