No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Adicionar mi Aplicacion a (Quitar Programas).

delphi

uses Registry;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.LazyWrite := false;
  reg.OpenKey(
    'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MyProgam',
    true);
  reg.WriteString('DisplayName', 'My Program');
  reg.WriteString('UninstallString',
   'C:\Program Files\Borland\Delphi 3\MyUninstall.exe UninstalMe');
  reg.CloseKey;
  reg.free;
end;

Codigo de ejemplo:

delphi

uses Registry;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.LazyWrite := false;
  reg.DeleteKey(
'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MyProgam');
  reg.free;
end;

Saludos!