function OnEnd()
string subKey;
begin
subKey= " //SOFTWARE//Microsoft//Windows//CurrentVersion//Uninstall//" + IFX_PRODUCT_NAME;
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
if (RegDBKeyExist(subKey) =1) then
RegDBDeleteKey (subKey);
endif;
if(!ExistsDir(DISK1TARGET)) then
DeleteDir(DISK1TARGET,ALLCONTENTS);
endif;
end;
string subKey;
begin
subKey= " //SOFTWARE//Microsoft//Windows//CurrentVersion//Uninstall//" + IFX_PRODUCT_NAME;
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
if (RegDBKeyExist(subKey) =1) then
RegDBDeleteKey (subKey);
endif;
if(!ExistsDir(DISK1TARGET)) then
DeleteDir(DISK1TARGET,ALLCONTENTS);
endif;
end;