[GrabbeR]

Мужики, делаю деинсталлятор и тут трабла. Если запустить Uninstall.exe из папки программы то директория не удалится из-за запущенного экземпляра. Как можно еще удалить Uninstall.exe вместе с папкой, где он находится? От перестановки действий результат с ошибками.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

procedure TForm1.Button1Click(Sender: TObject); var    reg: TRegistry;    sFileMask, StartGroup, InstFolder, Temp, AppName : string;    F: TextFile; begin    reg := TRegistry.Create;    try //Удаление группы в меню Пуск       reg.OpenKey('Software\MyCompany\ICT', true);       StartGroup := reg.ReadString('StartGroup');       MyRemoveDir(GetSpecialFolderPath(CSIDL_COMMON_PROGRAMS) + '\' + StartGroup); //Удаление самой папки с программой       InstFolder := reg.ReadString('Installation directory');       MyRemoveDir(InstFolder); //Удаление ярлыка на Рабочем столе       sFileMask := GetShortcutFolder(sfDesktop) + 'Ruo.lnk';       DeleteFile(sFileMask); //Удаление ветки в реестре       reg.CloseKey;       reg.DeleteKey('Software\MyCompany\ICT');    finally       reg.Free    end;   //Самоудаление файла       Temp:= 'delete.bat';       AppName:= ExtractFileName(ParamSTR(0));       AssignFile(F, Temp);       Rewrite(F);       Writeln(F, 'del ' + AppName);       Writeln(F, 'del ' + Temp);       CloseFile(F);       WinExec(PCHar(Temp),SW_HIDE);       Halt; end;

[Bargest]

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

[GrabbeR]

Если без удаления папки, то нормально все работает. Может быть при установке стоит извлечь Uninstall.exe в системную папку, к примеру, и оттуда его запускать при деинсталляции?

[BBBCat]

Создавай батник этажом выше. Или вообще в корне.

[M.A.D.M.A.N.]

InnoSteup куда-то в темп выгружает файлик и запускает его.

[angvelem]

Сообщение от GrabbeR

Если без удаления папки..

Открой папку любой программы, которую хочешь удалить и большинство деинсталляторов не смогут её удалить.

[GrabbeR]

Значит ерундовые деинсталляторы. Пишу нормальный. Пошел след. методом: Install.exe во время установки копирует уже распакованный Uninstall.exe и Delete.bat в системную папку. Оттуда через Пуск юзер запускает его и все полностью удаляется, после чего запускается батник и удаляет Uninstall.exe =)

[angvelem]

Сообщение от GrabbeR

Значит ерундовые деинсталляторы. Пишу нормальный.

Насмешил до слёз умник. Когда папка открыта, она становится "захваченной". Учи матчасть горе программист.

[GrabbeR]

Сообщение от angvelem

Когда папка открыта, она становится "захваченной".

Это само собой понятно. Вопрос был в том, как выйти из этого положения.

[angvelem]

Тебе здесь (http://www.cyberforum.ru/delphi-winapi/) уже ответили.

[GrabbeR]

Уже по-своему сделал, получилось. Спасибо всем.