[Stealthmax]

Доброе время суток. Помогите с кодом. Пытаюсь выполнить удаление файлов через unlocker, но происходит "exit code: 1" после запуска »

Дружище, зачем такой изврат? Все банальнее и проще:

Код:

[_Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  ErrorCode: Integer;
begin
  case CurUninstallStep of
    usPostUninstall:
     begin
     //отмена регистрации *.dll
     Exec(ExpandConstant('{sys}')+'\regsvr32.exe', '/u /s ' + ExpandConstant('{pf}') + '\WinRar\RarExt.dll', '', SW_HIDE, ewWaitUntilTerminated, ErrorCode);
    //освобождаем dll-ку перезапуском Проводника 
     Exec('cmd', '/C WMIC PROCESS WHERE Name="explorer.exe" delete & WMIC PROCESS WHERE Name="explorer.exe" call SetPriority 64', '', sw_hide, ewWaitUntilTerminated, ErrorCode);
     //Exec('cmd', '/C WMIC PROCESS WHERE Name="explorer.exe" CALL Terminate', '', sw_hide, ewWaitUntilTerminated, ErrorCode); // либо этот вариант
    //далее удаляем папки, файлы
    end; 
end;

В любом случае, Unlocker при выполнении команды принудительно перезапустит оболочку Проводника. Так что лишние телодвижения ни к чему.

[ZVSRus]

Парни подскажите, как сделать чтобы файл удалялся вместе со всеми файлами при деинсталляции.
Файл (DLL) добавлен в дистрибутив отдельно для регистрации.

[sergey3695]

ZVSRus,

Код:

[UninstallDelete]
Type: FilesAndOrDirs; Name: {app};

[ZVSRus]

sergey3695,
[UninstallDelete]
Type: FilesAndOrDirs; Name: {app};
Результат нулевой, как не удалялся, так и не удаляется.
Наверное надо как-то через скрипт.

[Nordek]

Файл (DLL) добавлен в дистрибутив отдельно для регистрации. »

Смотрите флаг regserver - При установке регистрирует, при деинсталляции отменяет регистрацию.
Т.е:

Код:

[Files]
Source: example.dll; DestDir: {app}; Flags: regserver

[ZVSRus]

Source: example.dll; DestDir: {app}; Flags: regserver

Результат нулевой. Деинстоллятором не удаляется. Вручную легко.
Когда msimg32.dll находится в папке с программой, программа становится зарегестрированной.
Если ее убрать программа не зарегестрирована.
Прога Light Image Resizer 4.7.6.1

[TryRooM]

ZVSRus,

Наверное надо как-то через скрипт. »

Код:

Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if (CurUninstallStep = usPostUninstall)  then
UnloadDLL(ExpandConstant('{app}\msimg32.dll'));
DeleteFile(ExpandConstant('{app}\msimg32.dll'));
end;

[ZVSRus]

Наверное надо как-то через скрипт

DLL,ка удалилась но остались папки в которой она находилась.
наверное надо что-то дописать к процедуре.

[Nordek]

msimg32.dll »

GDIEXT Client DLL уже есть и в Windows XP и в Windows 7 в папке System32.

наверное надо что-то дописать »

Код:

DelTree(ExpandConstant('{app}'), True, True, True);

[ZVSRus]

Код: DelTree(ExpandConstant('{app}'), True, True, True);

Удаляет все в чистую в таком виде:

Код:

  UnloadDLL(ExpandConstant('{app}\msimg32.dll'));
  DeleteFile(ExpandConstant('{app}\msimg32.dll'));
  DelTree(ExpandConstant('{app}'), True, True, True);
  RemoveDir(ExpandConstant('{app}'));
  RemoveDir(ExpandConstant('{pf}\ObviousIdea'));

Но только почему то, как и да этой процедуры выдает сообщение,
что часть элементов осталась, вы можете остальное удалить вручную.
Хотя ничего нет, все удалилось.