Add Uninstall key to registry using delphi

Need an a delphi expert to help me fixing a program that adds an uninstall key to windows registry.

The program worked before and now, when not working on windows 10.

Procedure CreateUnInstalleRegEntry (UnInstall_Key_Path:String;

DisplayName :String;

DisplayIcon :String;

UninstallString :String;

var RegRetCode :integer;

var RegErrorMessage :String);

var

Reg: TRegistry;

Key_Path :String; // Key path in HKEY_LOCAL_MACHINE

begin

RegRetCode := 0;

RegErrorMessage := '';

if (UnInstall_Key_Path = '')

then begin

RegRetCode := 1;

RegErrorMessage := 'Invalid Registry Key';

exit;

end;

Key_Path := '\Software\Microsoft\Windows\CurrentVersion\Uninstall\' + UnInstall_Key_Path;

Reg := [login to view URL];

[login to view URL] := KEY_ALL_ACCESS + ACCESS_32KEY + ACCESS_64KEY;

try

[login to view URL] := HKEY_LOCAL_MACHINE;

{True because we want to create it if it doesn’t exist}

if [login to view URL](Key_Path, True)

then begin

if (Trim(DisplayName) <> '') then

[login to view URL]('DisplayName',DisplayName);

// If DisplayIcon value is empty - just don't write/create string

if (Trim(DisplayIcon) <> '') then

[login to view URL]('DisplayIcon',DisplayIcon);

// If WriteString value is empty - just don't write/create string

if (Trim(UninstallString) <> '') then

[login to view URL]('UninstallString',UninstallString);

end;

[login to view URL];

[login to view URL];

except

RegRetCode := 99;

RegErrorMessage := 'UnKnown Error';

[login to view URL];

end;

end;

C# Programming C++ Programming Delphi Software Architecture Windows Desktop

Project ID: #17117215

About the project