Uninstall Check

[Pipocooling]

Напишите пожалуйста пример функции чтоб при запуске unins000.exe он проверял наличие файла unins001.exe в той же папке.

 

[Timick]

Вроде так:

FileExists(ExpandConstant('{src}\unins001.exe'))

 

[Pipocooling]

Timick, не совсем то, надо чтоб при деинсталляции проверялся unins001.exe можно и месиджбокс, я просто саму функцию не могу написать

 

[Косой]

Наверное, что-то вроде такого:
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep=usUninstall then
begin
if FileExists(ExpandConstant('{app}\unins001.exe')) then
begin
необходимые действия.........
end;
end;
end;