📄 registry.rul
字号:
szKey = "SOFTWARE\\Network Associates\\PGPdisk";
szName = "LastOpenDir";
nType = REGDB_STRING;
szValue = "c:\\";
RegDBSetKeyValueEx (szKey, szName, nType, szValue, -1);
szName = "LastSaveDir";
nType = REGDB_STRING;
szValue = "c:\\";
RegDBSetKeyValueEx (szKey, szName, nType, szValue, -1);
szName = "AllowFAT32";
nType = REGDB_NUMBER;
szValue = "1";
RegDBSetKeyValueEx (szKey, szName, nType, szValue, -1);
szName = "AutoUnmount";
nType = REGDB_NUMBER;
szValue = "1";
RegDBSetKeyValueEx (szKey, szName, nType, szValue, -1);
szName = "HotKeyCode";
nType = REGDB_NUMBER;
szValue = "00000379";
RegDBSetKeyValueEx (szKey, szName, nType, szValue, -1);
szName = "HotKeyEnabled";
nType = REGDB_NUMBER;
szValue = "0";
RegDBSetKeyValueEx (szKey, szName, nType, szValue, -1);
szName = "UnmountOnSleep";
nType = REGDB_NUMBER;
szValue = "1";
RegDBSetKeyValueEx (szKey, szName, nType, szValue, -1);
szName = "UnmountTimeout";
nType = REGDB_NUMBER;
szValue = "15";
RegDBSetKeyValueEx (szKey, szName, nType, szValue, -1);
szName = "LastCreateSize";
nType = REGDB_NUMBER;
szValue = "00102400";
RegDBSetKeyValueEx (szKey, szName, nType, szValue, -1);
szName = "LastDateSplashed";
nType = REGDB_NUMBER;
szValue = "00";
RegDBSetKeyValueEx (szKey, szName, nType, szValue, -1);
szName = "WasMainDialogSmall";
nType = REGDB_NUMBER;
szValue = "00";
RegDBSetKeyValueEx (szKey, szName, nType, szValue, -1);
//HKEY_LOCAL_MACHINE
RegDBSetDefaultRoot (HKEY_LOCAL_MACHINE);
szKey = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\PGPdisk.exe";
szName = "";
nType = REGDB_STRING;
szValue = svTarget ^ "PGPDISK.EXE";
LongPathToShortPath (szValue);
RegDBSetKeyValueEx (szKey, szName, nType, szValue, -1);
szName = "Path";
nType = REGDB_STRING;
szValue = svTarget;
LongPathToShortPath (szValue);
RegDBSetKeyValueEx (szKey, szName, nType, szValue, -1);
endif;
//ROOT
RegDBSetDefaultRoot(HKEY_CLASSES_ROOT);
RegDBSetKeyValueEx
("\\.asc" ,"",REGDB_STRING,"PGP Armored File",-1);
RegDBSetKeyValueEx
("\\.aexpk" ,"",REGDB_STRING,"PGP Armored Extracted Public Key",-1);
RegDBSetKeyValueEx
("\\.bexpk" ,"",REGDB_STRING,"PGP Binary Extracted Public Key",-1);
RegDBSetKeyValueEx
("\\.pgp" ,"",REGDB_STRING,"PGP Encrypted File",-1);
RegDBSetKeyValueEx
("\\.prvkr" ,"",REGDB_STRING,"PGP Private Keyring",-1);
RegDBSetKeyValueEx
("\\.pubkr" ,"",REGDB_STRING,"PGP Public Keyring",-1);
RegDBSetKeyValueEx
("\\.sig" ,"",REGDB_STRING,"PGP Detached Signature File",-1);
RegDBSetKeyValueEx
("\\.pkr" ,"",REGDB_STRING,"PGP Public Keyring",-1);
RegDBSetKeyValueEx
("\\.skr" ,"",REGDB_STRING,"PGP Private Keyring",-1);
RegDBSetKeyValueEx
("\\.shf" ,"",REGDB_STRING,"PGP Share",-1);
RegDBSetKeyValueEx
("\\.rnd" ,"",REGDB_STRING,"PGP Random Seed",-1);
RegDBSetKeyValueEx
("\\.pgr" ,"",REGDB_STRING,"PGP Groups",-1);
szLocalDB = "\\*\\shellex\\ContextMenuHandlers\\" +
"{969223c0-26aa-11d0-90ee-444553540000}";
RegDBSetKeyValueEx
(szLocalDB ,"",REGDB_STRING,"",-1);
szLocalDB = "\\Folder\\shellex\\ContextMenuHandlers\\" +
"{969223c0-26aa-11d0-90ee-444553540000}";
RegDBSetKeyValueEx
(szLocalDB ,"",REGDB_STRING,"",-1);
szLocalDB = "\\CLSID\\{969223c0-26aa-11d0-90ee-444553540000}";
RegDBSetKeyValueEx
(szLocalDB ,"",REGDB_STRING,"PGP Shell Extension",-1);
RegDBSetKeyValueEx
(szLocalDB ^ "InProcServer32","" ,
REGDB_STRING,"pgpmn.dll",-1);
RegDBSetKeyValueEx
(szLocalDB ^"InProcServer32","ThreadingModel" ,
REGDB_STRING,"Apartment",-1);
//FILE ASSOCIATED ICONS
szLocalDB = "\\PGP Encrypted File";
RegDBSetKeyValueEx
(szLocalDB,"",
REGDB_STRING,"PGP Encrypted File",-1);
RegDBSetKeyValueEx
("\\PGP Encrypted File" ^ "DefaultIcon","",
REGDB_STRING,"pgpsc.dll,-144",-1);
RegDBSetKeyValueEx
("\\PGP Armored File","",
REGDB_STRING,"PGP Armored File",-1);
RegDBSetKeyValueEx
("\\PGP Armored File" ^ "DefaultIcon" ,"",
REGDB_STRING,"pgpsc.dll,-143",-1);
RegDBSetKeyValueEx
("\\PGP Armored Extracted Public Key","",
REGDB_STRING,"PGP Armored Extracted Public Key",-1);
RegDBSetKeyValueEx
("\\PGP Armored Extracted Public Key" ^ "DefaultIcon" ,"",
REGDB_STRING,"pgpsc.dll,-147",-1);
RegDBSetKeyValueEx
("\\PGP Binary Extracted Public Key","",
REGDB_STRING,"PGP Binary Extracted Public Key",-1);
RegDBSetKeyValueEx
("\\PGP Binary Extracted Public Key" ^ "DefaultIcon" ,"",
REGDB_STRING,"pgpsc.dll,-147",-1);
RegDBSetKeyValueEx
("\\PGP Detached Signature File","",
REGDB_STRING,"PGP Detached Signature File",-1);
RegDBSetKeyValueEx
("\\PGP Detached Signature File" ^ "DefaultIcon" ,"",
REGDB_STRING,"pgpsc.dll,-142",-1);
RegDBSetKeyValueEx
("\\PGP Private Keyring","",
REGDB_STRING,"PGP Private Keyring",-1);
RegDBSetKeyValueEx
("\\PGP Private Keyring" ^ "DefaultIcon" ,"",
REGDB_STRING,"pgpsc.dll,-145",-1);
RegDBSetKeyValueEx
("\\PGP Public Keyring","",REGDB_STRING,"PGP Public Keyring",-1);
RegDBSetKeyValueEx
("\\PGP Public Keyring" ^ "DefaultIcon" ,"",
REGDB_STRING,"pgpsc.dll,-146",-1);
RegDBSetKeyValueEx
("\\PGP Share","",REGDB_STRING,"PGP Share",-1);
RegDBSetKeyValueEx
("\\PGP Share" ^ "DefaultIcon" ,"",
REGDB_STRING,"pgpsc.dll,-107",-1);
RegDBSetKeyValueEx
("\\PGP Random Seed","",REGDB_STRING,"PGP Random Seed",-1);
RegDBSetKeyValueEx
("\\PGP Random Seed" ^ "DefaultIcon" ,"",
REGDB_STRING,"pgpsc.dll,-148",-1);
RegDBSetKeyValueEx
("\\PGP Groups","",REGDB_STRING,"PGP Groups",-1);
RegDBSetKeyValueEx
("\\PGP Groups" ^ "DefaultIcon" ,"",
REGDB_STRING,"pgpsc.dll,-149",-1);
//HKEY_LOCAL_MACHINE
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
szLocalDB = "\\SOFTWARE" ^ @COMPANY_NAME;
LongPathToShortPath (svTarget);
// path to install dir includeing trailing "\\"
RegDBSetKeyValueEx
(szLocalDB ^ @REGAPP_NAME,"Installpath",REGDB_STRING,
svTarget + "\\" ,-1);
if (ComponentIsItemSelected
(MEDIA,"Eudora Plugin") = TRUE) then
LongPathFromShortPath (EudoraPluginDir);
// add "where is EudoraPlugin" key value
RegDBCreateKeyEx
( szLocalDB ^ @REGAPP_NAME ^ "EudoraPlugin","");
RegDBSetKeyValueEx
(szLocalDB ^ @REGAPP_NAME ^ "EudoraPlugin","PluginPath",REGDB_STRING,
EudoraPluginDir,-1);
endif;
if (ComponentIsItemSelected
(MEDIA,"Outlook Exp Plugin") = TRUE) then
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
RegDBSetKeyValueEx (szLocalDB ^ @REGAPP_NAME ^ "OE",
"OutlookExpress", REGDB_STRING, szOEdir, -1);
endif;
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
RegDBSetKeyValueEx
("\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Shell Extensions\\" +
"Approved","{969223c0-26aa-11d0-90ee-444553540000}"
,REGDB_STRING,"Shell Extension",-1);
if (ComponentIsItemSelected
(MEDIA,"Exch Plugin") = TRUE) then
RegDBCreateKeyEx
( "SOFTWARE\\Microsoft\\Exchange\\Client\\Extensions\\PGP Plugin","");
RegDBSetKeyValueEx
("SOFTWARE\\Microsoft\\Exchange\\Client\\Extensions","PGP Plugin"
,REGDB_STRING,"4.0;pgpExch.dll;1;01000111111100;1001110" ,-1);
endif;
//Left Click and Launch
RegDBSetDefaultRoot(HKEY_CLASSES_ROOT);
RegDBCreateKeyEx
("\\PGP Encrypted File" ^ "shell\\open\\command","");
RegDBSetKeyValueEx
("\\PGP Encrypted File" ^ "shell\\open\\command" ,"",
REGDB_STRING,svDir ^ "pgptools.exe %1",-1);
RegDBCreateKeyEx
("\\PGP Armored File" ^ "shell\\open\\command","");
RegDBSetKeyValueEx
("\\PGP Armored File" ^ "shell\\open\\command" ,"",
REGDB_STRING,svDir ^ "pgptools.exe %1",-1);
RegDBCreateKeyEx
("\\PGP Armored Extracted Public Key" ^ "shell\\open\\command","");
RegDBSetKeyValueEx
("\\PGP Armored Extracted Public Key" ^ "shell\\open\\command" ,"",
REGDB_STRING,svDir ^ "pgpkeys.exe %1",-1);
RegDBCreateKeyEx
("\\PGP Binary Extracted Public Key" ^ "shell\\open\\command","");
RegDBSetKeyValueEx
("\\PGP Binary Extracted Public Key" ^ "shell\\open\\command" ,"",
REGDB_STRING,svDir ^ "pgpkeys.exe %1",-1);
RegDBCreateKeyEx
("\\PGP Private Keyring" ^ "shell\\open\\command","");
RegDBSetKeyValueEx
("\\PGP Private Keyring" ^ "shell\\open\\command" ,"",
REGDB_STRING,svDir ^ "pgpkeys.exe %1",-1);
RegDBCreateKeyEx
("\\PGP Public Keyring" ^ "shell\\open\\command","");
RegDBSetKeyValueEx
("\\PGP Public Keyring" ^ "shell\\open\\command" ,"",
REGDB_STRING,svDir ^ "pgpkeys.exe %1",-1);
RegDBCreateKeyEx
("\\PGP Detached Signature File" ^ "shell\\open\\command","");
RegDBSetKeyValueEx
("\\PGP Detached Signature File" ^ "shell\\open\\command" ,"",
REGDB_STRING,svDir ^ "pgptools.exe %1",-1);
RegDBCreateKeyEx
("\\PGP Private Keyring" ^ "shell\\open\\command","");
RegDBSetKeyValueEx
("\\PGP Private Keyring" ^ "shell\\open\\command" ,"",
REGDB_STRING,svDir ^ "pgpkeys.exe %1",-1);
RegDBCreateKeyEx
("\\PGP Public Keyring" ^ "shell\\open\\command","");
RegDBSetKeyValueEx
("\\PGP Public Keyring" ^ "shell\\open\\command" ,"",
REGDB_STRING,svDir ^ "pgpkeys.exe %1",-1);
RegDBCreateKeyEx
("\\PGP Share" ^ "shell\\open\\command","");
RegDBSetKeyValueEx
("\\PGP Share" ^ "shell\\open\\command" ,"",
REGDB_STRING,svDir ^ "pgptools.exe %1",-1);
RegDBCreateKeyEx
("\\PGP Random Seed" ^ "shell\\open\\command","");
RegDBSetKeyValueEx
("\\PGP Random Seed" ^ "shell\\open\\command" ,"",
REGDB_STRING,svDir ^ "pgpkeys.exe %1",-1);
nResult = CreateRegistrySet( "" );
return nResult;
end;
///////////////////////////////////////////////////////////////////////////////
//
// Function: CleanHardwareSettings
//
// Purpose: This function deletes reg. entries that cannot exist.
//
///////////////////////////////////////////////////////////////////////////////
function CleanHardwareSettings()
STRING szKey, szName, svValue, szAdapterNumber, szCardType, szServiceName;
NUMBER nvType, nvSize, nReturn;
begin
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
szKey = "SOFTWARE\\Network Associates\\PGP\\PGPnet";
szName = "AdapterNum";
if (RegDBGetKeyValueEx ( szKey , szName , nvType , szAdapterNumber , nvSize ) <0) then
return;
endif;
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
szName = "CardType";
RegDBGetKeyValueEx ( szKey , szName , nvType , szCardType , nvSize );
RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
if (szCardType = "NdisWan") then
szServiceName = szCardType + "PGPmacMP" + szAdapterNumber;
else
szServiceName = "PGPmacMP" + szAdapterNumber;
endif;
szKey = "SYSTEM\\CurrentControlSet\\Services" ^ szServiceName ^ "Parameters";
nReturn=RegDBDeleteValue ( szKey , "InterruptNumber" );
nReturn=RegDBDeleteValue ( szKey , "IOAddress" );
nReturn=RegDBDeleteValue ( szKey , "Slot" );
nReturn=RegDBDeleteValue ( szKey , "SlotNumber" );
nReturn=RegDBDeleteValue ( szKey , "CardType" );
nReturn=RegDBDeleteValue ( szKey , "TranseiverType" );
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -