#DEFINE PROGRAM_NAME "my program" #DEFINE UNINSTALL_PROGRAM "myuninstall.exe" #DEFINE WIN_UNINSTALL_REGISTRY "Software\Microsoft\Windows\CurrentVersion\Uninstall\" #DEFINE WIN_UNINSTALL_UNINSTALLSTRING "UninstallString" #DEFINE WIN_UNINSTALL_DISPLAY "DisplayName" oRegistry.WriteRegistryString(HKEY_LOCAL_MACHINE,; WIN_UNINSTALL_REGISTRY+PROGRAM_NAME,; WIN_UNINSTALL_UNINSTALLSTRING,; ADDBS(This.WindowsSystemDirectory)+UNINSTALL_PROGRAM,; .T.) oRegistry.WriteRegistryString(HKEY_LOCAL_MACHINE,; WIN_UNINSTALL_REGISTRY+PROGRAM_NAME,; WIN_UNINSTALL_DISPLAY,; PROGRAM_NAME,; .T.)>Hi,