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.