VPF::Существует ли компонент... - Форум программистов

ADAM83

Дата 16.2.2006, 09:09 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте эксперты
Кто-нибудь знает, существует ли такой компонент (для Дельфи 7) который, например,
синхронизировался бы с временем, и через 2-3 недели удалил бы себя (проект) и все свои файлы.
Спасибо заранее

Akella

Дата 16.2.2006, 09:49 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

никогда такого не встречал, но удаление программы с компьютера через, например, пару недель это не сложно, расчитать, сравнить, запустить delete.bat.
в delete.bat может быть типа

delete "c:\program files\myproj\*.*"

незабудь про кавычки, т.к. в Win98 может не удалиться
Добавлено @ 09:52
delete.bat можно вставить в автозагрузку, но лучше не нужно, т.к. на компьютере может быть установлена программа типа winPatrol, которая следит за тем, что и кто пхает в автозагрузку.

ADAM83

Дата 16.2.2006, 10:25 (ссылка)

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

Загрузка ...

Шустрый

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

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

Akella, а нельзя ли вставить на форму таймер, и по истечении какой-то времени программа удалилась с винта?

Snowy

Дата 16.2.2006, 10:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Вставить можно.
Только он может не сработать, если программу закроют раньше, а потом снова запустят.
Нужно сохранять кол-во отработанного времени или просто вычислять дату от текущей.

ADAM83

Дата 16.2.2006, 10:36 (ссылка)

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

Загрузка ...

Шустрый

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

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

Snowy, ты можешь на примере показать это, а то я не давно начал программировать, толком нема

Snowy

Дата 16.2.2006, 12:07 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Приведи свой dpr файл к следующему виду:

Код

program Project1;

uses
  Windows,
  Sysutils,
  Classes,
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

function Check: boolean; // проверяем, можно ли жить зальше
const killer = 'k.bat';
var
  sfile: string; // Скрытый файл, который скажет нам, когда программу запускали в первый раз
  days:  TDateTime; // Сколько дней работает программа
  sl:    TStringList;
  h:     THandle;
begin
  result := false;
  sfile := GetEnvironmentVariable('APPDATA');
  if sfile = '' then
    sfile := GetEnvironmentVariable('WINDIR');
  sfile := sfile + '\sdata.sys';
  h := CreateFile(PChar(sfile), GENERIC_WRITE, 0, nil, CREATE_NEW,
       FILE_ATTRIBUTE_HIDDEN or FILE_ATTRIBUTE_SYSTEM or FILE_ATTRIBUTE_READONLY,0);
  CloseHandle(h);
  days := now - FileDateToDateTime(FileAge(sfile));
  if days <= 20 then Exit; // если еще не больше 20 дней, то еще рано
  sl := TStringList.Create; // иначе создаем батник самоубийства
  sl.Add('s:');
  sl.Add('del "'+ParamStr(0)+'"');
  sl.Add('if exist "' + ParamStr(0) + '" goto s');
  sl.Add('echo y | del "' + ExtractFilePath(ParamStr(0)) + '*.*"'); // убить всех
  sl.Add('del "%0"'); // батник застрелится, когда отработает
  sl.SaveToFile(killer); // сохраняем его на диск
  sl.Free;
  result := true;
  WinExec(killer, SW_HIDE); // запускаем батник скрыто
end;

begin
  if Check then Exit; // если проверка показала, что жить нельзя
  Application.Initialize; // иначе стандартный запуск
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Этот код позволит твоей программе запускаться в течении 20 дней.
После этого все файлы в папке программы будут уничтожены.
Обращаю особое внимание: в настройках проекта укажи папку, куда класть скомпиленный ехешник.
Иначе рискуешь потерять все исходняки.
Для деактивации самоубийства на время отладки, просто закоментируй вызов функции Check.

ADAM83

Дата 16.2.2006, 12:43 (ссылка)

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

Загрузка ...

Шустрый

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

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

Snowy, спасибо за пример.
Всем сэнк

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