Exec unistaller второго приложения

Question

Я пытаюсь unistall все плагины, установленные в моем приложении, перед тем, как его unistalling. Я использую код, приведенный ниже, но у меня нет результатов ...

for I := 0 to GetArrayLength(PluginsID)-1 do 
begin 
    sUnInstallString := 'Software\Microsoft\Windows\CurrentVersion\Uninstall\' + PluginsID[I]; 
    Exec(sUnInstallString, '/NORESTART','', SW_SHOW, ewWaitUntilTerminated, uResultCode); 
end; 

Есть ли что-нибудь не так?

EDITED

изменить код, чтобы найти правильное unistall строки:

for I := 0 to GetArrayLength(Plugins)-1 do 
    begin 
    sUnInstPath := 'Software\Microsoft\Windows\CurrentVersion\Uninstall\' + Plugins[I]; 
    if RegQueryStringValue(HKLM, sUnInstPath, 'UninstallString', sUnInstallString) then 
    begin  
     Exec(sUnInstallString, '','', SW_HIDE, ewWaitUntilTerminated, uResultCode); 
    end; 
    end; 

Но он не работает снова .... sUnInstallString заполняется с правильным значением.

Answer 1

Я просто добавить строку

StringChangeEx(sUnInstallString, '"', '', True); 

Exec перед тем. Значение АМСВО из реестра с недействительным полукокса "

Answer 2

Изменение Exec вызов этому:

Exec('>', sUnInstallString, ...) 

(. Не удалять кавычки, прежде чем делать это)