|
正式会员享受无限制浏览网站功能和高速网盘下载,赶快加入本站吧!
您需要 登录 才可以下载或查看,没有账号?立即注册
x
- [Code]
- procedure TotalDeleteRegKey(rKey: integer; sKey: string; deletesubkeys: boolean);
- var
- s: string;
- begin
- s := sKey;
- if deletesubkeys then
- RegDeleteKeyIncludingSubkeys(rKey, sKey)
- else
- RegDeleteKeyIfEmpty(rKey, sKey);
- if Pos('\', s) <> 0 then
- begin
- while s[Length(s)] <> '\' do
- Delete(s, Length(s), 1);
- Delete(s, Length(s), 1);
- TotalDeleteRegKey(rKey, s, false);
- end;
- end;
- procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
- begin
- if CurUninstallStep = usPostUninstall then
- TotalDeleteRegKey(HKCU, ExpandConstant('{app}'), true);
- end;
复制代码
|
|