⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 uninstall.rul

📁 pgp soucecode pgp soucecode
💻 RUL
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	    DeleteDir(svReturnString + "\\PGPFone", ONLYDIR);
	    DeleteDir(svReturnString + "\\TEMP", ONLYDIR);
	    DeleteDir(svReturnString + "\\Signatures", ONLYDIR);
	    DeleteDir(svReturnString + "\\Documentation", ALLCONTENTS);
	    DeleteDir(svReturnString + "\\Sample Keys", ONLYDIR);
    endif;

    //GET THE EUDORA PLUGIN PATH
    RegDBSetDefaultRoot(HKEY_CURRENT_USER);
    szKey = "Software\\Network Associates\\PGP60\\EudoraPlugin";
    szName = "PluginPath";

    RegDBGetKeyValueEx (szKey, szName, nvType, svValue, nvSize);

    //DELETE THE EUDORA PLUGIN
    TARGETDIR = svValue;
    DeleteFile ("pgpplugin.dll");
    //To remove files accidently installed with 6.0b14
    DeleteFile ("pgpEudoraPluginv4.dll");
    DeleteFile ("pgpEudoraPlugin.dll");

    //DELETE REGISTRY ENTRIES
    //HKEY_CURRENT_USER
    RegDBSetDefaultRoot(HKEY_CURRENT_USER);
    RegDBDeleteKey ("Software\\Network Associates\\PGP60");

    //HKEY_CLASSES_ROOT
    RegDBSetDefaultRoot(HKEY_CLASSES_ROOT);
    RegDBDeleteKey (".aexpk");
    RegDBDeleteKey (".asc");
    RegDBDeleteKey (".bexpk");
    RegDBDeleteKey (".pgd");
    RegDBDeleteKey (".pgp");
    RegDBDeleteKey (".pkr");
    RegDBDeleteKey (".prvkr");
    RegDBDeleteKey (".aexpk");
    RegDBDeleteKey (".pubkr");
    RegDBDeleteKey (".sig");
    RegDBDeleteKey (".skr");
    RegDBDeleteKey (".shf");
    RegDBDeleteKey (".pgr");
    RegDBDeleteKey (".rnd");
    RegDBDeleteKey ("PGP Groups");
    RegDBDeleteKey ("PGP Groups File");
    RegDBDeleteKey ("PGP Share");
    RegDBDeleteKey ("Randseed File");
    RegDBDeleteKey ("Ranseed File");
    RegDBDeleteKey ("CLSID\\{969223c0-26aa-11d0-90ee-444553540000}");
    RegDBDeleteKey ("PGP Armored Encrypted File");
    RegDBDeleteKey ("PGP Binary Extracted Public Key");
    RegDBDeleteKey ("PGP Armored Extracted Public Key");
    RegDBDeleteKey ("PGP Detached Signature File");
    RegDBDeleteKey ("PGP Encrypted File");
    RegDBDeleteKey ("PGP Private Keyring");
    RegDBDeleteKey ("PGP Public Keyring");
    RegDBDeleteKey ("PGP Binary Extracted Public Key");
    RegDBDeleteKey ("PGP Share File");

    //HKEY_LOCAL_MACHINE
    RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
    RegDBDeleteKey ("SOFTWARE\\Network Associates\\PGP");
    RegDBDeleteKey (".aexpk");
    RegDBDeleteKey (".asc");
    RegDBDeleteKey (".bexpk");
    RegDBDeleteKey (".pgd");
    RegDBDeleteKey (".pgp");
    RegDBDeleteKey (".pkr");
    RegDBDeleteKey (".prvkr");
    RegDBDeleteKey (".aexpk");
    RegDBDeleteKey (".pubkr");
    RegDBDeleteKey (".sig");
    RegDBDeleteKey (".skr");
    RegDBDeleteKey ("CLSID\\{969223c0-26aa-11d0-90ee-444553540000}");
    RegDBDeleteKey ("PGP Armored Encrypted File");
    RegDBDeleteKey ("PGP Binary Extracted Public Key");
    RegDBDeleteKey ("PGP Armored Extracted Public Key");
    RegDBDeleteKey ("PGP Detached Signature File");
    RegDBDeleteKey ("PGP Encrypted File");
    RegDBDeleteKey ("PGP Private Keyring");
    RegDBDeleteKey ("PGP Public Keyring");
    RegDBDeleteKey ("PGP Binary Extracted Public Key");
    RegDBDeleteKey ("SOFTWARE\\Microsoft\\Exchange\\Client\\Extensions\\PGP Plugin");
    RegDBDeleteKey ("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\explorer\\IStatus");
    RegDBDeleteKey ("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\PGP60DeinstKey");
    RegDBDeleteKey ("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\PGP602DeinstKey");
    RegDBDeleteKey ("SOFTWARE\\Network Associates\\PGP60");
    RegDBDeleteKey ("SOFTWARE\\Network Associates\\PGP");
    RegDBDeleteKey ("SOFTWARE\\Classes\\.pgr");
    RegDBDeleteKey ("SOFTWARE\\Classes\\.rnd");
    RegDBDeleteKey ("SOFTWARE\\Classes\\PGP Groups");
    RegDBDeleteKey ("SOFTWARE\\Classes\\PGP Groups File");
    RegDBDeleteKey ("SOFTWARE\\Classes\\PGP Share");
    RegDBDeleteKey ("SOFTWARE\\Classes\\Randseed File");
    RegDBDeleteKey ("SOFTWARE\\Classes\\Ranseed File");
    RegDBDeleteValue ("SOFTWARE\\Microsoft\\Exchange\\Client\\Extensions", "PGP Plugin");
    RegDBDeleteKey ("SYSTEM\\ControlSet001\\Services\\PGPmemlock");
 	RegDBDeleteKey ("SYSTEM\\ControlSet002\\Services\\PGPmemlock");
 	
    //HKEY_USERS
    RegDBSetDefaultRoot(HKEY_USERS);
    RegDBDeleteKey ("S-1-5-21-1998468922-181747292-2076119496-1000\\Software\\PGP");

    ProgDefGroupType(PERSONAL);
    DeleteProgramFolder ("P G P");
    DeleteFolderIcon(FOLDER_STARTUP,"PGPtray");

    //Outlook Express Uninstall
    SRCDIR = OEinstall;

    TARGETDIR = OEinstall;
    //See if the user has installed OE plugin and then upgraded OE
    szFileName = OEinstall ^ "msimn.exe";
    UseDLL( "Version.dll" );
    lSize = GetFileVersionInfoSizeA( szFileName, nHandle );
    NumToStr( szTemp, lSize );
    bVerInfo = GetFileVersionInfoA( szFileName, nHandle, lSize, szVerBufferb);
    ptr1 = &szResultBuffer;
    ptr2 = &ptr1;
    bVerValue = VerQueryValueA( szVerBufferb,"\\StringFileInfo\\040904b0\\CompanyName", ptr2, nSize);

    if (bVerValue = 0 ) then
	    bVerValue = VerQueryValueA( szVerBufferb,"\\StringFileInfo\\040904E4\\CompanyName", ptr2, nSize);
    endif;

    // pszResultBuffer is a pointer to a pointer which is the starting point
    // for the company name. How do you actually get the string ?
    StructGetP( ptr2, "MYTYPE_PSZ", "szString", lData, szData );
    UnUseDLL( "Version.dll" );

    if (szData = "Microsoft Corporation") then
	    //the user install the plugin then updated outlook
	    //so we DO want to use this newer file
	    bUpgraded = TRUE;
    endif;
    TARGETDIR = OEinstall;
    if (bUpgraded = FALSE) then
	    DeleteFile("msimn.exe");
	    RenameFile ("PGPmsimn.exe", "msimn.exe");
    else
	    DeleteFile("PGPmsimn.exe");
    endif;

    RegDBSetDefaultRoot (HKEY_CURRENT_USER);
    RegDBDeleteKey ("Software\\Network Associates\\PGP55\\OE");

    RegDBSetDefaultRoot (HKEY_LOCAL_MACHINE);
    RegDBDeleteKey ("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\PGPOEPlugin");

	TARGETDIR = svReturnString ^ "signatures";
	DeleteFile ("*.sig");
	DeleteFile ("*.*.sig");
	DeleteDir  (svReturnString ^ "signatures", ONLYDIR);
	
	UninstallPGPdisk(Installdir);
   	VarRestore (SRCTARGETDIR);
