mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
515 lines
14 KiB
515 lines
14 KiB
/*
|
|
* ie4 - IE4 settings
|
|
*/
|
|
|
|
#include "tweakui.h"
|
|
#include <lmcons.h>
|
|
#include <lmjoin.h>
|
|
#include <lmerr.h>
|
|
|
|
#pragma BEGIN_CONST_DATA
|
|
|
|
KL const c_klSingleClick = {&g_hkCUSMWCV, c_tszExplorerAdvanced,
|
|
c_tszUseDoubleClickTimer };
|
|
|
|
const static DWORD CODESEG rgdwHelp[] = {
|
|
IDC_SETTINGSGROUP, IDH_GROUP,
|
|
IDC_LISTVIEW, IDH_IE4LV,
|
|
0, 0,
|
|
};
|
|
|
|
#pragma END_CONST_DATA
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_GetDword
|
|
*
|
|
* Read a DWORD somewhere.
|
|
*
|
|
* Always returns exactly 0 or 1.
|
|
*
|
|
*****************************************************************************/
|
|
|
|
BOOL PASCAL
|
|
IE4_GetDword(LPARAM lParam, LPVOID pvRef)
|
|
{
|
|
PKL pkl = (PKL)lParam;
|
|
|
|
return GetDwordPkl(pkl, TRUE) != 0;
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_SetDword
|
|
*
|
|
* Save a DWORD somewhere.
|
|
*
|
|
* Always given exactly 0 or 1.
|
|
*
|
|
*****************************************************************************/
|
|
|
|
BOOL PASCAL
|
|
IE4_SetDword(BOOL f, LPARAM lParam, LPVOID pvRef)
|
|
{
|
|
PKL pkl = (PKL)lParam;
|
|
PBOOL pf = (PBOOL)pvRef;
|
|
|
|
if (pf) {
|
|
*pf = TRUE;
|
|
}
|
|
|
|
return SetDwordPkl(pkl, f);
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_GetRest
|
|
*
|
|
* Read a restriction. The first character of the restriction is
|
|
* `+' if it is positive sense. All restrictions default to 0.
|
|
*
|
|
* Always returns exactly 0 or 1.
|
|
*
|
|
*****************************************************************************/
|
|
|
|
BOOL PASCAL
|
|
IE4_GetRest(LPARAM lParam, LPVOID pvRef)
|
|
{
|
|
LPCTSTR ptszRest = (LPCTSTR)lParam;
|
|
|
|
if (ptszRest[0] == TEXT('+')) {
|
|
return !GetRestriction(ptszRest+1);
|
|
} else {
|
|
return GetRestriction(ptszRest);
|
|
}
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_GetRest4
|
|
*
|
|
* Just like IE4_GetRest, except fails if shell version 5 or better.
|
|
*
|
|
*****************************************************************************/
|
|
|
|
BOOL PASCAL
|
|
IE4_GetRest4(LPARAM lParam, LPVOID pvRef)
|
|
{
|
|
if (g_fShell5) {
|
|
return -1;
|
|
} else {
|
|
return IE4_GetRest(lParam, pvRef);
|
|
}
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_GetRest5
|
|
*
|
|
* Just like IE4_GetRest, except requires shell version 5 or better.
|
|
*
|
|
*****************************************************************************/
|
|
|
|
BOOL PASCAL
|
|
IE4_GetRest5(LPARAM lParam, LPVOID pvRef)
|
|
{
|
|
if (g_fShell5) {
|
|
return IE4_GetRest(lParam, pvRef);
|
|
} else {
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_GetRest55
|
|
*
|
|
* Just like IE4_GetRest, except requires shell version 5.5 or better.
|
|
*
|
|
*****************************************************************************/
|
|
|
|
BOOL PASCAL
|
|
IE4_GetRest55(LPARAM lParam, LPVOID pvRef)
|
|
{
|
|
if (g_fShell55) {
|
|
return IE4_GetRest(lParam, pvRef);
|
|
} else {
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* HasComputersNearMe
|
|
*
|
|
* See if "Computers Near Me" is enabled.
|
|
*
|
|
* Shell 4 or lower: Disabled.
|
|
*
|
|
* Shell 5 on 9x: Enabled.
|
|
*
|
|
* Shell 5 on NT: Only if you are joined to a workgroup.
|
|
*
|
|
*****************************************************************************/
|
|
|
|
typedef NET_API_STATUS (CALLBACK *NETGETJOININFORMATION)(LPCWSTR, LPWSTR*, PNETSETUP_JOIN_STATUS);
|
|
typedef NET_API_STATUS (CALLBACK *NETAPIBUFFERFREE)(LPVOID);
|
|
|
|
BOOL s_bHasComputersNearMe = -1;
|
|
|
|
BOOL PASCAL
|
|
HasComputersNearMe(void)
|
|
{
|
|
if (!g_fShell5) {
|
|
return FALSE;
|
|
}
|
|
|
|
if (!g_fNT) {
|
|
return TRUE;
|
|
}
|
|
|
|
if (s_bHasComputersNearMe < 0) {
|
|
NETSETUP_JOIN_STATUS nsjs = NetSetupUnknownStatus;
|
|
|
|
HINSTANCE hinst = LoadLibrary("netapi32.dll");
|
|
if (hinst) {
|
|
NETGETJOININFORMATION _NetGetJoinInformation =
|
|
(NETGETJOININFORMATION)GetProcAddress(hinst, "NetGetJoinInformation");
|
|
NETAPIBUFFERFREE _NetApiBufferFree =
|
|
(NETAPIBUFFERFREE)GetProcAddress(hinst, "NetApiBufferFree");
|
|
if (_NetGetJoinInformation && _NetApiBufferFree) {
|
|
LPWSTR pszDomain;
|
|
if (_NetGetJoinInformation(NULL, &pszDomain, &nsjs) == NERR_Success) {
|
|
_NetApiBufferFree(pszDomain);
|
|
}
|
|
}
|
|
FreeLibrary(hinst);
|
|
}
|
|
|
|
s_bHasComputersNearMe = (nsjs == NetSetupWorkgroupName);
|
|
}
|
|
|
|
return s_bHasComputersNearMe;
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_GetRestCNM
|
|
*
|
|
* Special function just for "Computers Near Me".
|
|
*
|
|
*****************************************************************************/
|
|
|
|
BOOL PASCAL
|
|
IE4_GetRestCNM(LPARAM lParam, LPVOID pvRef)
|
|
{
|
|
if (HasComputersNearMe()) {
|
|
return IE4_GetRest(lParam, pvRef);
|
|
} else {
|
|
return -1;
|
|
}
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_SetRest
|
|
*
|
|
* Set the new restriction setting.
|
|
*
|
|
* The first character of the restriction is
|
|
* `+' if it is positive sense.
|
|
*
|
|
*****************************************************************************/
|
|
|
|
BOOL PASCAL
|
|
IE4_SetRest(BOOL f, LPARAM lParam, LPVOID pvRef)
|
|
{
|
|
LPCTSTR ptszRest = (LPCTSTR)lParam;
|
|
PBOOL pf = (PBOOL)pvRef;
|
|
|
|
if (pf) {
|
|
*pf = ptszRest ? TRUE : FALSE;
|
|
}
|
|
|
|
if (ptszRest[0] == TEXT('+')) {
|
|
f = !f;
|
|
ptszRest++;
|
|
}
|
|
return SetRestriction(ptszRest, f);
|
|
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_GetLinksFolderName
|
|
*
|
|
*****************************************************************************/
|
|
|
|
KL const c_klLinksFolder = {&g_hkCUSMIE, TEXT("Toolbar"), TEXT("LinksFolderName") };
|
|
KL const c_klLinksFolder2= {&g_hkLMSMWCV, NULL, TEXT("LinksFolderName") };
|
|
|
|
BOOL PASCAL
|
|
IE4_GetLinksFolderName(LPTSTR pszBuf, UINT cchBuf)
|
|
{
|
|
PIDL pidl;
|
|
BOOL fRc = FALSE;
|
|
|
|
if (SUCCEEDED(SHGetSpecialFolderLocation(NULL, CSIDL_FAVORITES, &pidl))) {
|
|
if (SHGetPathFromIDList(pidl, pszBuf)) {
|
|
/*
|
|
* Find the name of the links folder underneath Favorites.
|
|
*/
|
|
TCHAR szLinks[MAX_PATH];
|
|
if (!GetStrPkl(szLinks, sizeof(szLinks), &c_klLinksFolder) &&
|
|
!GetStrPkl(szLinks, sizeof(szLinks), &c_klLinksFolder2)) {
|
|
lstrcpy(szLinks, TEXT("Links"));
|
|
}
|
|
|
|
Path_Append(pszBuf, szLinks);
|
|
fRc = TRUE;
|
|
}
|
|
|
|
Ole_Free(pidl);
|
|
}
|
|
|
|
return fRc;
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_GetFavLink
|
|
*
|
|
* Say whether the Favorites\Links directory is hidden.
|
|
*
|
|
* -1 = No links directory at all
|
|
* 0 = Links is hidden
|
|
* 1 = Links is visible
|
|
*
|
|
*****************************************************************************/
|
|
|
|
BOOL PASCAL
|
|
IE4_GetFavLink(LPARAM lParam, LPVOID pvRef)
|
|
{
|
|
BOOL fRc = -1;
|
|
TCHAR szFavLink[MAX_PATH];
|
|
if (IE4_GetLinksFolderName(szFavLink, cA(szFavLink))) {
|
|
DWORD dwAttrib = GetFileAttributes(szFavLink);
|
|
if (dwAttrib != 0xFFFFFFFF) {
|
|
fRc = !(dwAttrib & FILE_ATTRIBUTE_HIDDEN);
|
|
}
|
|
}
|
|
return fRc;
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_SetFavLink
|
|
*
|
|
* 0 = Make links hidden
|
|
* 1 = Make links visible
|
|
*
|
|
*****************************************************************************/
|
|
|
|
BOOL PASCAL
|
|
IE4_SetFavLink(BOOL f, LPARAM lParam, LPVOID pvRef)
|
|
{
|
|
BOOL fRc = FALSE;
|
|
PBOOL pf = (PBOOL)pvRef;
|
|
|
|
TCHAR szFavLink[MAX_PATH];
|
|
if (IE4_GetLinksFolderName(szFavLink, cA(szFavLink))) {
|
|
DWORD dwAttrib = GetFileAttributes(szFavLink);
|
|
if (dwAttrib != 0xFFFFFFFF) {
|
|
dwAttrib &= ~FILE_ATTRIBUTE_HIDDEN;
|
|
if (!f)
|
|
dwAttrib |= FILE_ATTRIBUTE_HIDDEN;
|
|
if (SetFileAttributes(szFavLink, dwAttrib)) {
|
|
fRc = TRUE;
|
|
*pf = TRUE;
|
|
}
|
|
}
|
|
}
|
|
return fRc;
|
|
}
|
|
|
|
/*
|
|
* Note that this needs to be in sync with the IDS_IE4 strings.
|
|
*/
|
|
|
|
CHECKLISTITEM c_rgcliIE4[] = {
|
|
#ifdef NOINTERNET_WORKS
|
|
// WARNING! If you turn this on, make sure to renumber the IDS_IE4
|
|
// strings and fix IE4_OnWhatsThis
|
|
{ IE4_GetRest, IE4_SetRest, (LPARAM)c_tszNoInternetIcon, },
|
|
#endif
|
|
{ IE4_GetRest, IE4_SetRest, (LPARAM)c_tszNoRecentDocsHistory, },
|
|
{ IE4_GetRest, IE4_SetRest, (LPARAM)c_tszNoRecentDocsMenu, },
|
|
{ IE4_GetRest, IE4_SetRest, (LPARAM)c_tszNoActiveDesktop, },
|
|
{ IE4_GetRest, IE4_SetRest, (LPARAM)c_tszNoActiveDesktopChanges,},
|
|
|
|
/*
|
|
* Sigh. Shell5 changed the restriction key for NoFavoritesMenu.
|
|
* Fortunately, it's in the UI so I don't need to expose it any more.
|
|
*/
|
|
{ IE4_GetRest4, IE4_SetRest, (LPARAM)c_tszNoFavoritesMenu, },
|
|
|
|
{ IE4_GetRest, IE4_SetRest, (LPARAM)c_tszClearRecentDocsOnExit, },
|
|
{ IE4_GetRest, IE4_SetRest, (LPARAM)c_tszClassicShell, },
|
|
{ IE4_GetRest, IE4_SetRest, (LPARAM)c_tszNoLogoff, },
|
|
{ IE4_GetDword, IE4_SetDword, (LPARAM)&c_klSingleClick, },
|
|
{ IE4_GetFavLink, IE4_SetFavLink, 0, },
|
|
{ IE4_GetRest5, IE4_SetRest, (LPARAM)TEXT("NoSMHelp"), },
|
|
{ IE4_GetRest5, IE4_SetRest, (LPARAM)TEXT("NoControlPanel") },
|
|
{ IE4_GetRest5, IE4_SetRest, (LPARAM)TEXT("NoNetworkConnections")},
|
|
{ IE4_GetRest5, IE4_SetRest, (LPARAM)TEXT("NoWinKeys") },
|
|
{ IE4_GetRestCNM,IE4_SetRest, (LPARAM)TEXT("NoComputersNearMe") },
|
|
{ IE4_GetRest5, IE4_SetRest, (LPARAM)TEXT("NoSMMyDocs") },
|
|
{ IE4_GetRest55,IE4_SetRest, (LPARAM)TEXT("NoSMMyPictures") },
|
|
};
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_OnWhatsThis
|
|
*
|
|
*****************************************************************************/
|
|
|
|
void PASCAL
|
|
IE4_OnWhatsThis(HWND hwnd, int iItem)
|
|
{
|
|
LV_ITEM lvi;
|
|
|
|
Misc_LV_GetItemInfo(hwnd, &lvi, iItem, LVIF_PARAM);
|
|
|
|
WinHelp(hwnd, c_tszMyHelp, HELP_CONTEXTPOPUP,
|
|
IDH_ADDTODOCSMENU + lvi.lParam);
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_OnCommand
|
|
*
|
|
* Ooh, we got a command.
|
|
*
|
|
*****************************************************************************/
|
|
|
|
void PASCAL
|
|
IE4_OnCommand(HWND hdlg, int id, UINT codeNotify)
|
|
{
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_OnInitDialog
|
|
*
|
|
* Initialize the listview with the current restrictions.
|
|
*
|
|
*****************************************************************************/
|
|
|
|
BOOL PASCAL
|
|
IE4_OnInitDialog(HWND hwnd)
|
|
{
|
|
#if 0
|
|
HWND hdlg = GetParent(hwnd);
|
|
TCHAR tsz[MAX_PATH];
|
|
int dids;
|
|
|
|
for (dids = 0; dids < cA(c_rgrest); dids++) {
|
|
BOOL fState;
|
|
|
|
#ifdef NOINTERNET_WORKS
|
|
LoadString(hinstCur, IDS_IE4+dids, tsz, cA(tsz));
|
|
#else
|
|
LoadString(hinstCur, IDS_IE4+1+dids, tsz, cA(tsz));
|
|
#endif
|
|
|
|
fState = GetRestriction(c_rgrest[dids].ptsz);
|
|
LV_AddItem(hwnd, dids, tsz, -1, fState);
|
|
|
|
}
|
|
#endif
|
|
|
|
#ifdef NOINTERNET_WORKS
|
|
Checklist_OnInitDialog(hwnd, c_rgcliIE4, cA(c_rgcliIE4), IDS_IE4, 0);
|
|
#else
|
|
Checklist_OnInitDialog(hwnd, c_rgcliIE4, cA(c_rgcliIE4), IDS_IE4+1, 0);
|
|
#endif
|
|
|
|
return 1;
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* IE4_OnApply
|
|
*
|
|
*****************************************************************************/
|
|
|
|
void PASCAL
|
|
IE4_OnApply(HWND hdlg)
|
|
{
|
|
BOOL fChanged = FALSE;
|
|
|
|
Checklist_OnApply(hdlg, c_rgcliIE4, &fChanged, FALSE);
|
|
|
|
if (fChanged) {
|
|
PIDL pidl;
|
|
|
|
/*
|
|
* Tell the shell that we changed the policies.
|
|
*/
|
|
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0,
|
|
(LPARAM)c_tszIE4RegKeyChange);
|
|
|
|
/*
|
|
* Tickle the Start Menu folder to force the Start Menu
|
|
* to rebuild with the new policies in effect.
|
|
*/
|
|
if (SUCCEEDED(SHGetSpecialFolderLocation(hdlg,
|
|
CSIDL_STARTMENU, &pidl))) {
|
|
SHChangeNotify(SHCNE_UPDATEDIR, SHCNF_IDLIST, pidl, 0);
|
|
Ole_Free(pidl);
|
|
}
|
|
}
|
|
}
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* Oh yeah, we need this too.
|
|
*
|
|
*****************************************************************************/
|
|
|
|
#pragma BEGIN_CONST_DATA
|
|
|
|
LVCI lvciIE4[] = {
|
|
{ IDC_WHATSTHIS, IE4_OnWhatsThis },
|
|
{ 0, 0 },
|
|
};
|
|
|
|
LVV lvvIE4 = {
|
|
IE4_OnCommand,
|
|
0, /* IE4_OnInitContextMenu */
|
|
0, /* IE4_Dirtify */
|
|
0, /* IE4_GetIcon */
|
|
IE4_OnInitDialog,
|
|
IE4_OnApply,
|
|
0, /* IE4_OnDestroy */
|
|
0, /* IE4_OnSelChange */
|
|
6, /* iMenu */
|
|
rgdwHelp,
|
|
0, /* Double-click action */
|
|
lvvflCanCheck, /* We need check boxes */
|
|
lvciIE4,
|
|
};
|
|
|
|
#pragma END_CONST_DATA
|
|
|
|
/*****************************************************************************
|
|
*
|
|
* Our window procedure.
|
|
*
|
|
*****************************************************************************/
|
|
|
|
INT_PTR EXPORT
|
|
IE4_DlgProc(HWND hdlg, UINT wm, WPARAM wParam, LPARAM lParam)
|
|
{
|
|
return LV_DlgProc(&lvvIE4, hdlg, wm, wParam, lParam);
|
|
}
|