卸载后自动安装

悬赏园豆：60 [待解决问题]

我应该如何写脚本，让安装程序探测到之前如果已经安装过这个程序的时候自动删除前一版本的程序，然后开始安装这个版本的程序。

我目前的安装程序在删除前边那次的程序后就中止了。然后还要在点击运行才能开始安装。

开发工具

问题补充：

1:我想在OnShowUI中利用OnUnInstall事件删除前一版本。

2：但如何自动重新启动新版本的安装安装呢。在OnUnistall后在OnShowUI中直接调用 ONBEGIN/OnFirstUIBefore 等事件则提示：有另一个进程正在执行，请退出。不能自动重新启动安装程序。

一些是我的部分代码。请指正

function OnShowUI()
BOOL bMaintenanceMode, bUpdateMode;
string szIgnore, szTitle,szMsg;

begin

//bUnInstalled =TRUE;
//szTitle =sz1+gszVersionNo+sz2;
//Welcome ( szTitle, 0 );
//bKl_AllReInstalled =FALSE;
//flag_ReBegin:

// Enable dialog caching
Enable( DIALOGCACHE );

// Determine what events to show.
bUpdateMode = FALSE;
bMaintenanceMode = FALSE;

// Remove this to disabled update mode.
if( UPDATEMODE ) then
bUpdateMode = TRUE;
endif;
// Remove this to disable maintenance mode.
if ( MAINTENANCE ) then
bMaintenanceMode = TRUE;
endif;
// Show appropriate UI
// TODO: Enable if you want to enable background etc.
//if ( LoadStringFromStringTable( "TITLE_MAIN", szTitle ) < ISERR_SUCCESS ) then // Load the title string.
// szTitle = IFX_SETUP_TITLE;
//endif;
//SetTitle( szTitle, 24, WHITE );
//Enable( FULLWINDOWMODE );
//Enable( BACKGROUND );
//SetColor( BACKGROUND, RGB( 0, 128, 128 ) );
if( bUpdateMode ) then
OnUpdateUIBefore();
else
if ( bMaintenanceMode ) then
if(ReferenceFileIsUsing()<0)then
return -1;

endif;

szMsg = @IDS_UNINSTALLMESG; //ryy modify 0904
if(MessageBox( szMsg, MB_YESNO )==IDYES) then
//调用卸载程序
OnUninstall();

abort;
else
return -1;
endif;

else
OnFirstUIBefore();
endif;
endif;
//注册卸载键键值
ProcessBeforeDataMove();
// Move Data
OnMoveData();

//指定判别是否可以卸载文件
ProcessAfterDataMove();
//注册控件
SetupRegistry();

if( bUpdateMode ) then
OnUpdateUIAfter();
else
if ( bMaintenanceMode ) then
OnMaintUIAfter();
else
OnFirstUIAfter();
endif;
endif;

//if(bKl_AllReInstalled) then
//AllReInstalled();
//endif;
DestroyInstallFeatrueList();
// Disable dialog caching
Disable(DIALOGCACHE);
end;