Eintrag in der Software hinzufügen/entfernen Liste erstellen

[Hagbart]

Ich habe eine kleine Procedure geschrieben mit der man in dem Softwaremenü, welches man in der Systemsteurung findet, einen eigenen Eintrag hinzufügen kann.

Vorher muss noch 'Registry' per uses eingebunden werden

Delphi-Quellcode:

procedure CreateSoftwareEntry(const DisplayName, IconPath, Version, Publisher, UninstallPath: String);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\' + Name, true) then
    begin
      Reg.WriteString('DisplayIcon', IconPath);
      Reg.WriteString('DisplayName', DisplayName);
      Reg.WriteString('DisplayVersion', Version);
      Reg.WriteString('Publisher', Publisher);
      Reg.WriteString('UninstallString', UninstallPath);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

so kann man es anwenden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateSoftwareEntry('Testeintrag', 'C:\Programme\Testdatei.exe', '1.0', 'Testpublisher', 'C:\Programme\UnInstaller.exe');
end;

Wer die Procedure noch erweitern möchte, kann in der Registrierung unter 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Uninstall\' ein paar vorhandene Schlüssel suchen und sich dann die für ihn interressanten Werte in die Procedure einfügen.