远东包是installshield自配的,兼容性绝对没问题,关于卸载的问题,下面是我已经试验成功的
一个程序,请看好了:
function OnMoved()
STRING szWorkingDir,szIconPath,szItemName,svTmp,szParam;
STRING szProgram,szCommandLine,szShortCutKey,szProgramFolder;
NUMBER nResult,nFlag,nIcon;
begin
if !MAINTENANCE then
szProgramFolder =FOLDER_PROGRAMS+@PRODUCT_NAME;
szWorkingDir = TARGETDIR;
szIconPath = TARGETDIR+'//UNINSTALL.ICO';
nIcon =0;
szItemName = "卸载飞天财务";
//szProgram = szIconPath;
svTmp = PROGRAMFILES+"InstallShield Installation Information//"+PRODUCT_GUID+"//setup.exe";
LongPathToQuote(svTmp, TRUE);
szParam = svTmp;
LongPathToShortPath(szParam);
svTmp = COMMONFILES+"InstallShield//engine//6//Intel 32//ctor.dll";
LongPathToShortPath(svTmp);
szProgram = "RunDll32"+" "+ svTmp+",LaunchSetup";
szCommandLine = szProgram + " " + szParam;
//RunDll32 D:/PROGRA~1/COMMON~1/INSTAL~1/ENGINE/6/INTEL3~1/ctor.dll,LaunchSetup "D:/Program Files/InstallShield Installation Information/PRODUCT_GUID+"//setup.exe"
if (AddFolderIcon(szProgramFolder, szItemName, szCommandLine, szWorkingDir,
szIconPath, nIcon, szShortCutKey, nFlag) < 0) then
return -1;
endif;
nResult = CreateShellObjects( "" );
if nResult <0 then
return nResult;
else
ShowProgramFolder (szProgramFolder,SW_SHOW);
return nResult;
endif;
endif;
end;