end;


///////////////////////////////////////////////////////////////////////////////
//
// Function: UNINSTALL  6.5
//
//  Purpose: Uninstalls PGP65
//
//
///////////////////////////////////////////////////////////////////////////////
function Uninstall65 ()
	STRING szLocalDB, szName, svValue, svInstallDir, szKey, svReturnString;
	STRING szResultBuffer, OEinstall, Installdir;
	STRING szData, szTemp, szFileName;
	NUMBER nvType, nvSize, nSize, nHandle;
	LONG lData, lSize;
    BOOL DeleteSharedDLLS, bVerValue, bUpgraded, bVerInfo, bPGPnetReboot;
    BOOL bOpt1, bOpt2;
    POINTER ptr1, ptr2;

begin
    VarSave (SRCTARGETDIR);
   		//Get the install directory
    	RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
    	szKey = "SOFTWARE\\Network Associates\\PGP";
    	szName = "InstallPath";
    	RegDBGetKeyValueEx (szKey, szName, nvType, svValue, nvSize);
		Installdir = svValue;
		
		RegDBSetDefaultRoot (HKEY_LOCAL_MACHINE);
	if (RegDBKeyExist ("SOFTWARE\\Network Associates\\PGP\\PGPnet") >= 0) then
			
		if (ComponentIsItemSelected ( MEDIA , "PGPnet" ) = TRUE) then
			//in this situation we warn the user that reboot
			//will be needed before continuing.
			bPGPnetReboot = FALSE;
			Start:
			if ((nvUninstallOld = 1)&&(bEasyInstall = TRUE))then
				bPGPnetReboot = TRUE;
				SdShowMsg ("Uninstalling old version of PGP.", TRUE );
				Delay (3);
				SdShowMsg ("Uninstalling old version of PGP.", FALSE );
				SdShowMsg ("Existing keyrings placed into folder named Old Keyrings.", TRUE );
				Delay (3);
				SdShowMsg ("Existing keyrings placed into folder named Old Keyrings.", FALSE );
			else
				bOpt1 = TRUE;
        		bOpt2 = FALSE;
        		SetDialogTitle (DLG_ASK_OPTIONS, "IMPORTANT");
        		Disable (BACKBUTTON);
        		AskOptions (EXCLUSIVE,  @UNINSTALLREBOOTTITLEA,  "&Yes, I want setup to do this for me.",
        		bOpt1, "&No, I will do this manualy.", bOpt2);
        		Disable (DIALOGCACHE);
        		if ((bOpt1) && (!bOpt2))then
	    			bPGPnetReboot = TRUE;
        		elseif ((!bOpt1) && (bOpt2))then
        			bInstallAborted = TRUE;
    				CleanUpInstall();
        			abort;
        		elseif ((!bOpt1) && (!bOpt2))then
	    			MessageBox("Illegal Selection.\nSelect Yes or No.", WARNING);
        			goto Start;
        		elseif ((bOpt1) && (bOpt2))then
        			MessageBox("Illegal Selection.\nSelect Yes or No.", WARNING);
        			goto Start;
        		endif;        	
			endif;
		endif;
	endif;
	//Remove the service info.
	//This needs to be done before SDK removal
	if ((bIsWindows95)||(bIsWindows98)) then
			/*service entry for pgpike95*/
			RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
			szLocalDB = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\RunServices";
		RegDBDeleteValue ( szLocalDB , "IKEService95" );
	else	
		LaunchAppAndWait (Installdir ^ "IKEservice.exe","-u", WAIT);
	endif;
	
    //DELETE .DLL'S FROM WINDOWS SYSTEM DIRECTORY
    TARGETDIR = WINSYSDIR;
    DeleteFile ("randseed.bin");
    DeleteFile ("PGP.hlp");
    DeleteFile ("PGP.gid");
    TARGETDIR = WINSYSDIR;
	DeleteSharedFile (WINSYSDIR, "PGP_sdk.dll");
	DeleteSharedFile (WINSYSDIR, "PGPsdkNL.dll");
	DeleteSharedFile (WINSYSDIR, "PGPsdkUI.dll");
    DeleteSharedFile (WINSYSDIR, "pgpcl.dll");
    DeleteSharedFile (WINSYSDIR, "pgpmn.dll");
    DeleteSharedFile (WINSYSDIR, "pgprd.dll");
    DeleteSharedFile (WINSYSDIR, "pgpsc.dll");
    DeleteSharedFile (WINSYSDIR, "pgpExch.dll");
    DeleteSharedFile (WINSYSDIR, "pgpoe.dll");
    DeleteSharedFile (WINSYSDIR, "pgphk.dll");
    DeleteSharedFile (WINDIR, "PGPMEM~1.vxd");
    DeleteSharedFile (WINDIR, "PGPMEMLOCK.vxd");
    DeleteSharedFile (WINSYSDIR ^ "drivers", "PGPmemlock.sys");

    //Remove installdir from PATH (cmdline)
    SetEnvVar(0, Installdir);

    if (bIsWindowsNT4) then
    	GetEnvVar ("USERPROFILE", szUserDir);
        TARGETDIR = szUserDir ^"Application Data\\PGP";
    	DeleteFile ("PGPsdk.dat");
    	DeleteFile ("PGPMacBinaryMappings.txt");
    	DeleteDir(TARGETDIR, ALLCONTENTS);
    	
    	TARGETDIR = WINDIR ^"Profiles\\Default User\\Application Data\\PGP";
    	DeleteFile ("PGPsdk.dat");
    	DeleteFile ("PGPMacBinaryMappings.txt");
		DeleteDir(TARGETDIR, ALLCONTENTS);
	endif;
	
    TARGETDIR = WINDIR;
    DeleteFile ("PGPsdk.dat");
    DeleteFile ("PGPMacBinaryMappings.txt");
	
    //Outlook Express install location
    szKey = "SOFTWARE\\Network Associates\\PGP\\OE";
    szName = "OutlookExpress";
    RegDBGetKeyValueEx (szKey, szName, nvType, svValue, nvSize);
    OEinstall = svValue;

    //Delete the admin pref file if there is one
    TARGETDIR = WINDIR ^ "Profiles\\All Users\\Application Data\\PGP";
    DeleteFile ("PGPadmin.dat");
    DeleteDir(WINDIR ^ "Profiles\\All Users\\Application Data\\PGP", ALLCONTENTS);
	//Delete install dir. files
    TARGETDIR = Installdir;
    DeleteFile ("keygen.avi");
    DeleteFile ("Pgp.cnt");
    DeleteFile ("pgp.hlp");
    DeleteFile ("pgp.gid");
    DeleteFile ("PGPadmin.exe");
    DeleteFile ("PGPkeys.exe");
    DeleteFile ("PGPlog.exe");
    DeleteFile ("PGPtools.exe");
    DeleteFile ("PGPtray.exe");
    DeleteFile ("Pgp.exe");
    DeleteFile ("Quickstart.doc");
    DeleteFile ("PGPclient.dat");
    DeleteFile ("Eudora.url");
    DeleteFile ("Adobe.url");
    DeleteFile ("randseed.bin");
    DeleteFile ("randseed.rnd");
    DeleteFile ("*.pdf");
    DeleteFile ("*.isu");
    DeleteFile ("PGPsda.etm");
    DeleteFile ("PGPsea.etm");
    DeleteFile ("PGPnetsdk.dat");
    DeleteFile ("install.dll");
    DeleteFile ("uninstall.exe");

    TARGETDIR = Installdir ^ "Documentation";
    DeleteFile ("license.txt");
    DeleteFile ("Whatsnew.htm");
    DeleteFile ("PGPWinUsersGuide.pdf");
    DeleteFile ("whatsnew.txt");
    DeleteFile ("whatsnew.doc");
   	DeleteFile ("PGPCmdLineGuide.pdf");

    TARGETDIR = Installdir ^ "Sample Keys";
    DeleteFile ("SampleKeys.asc");
    DeleteFile ("WhatIsThis.txt");

    DeleteDir(Installdir ^ "Documentation", ALLCONTENTS);
	DeleteDir(Installdir ^ "Sample Keys", ONLYDIR);

    //GET THE EUDORA PLUGIN PATH
    RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
    szKey = "SOFTWARE\\Network Associates\\PGP\\EudoraPlugin";
    szName = "PluginPath";

    RegDBGetKeyValueEx (szKey, szName, nvType, svValue, nvSize);

    //DELETE THE EUDORA PLUGIN
    TARGETDIR = svValue;
    DeleteFile ("pgpplugin.dll");

    //HKEY_LOCAL_MACHINE
    RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);

    //HKEY_CLASSES_ROOT
    RegDBSetDefaultRoot(HKEY_CLASSES_ROOT);
    RegDBDeleteKey (".aexpk");
    RegDBDeleteKey (".asc");
    RegDBDeleteKey (".bexpk");
    RegDBDeleteKey (".pgd");
    RegDBDeleteKey (".pgp");
    RegDBDeleteKey (".pkr");
    RegDBDeleteKey (".prvkr");
    RegDBDeleteKey (".aexpk");
    RegDBDeleteKey (".pubkr");
    RegDBDeleteKey (".sig");
    RegDBDeleteKey (".skr");
    RegDBDeleteKey (".shf");
    RegDBDeleteKey (".pgr");
    RegDBDeleteKey (".rnd");
    RegDBDeleteKey ("PGP Groups");
    RegDBDeleteKey ("PGP Share");
    RegDBDeleteKey ("PGP Random Seed");
    RegDBDeleteKey ("CLSID\\{969223c0-26aa-11d0-90ee-444553540000}");
    RegDBDeleteKey ("PGP Armored File");
    RegDBDeleteKey ("PGP Binary Extracted Public Key");
    RegDBDeleteKey ("PGP Armored Extracted Public Key");
    RegDBDeleteKey ("PGP Detached Signature File");
    RegDBDeleteKey ("PGP Encrypted File");
    RegDBDeleteKey ("PGP Private Keyring");
    RegDBDeleteKey ("PGP Public Keyring");
    RegDBDeleteKey ("PGP Binary Extracted Public Key");
    RegDBDeleteKey ("PGP Share File");

    //HKEY_LOCAL_MACHINE
    RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
    RegDBDeleteKey (".aexpk");
    RegDBDeleteKey (".asc");
    RegDBDeleteKey (".bexpk");
    RegDBDeleteKey (".pgd");
    RegDBDeleteKey (".pgp");
    RegDBDeleteKey (".pkr");
    RegDBDeleteKey (".prvkr");
    RegDBDeleteKey (".aexpk");
    RegDBDeleteKey (".pubkr");
    RegDBDeleteKey (".sig");
    RegDBDeleteKey (".skr");
    RegDBDeleteKey ("CLSID\\{969223c0-26aa-11d0-90ee-444553540000}");
    RegDBDeleteKey ("PGP Armored Encrypted File");
    RegDBDeleteKey ("PGP Binary Extracted Public Key");
    RegDBDeleteKey ("PGP Armored Extracted Public Key");
    RegDBDeleteKey ("PGP Detached Signature File");
    RegDBDeleteKey ("PGP Encrypted File");
    RegDBDeleteKey ("PGP Private Keyring");
    RegDBDeleteKey ("PGP Public Keyring");
    RegDBDeleteKey ("PGP Binary Extracted Public Key");
    RegDBDeleteKey ("SOFTWARE\\Microsoft\\Exchange\\Client\\Extensions\\PGP Plugin");
    RegDBDeleteKey ("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\explorer\\IStatus");
    RegDBDeleteKey ("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\PGP");
    RegDBDeleteKey ("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\PGP");
    RegDBDeleteKey ("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\PGP");
    RegDBDeleteKey ("SOFTWARE\\Classes\\.pgr");
    RegDBDeleteKey ("SOFTWARE\\Classes\\.rnd");
    RegDBDeleteKey ("SOFTWARE\\Classes\\PGP Groups");
    RegDBDeleteKey ("SOFTWARE\\Classes\\PGP Groups File");
    RegDBDeleteKey ("SOFTWARE\\Classes\\PGP Share");
    RegDBDeleteKey ("SOFTWARE\\Classes\\Randseed File");
    RegDBDeleteKey ("SOFTWARE\\Classes\\Ranseed File");
    RegDBDeleteValue ("SOFTWARE\\Microsoft\\Exchange\\Client\\Extensions", "PGP Plugin");

    //HKEY_USERS
    RegDBSetDefaultRoot(HKEY_USERS);
    RegDBDeleteKey ("S-1-5-21-1998468922-181747292-2076119496-1000\\Software\\PGP");
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -