[_Code] var ResultStr:string; ResultCode: Integer; function InitializeSetup(): Boolean; begin RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{A115F0FB-15AA-4DA5-9F35-4294EBE5D0AC}_is1', 'UninstallString', ResultStr) if ResultStr='' then begin Result := True; end else ResultStr:=RemoveQuotes(ResultStr); if RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{A115F0FB-15AA-4DA5-9F35-4294EBE5D0AC}_is1') then begin if MsgBox('Вы действительно хотите удалить KMPlayer и все компоненты программы?', mbInformation, MB_YESNO) = idYes then Exec(ResultStr, '/SILENT', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) If not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{A115F0FB-15AA-4DA5-9F35-4294EBE5D0AC}_is1') then begin Result := True; end; end; end; |