windows installer fixes
This commit is contained in:
@@ -84,7 +84,8 @@ end;
|
||||
|
||||
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
|
||||
var
|
||||
CustomDataDir: String;
|
||||
CustomDataDir, AppDir: String;
|
||||
I: Integer;
|
||||
begin
|
||||
if CurUninstallStep = usPostUninstall then
|
||||
begin
|
||||
@@ -94,5 +95,17 @@ begin
|
||||
DelTree(CustomDataDir, True, True, True);
|
||||
RegDeleteKeyIncludingSubkeys(HKEY_LOCAL_MACHINE, 'Software\LOGAR\LOGAR-Server');
|
||||
end;
|
||||
|
||||
AppDir := ExpandConstant('{app}');
|
||||
if (AppDir <> '') and DirExists(AppDir) then
|
||||
begin
|
||||
for I := 1 to 5 do
|
||||
begin
|
||||
if DeleteFile(AppDir + '\nssm.exe') or not FileExists(AppDir + '\nssm.exe') then
|
||||
Break;
|
||||
Sleep(250);
|
||||
end;
|
||||
DelTree(AppDir, True, True, True);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
Reference in New Issue
Block a user