setupfolders.rul

vc环境下的pgp源码

// $Id: setupfolders.rul,v 1.18.4.2 1999/06/16 06:01:37 philipn Exp $
//____________________________________________________________________________
//	Copyright (C) 1998 Network Associates Inc. and affiliated companies.
//	All rights reserved.
//	
//  Author: Philip Nathan
//____________________________________________________________________________


///////////////////////////////////////////////////////////////////////////////
//
// Function: SetupFolders
//
//  Purpose: This function creates all the folders and shortcuts for the
//           setup.
//
///////////////////////////////////////////////////////////////////////////////
function SetupFolders()
    NUMBER nResult;
	STRING szProgram;
begin
    nResult = CreateShellObjects( "" );
	ProgDefGroupType(COMMON);
	
	szProgram = svDir ^ "PGPtray.exe";
	LongPathToQuote (szProgram,TRUE);
	szAppPath = svDir;
	
	//Startup group
	AddFolderIcon
	(FOLDER_STARTUP,"PGPtray",szProgram,szAppPath,"",0,"",REPLACE);

	CreateProgramFolder ("P G P");

	if (ComponentIsItemSelected
	(MEDIA,"User's Manual") = TRUE) then
		szProgram = TARGETDIR ^ "Documentation" ^ "PGPWinUsersGuide.pdf";
		LongPathToQuote (szProgram,TRUE);
		szAppPath = TARGETDIR ^ "Documentation";
		AddFolderIcon
		(FOLDER_STARTMENU ^ "Programs" ^ "P G P" ^ "Documentation",
		"PGP User's Guide",szProgram,szAppPath
		,"",0,"",REPLACE);
	endif;

	if (bImAdminInstall) then
		szProgram = TARGETDIR ^ "Documentation" ^ "PGPAdministratorsGuide.pdf";
		LongPathToQuote (szProgram,TRUE);
		szAppPath = TARGETDIR ^ "Documentation";
		AddFolderIcon
		(FOLDER_STARTMENU ^ "Programs" ^ "P G P" ^ "Documentation",
		"PGP Administrator's Guide",szProgram,szAppPath
		,"",0,"",REPLACE);
		
		szProgram = TARGETDIR ^ "pgpadmin.exe";
		LongPathToQuote (szProgram,TRUE);
		szAppPath = TARGETDIR;
		AddFolderIcon
		(FOLDER_STARTMENU ^ "Programs" ^ "P G P",
		"PGPadmin",szProgram,szAppPath ,"",0,"",REPLACE);
	endif;

	szProgram = TARGETDIR ^ "Documentation" ^ "IntroToCrypto.pdf";
	LongPathToQuote (szProgram,TRUE);
	szAppPath = TARGETDIR ^ "Documentation";
	AddFolderIcon
	(FOLDER_STARTMENU ^ "Programs" ^ "P G P" ^ "Documentation",
	"Intro To Crypto",szProgram,szAppPath
	,"",0,"",REPLACE);

	szProgram = TARGETDIR ^ "Documentation" ^ "WhatsNew.htm";
	LongPathToQuote (szProgram,TRUE);
	szAppPath = TARGETDIR ^ "Documentation";
	AddFolderIcon
	(FOLDER_STARTMENU ^ "Programs" ^ "P G P" ^ "Documentation",
	"What's New (html)",szProgram,szAppPath
	,"",0,"",REPLACE);
	
	if (ComponentIsItemSelected ( MEDIA , "NTCmdline" ) = TRUE) then
		szProgram = TARGETDIR ^ "Documentation" ^ "PGPCmdLineGuide.pdf";
		LongPathToQuote (szProgram,TRUE);
		szAppPath = TARGETDIR ^ "Documentation";
		AddFolderIcon
		(FOLDER_STARTMENU ^ "Programs" ^ "P G P" ^ "Documentation",
		"PGP Command Line Guide",szProgram,szAppPath
		,"",0,"",REPLACE);	
	endif;
	
	szProgram = TARGETDIR ^ "pgpkeys.exe";
	LongPathToQuote (szProgram,TRUE);
	szAppPath = TARGETDIR;
	AddFolderIcon
	(FOLDER_STARTMENU ^ "Programs" ^ "P G P",
	"PGPkeys",szProgram,szAppPath ,"",0,"",REPLACE);

	szProgram = TARGETDIR ^ "PGPtray.exe";
	LongPathToQuote (szProgram,TRUE);
	szAppPath = TARGETDIR;
	AddFolderIcon
	(FOLDER_STARTMENU ^ "Programs" ^ "P G P",
	"PGPtray",szProgram,szAppPath,"",0,"",REPLACE);
	
	szProgram = TARGETDIR ^ "PGPtools.exe";
	LongPathToQuote (szProgram,TRUE);
	szAppPath = TARGETDIR;
	AddFolderIcon
	(FOLDER_STARTMENU ^ "Programs" ^ "P G P",
	"PGPtools",szProgram,szAppPath,"",0,"",REPLACE);
	
	if (ComponentIsItemSelected	(MEDIA,"PGPdisk") = TRUE) then
		szProgram = TARGETDIR ^ "PGPdisk.exe";
		LongPathToQuote (szProgram,TRUE);
		szAppPath = TARGETDIR;
		AddFolderIcon
		(FOLDER_STARTMENU ^ "Programs" ^ "P G P",
		"PGPdisk",szProgram,szAppPath,"",0,"",REPLACE);
	endif;
	
	//PGPnet
	if (ComponentIsItemSelected	(MEDIA,"PGPnet") = TRUE) then
		//Set start menu items
		ProgDefGroupType(COMMON);

		szProgram = TARGETDIR ^ "PGPnet.exe";
		LongPathToQuote (szProgram,TRUE);
		szAppPath = TARGETDIR;
		AddFolderIcon
		(FOLDER_STARTMENU ^ "Programs" ^ "P G P",
		"PGPnet",szProgram,szAppPath
		,"",0,"",REPLACE);
		
		szProgram = TARGETDIR ^ "SetAdapter.exe";
		LongPathToQuote (szProgram,TRUE);
		szAppPath = TARGETDIR;
		AddFolderIcon
		(FOLDER_STARTMENU ^ "Programs" ^ "P G P",
		"Set Adapter",szProgram,szAppPath
		,"",0,"",REPLACE);
	endif;
    return nResult;
 end;