windows-nt/Source/XPSP1/NT/sdktools/perflog/pdlcnfig/pdlcnfig.cpp
2020-09-26 16:20:57 +08:00

364 lines
9.9 KiB
C++
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

// pdlcnfig.cpp : Defines the class behaviors for the application.
//
#include "stdafx.h"
#include "pdlcnfig.h"
#include "OutPage.h"
#include "SetPage.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
/////////////////////////////////////////////////////////////////////////////
// CPdlConfigApp
BEGIN_MESSAGE_MAP(CPdlConfigApp, CWinApp)
//{{AFX_MSG_MAP(CPdlConfigApp)
// NOTE - the ClassWizard will add and remove mapping macros here.
// DO NOT EDIT what you see in these blocks of generated code!
//}}AFX_MSG
ON_COMMAND(ID_HELP, CWinApp::OnHelp)
END_MESSAGE_MAP()
/////////////////////////////////////////////////////////////////////////////
// CPdlConfigApp construction
CPdlConfigApp::CPdlConfigApp()
{
// TODO: add construction code here,
// Place all significant initialization in InitInstance
}
/////////////////////////////////////////////////////////////////////////////
// The one and only CPdlConfigApp object
CPdlConfigApp theApp;
/////////////////////////////////////////////////////////////////////////////
// Test for installation of the service.
LONG CPdlConfigApp::PerfLogServiceStatus()
{
HKEY hKeyLogService;
LONG lStatus;
// try opening the key to the service
lStatus = RegOpenKeyEx (HKEY_LOCAL_MACHINE,
TEXT("SYSTEM\\CurrentControlSet\\Services\\PerfDataLog"),
0,
KEY_READ | KEY_WRITE,
&hKeyLogService);
if (lStatus == ERROR_SUCCESS) {
// don't keep the key open
RegCloseKey (hKeyLogService);
}
return lStatus;
}
LONG CPdlConfigApp::ServiceFilesCopied()
{
HANDLE hFile = INVALID_HANDLE_VALUE;
LONG lStatus = ERROR_SUCCESS;
TCHAR szFullPathName[MAX_PATH];
ExpandEnvironmentStrings (
TEXT("%windir%\\system32\\pdlsvc.exe"),
szFullPathName, MAX_PATH);
hFile = CreateFile (
szFullPathName,
GENERIC_READ,
FILE_SHARE_READ | FILE_SHARE_WRITE,
NULL,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
NULL);
if (hFile == INVALID_HANDLE_VALUE) {
lStatus = GetLastError();
} else {
CloseHandle (hFile);
lStatus = ERROR_SUCCESS;
}
return lStatus;
}
/////////////////////////////////////////////////////////////////////////////
// CPdlConfigApp initialization
LONG CPdlConfigApp::CreatePerfDataLogService ()
{
LONG lStatus = ERROR_SUCCESS;
HKEY hKeyServices = NULL;
HKEY hKeyPerfLog = NULL;
HKEY hKeyPerfAlert = NULL;
DWORD dwWaitLimit = 20;
SC_HANDLE hSC;
SC_HANDLE hLogService;
// create service
hSC = OpenSCManager (NULL, NULL, SC_MANAGER_CREATE_SERVICE);
if (hSC == NULL) {
// display error message
lStatus = GetLastError();
}
if (lStatus == ERROR_SUCCESS) {
hLogService = CreateService (hSC,
TEXT("PerfDataLog"),
TEXT("Performance Data Log"),
SERVICE_ALL_ACCESS,
SERVICE_WIN32_OWN_PROCESS,
SERVICE_DEMAND_START,
SERVICE_ERROR_NORMAL,
TEXT("%systemroot%\\system32\\pdlsvc.exe"),
NULL,
NULL,
NULL,
NULL,
NULL);
if (hLogService == NULL) {
lStatus = GetLastError();
} else {
lStatus = ERROR_SUCCESS;
CloseServiceHandle (hLogService);
}
if (lStatus == ERROR_SUCCESS) {
// wait until the registry is updated before continuing
while (lStatus = RegOpenKeyEx (
HKEY_LOCAL_MACHINE,
TEXT("System\\CurrentControlSet\\Services\\PerfDataLog"),
0,
KEY_READ | KEY_WRITE,
&hKeyPerfLog) != ERROR_SUCCESS) {
Sleep (500); // wait .5 seconds and try again
if (--dwWaitLimit == 0) {
AfxMessageBox (IDS_SC_CREATE_ERROR);
break;
}
}
if (lStatus == ERROR_SUCCESS) {
RegCloseKey (hKeyPerfLog);
}
}
CloseServiceHandle (hSC);
}
return lStatus;
}
LONG CPdlConfigApp::InitPerfDataLogRegistry ()
{
LONG lStatus = ERROR_SUCCESS;
HKEY hKeyPerfLog = NULL;
HKEY hKeyLogQueries = NULL;
HKEY hKeyLogQueriesDefault = NULL;
HKEY hKeyPerfAlert = NULL;
HKEY hKeyAlertQueries = NULL;
HKEY hKeyAlertQueriesDefault = NULL;
HKEY hKeyEventLogApplication = NULL;
HKEY hKeyEventLogPerfDataLog = NULL;
HKEY hKeyEventLogPerfDataAlert = NULL;
DWORD dwValue;
DWORD dwDisposition;
// open registry key
lStatus = RegOpenKeyEx (
HKEY_LOCAL_MACHINE,
TEXT("System\\CurrentControlSet\\Services\\PerfDataLog"),
0,
KEY_READ | KEY_WRITE,
&hKeyPerfLog);
ASSERT (lStatus == ERROR_SUCCESS);
if (lStatus != ERROR_SUCCESS) goto Close_And_Exit;
// add registry subkeys for Log Queries
lStatus = RegCreateKeyEx (
hKeyPerfLog,
TEXT("Log Queries"),
0,
NULL,
REG_OPTION_NON_VOLATILE,
KEY_READ | KEY_WRITE,
NULL,
&hKeyLogQueries,
&dwDisposition);
ASSERT (lStatus == ERROR_SUCCESS);
if (lStatus != ERROR_SUCCESS) goto Close_And_Exit;
lStatus = RegCreateKeyEx (
hKeyLogQueries,
TEXT("Default"),
0,
NULL,
REG_OPTION_NON_VOLATILE,
KEY_READ | KEY_WRITE,
NULL,
&hKeyLogQueriesDefault,
&dwDisposition);
ASSERT (lStatus == ERROR_SUCCESS);
if (lStatus != ERROR_SUCCESS) goto Close_And_Exit;
// open registry key
lStatus = RegOpenKeyEx (
HKEY_LOCAL_MACHINE,
TEXT("System\\CurrentControlSet\\Services\\EventLog\\Application"),
0,
KEY_READ | KEY_WRITE,
&hKeyEventLogApplication);
ASSERT (lStatus == ERROR_SUCCESS);
if (lStatus != ERROR_SUCCESS) goto Close_And_Exit;
// add registry subkeys for event log
lStatus = RegCreateKeyEx (
hKeyEventLogApplication,
TEXT("PerfDataLog"),
0,
NULL,
REG_OPTION_NON_VOLATILE,
KEY_READ | KEY_WRITE,
NULL,
&hKeyEventLogPerfDataLog,
&dwDisposition);
ASSERT (lStatus == ERROR_SUCCESS);
if (lStatus != ERROR_SUCCESS) goto Close_And_Exit;
lStatus = RegSetValueEx (hKeyEventLogPerfDataLog,
TEXT("EventMessageFile"),
0,
REG_SZ,
(BYTE *)TEXT("%systemroot%\\system32\\pdlsvc.exe"),
(lstrlen(TEXT("%systemroot%\\system32\\pdlsvc.exe"))+1) * sizeof (TCHAR));
ASSERT (lStatus == ERROR_SUCCESS);
if (lStatus != ERROR_SUCCESS) goto Close_And_Exit;
dwValue = 7;
lStatus = RegSetValueEx (hKeyEventLogPerfDataLog,
TEXT("TypesSupported"),
0,
REG_DWORD,
(BYTE *)&dwValue,
sizeof (DWORD));
ASSERT (lStatus == ERROR_SUCCESS);
if (lStatus != ERROR_SUCCESS) goto Close_And_Exit;
Close_And_Exit:
if (hKeyPerfLog != NULL) RegCloseKey (hKeyPerfLog);
if (hKeyLogQueries != NULL) RegCloseKey (hKeyLogQueries);
if (hKeyLogQueriesDefault != NULL) RegCloseKey (hKeyLogQueriesDefault);
if (hKeyEventLogApplication != NULL) RegCloseKey (hKeyEventLogApplication);
if (hKeyEventLogPerfDataLog != NULL) RegCloseKey (hKeyEventLogPerfDataLog);
return lStatus;
}
/////////////////////////////////////////////////////////////////////////////
// CPdlConfigApp initialization
BOOL CPdlConfigApp::InitInstance()
{
LONG lServiceStatus;
CString csMessage;
BOOL bReturn = TRUE;
// Standard initialization
// If you are not using these features and wish to reduce the size
// of your final executable, you should remove from the following
// the specific initialization routines you do not need.
#ifdef _AFXDLL
Enable3dControls(); // Call this when using MFC in a shared DLL
#else
Enable3dControlsStatic(); // Call this when linking to MFC statically
#endif
lServiceStatus = PerfLogServiceStatus();
if (lServiceStatus == ERROR_FILE_NOT_FOUND) {
lServiceStatus = ServiceFilesCopied();
if (lServiceStatus == ERROR_SUCCESS) {
if (AfxMessageBox (IDS_QUERY_INSTALL,
MB_OKCANCEL | MB_ICONQUESTION) == IDOK) {
lServiceStatus = CreatePerfDataLogService();
if (lServiceStatus == ERROR_SUCCESS) {
lServiceStatus = InitPerfDataLogRegistry();
}
if (lServiceStatus != ERROR_SUCCESS) {
csMessage.FormatMessage (lServiceStatus);
AfxMessageBox (csMessage);
bReturn = FALSE;
} else {
// the service was successfully installed so display
// message
AfxMessageBox (IDS_SERVICE_INSTALLED);
}
} else {
// the service is not installed and the user doesn't
// want it installed so exit
bReturn = FALSE;
}
} else {
// then the service has not yet been installed so bail
AfxMessageBox (IDS_SERVICE_NOT_INSTALLED);
bReturn = FALSE;
}
} else if (lServiceStatus == ERROR_ACCESS_DENIED) {
AfxMessageBox (IDS_ACCESS_DENIED, MB_OK | MB_ICONEXCLAMATION);
bReturn = FALSE;
} else if (lServiceStatus != ERROR_SUCCESS) {
AfxMessageBox (IDS_REGISTRY_ERROR, MB_OK | MB_ICONEXCLAMATION);
bReturn = FALSE;
} else {
bReturn = TRUE;
}
if (bReturn) {
CPropertySheet PSheet;
COutputPropPage POutput;
CSettingsPropPage PSettings;
m_pMainWnd = &PSheet;
csMessage.LoadString (IDS_PROPERTY_SHEET_CAPTION);
PSheet.SetTitle(csMessage);
PSheet.AddPage(&PSettings);
PSheet.AddPage(&POutput);
INT_PTR nResponse = PSheet.DoModal();
if (nResponse == IDOK)
{
// TODO: Place code here to handle when the dialog is
// dismissed with OK
}
else if (nResponse == IDCANCEL)
{
// TODO: Place code here to handle when the dialog is
// dismissed with Cancel
}
bReturn = FALSE;
}
// Since the dialog has been closed, return FALSE so that we exit the
// application, rather than start the application's message pump.
return bReturn;
}