VPF::Удаление файлов - Форум программистов

bear9

Дата 20.12.2006, 11:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Собственно, интересует возможность автоматического удаления файла (группы файлов) после перезагрузки Windows XP.

SlaUr

Дата 20.12.2006, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 3
Всего: 5

Поставить в автозагрузку (HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce)
свою программу и пусть она удаляет что хочет а после батником удалит себя (батник сам себя умеет удалять)

ASGDeveloper

Дата 20.12.2006, 13:18 (ссылка)

(нет голосов)

Загрузка ...

developer

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

Репутация: 1
Всего: 1

Код


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

Зависимости: Windows
Автор:       Dimka Maslov, [email protected], 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');

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »