I'm using the regular CLR Profiling API (ICorProfilerCallback3 and ICorProfilerCallback2)
on Window 7 with Visual Studio 2010 Express.
I'm implementing the Initialize function like this:
STDMETHODIMP Profiling::Initialize(IUnknown *pICorProfilerInfoUnk)
{
HRESULT res = E_FAIL;
DWORD events = COR_PRF_MONITOR_MODULE_LOADS |
COR_PRF_MONITOR_THREADS |
//COR_PRF_SNAPSHOT_DEFAULT |
COR_PRF_ENABLE_STACK_SNAPSHOT;
res = pICorProfilerInfoUnk->QueryInterface(IID_ICorProfilerInfo, (void**)&m_profinfo);
if (SUCCEEDED(res) == true)
{
res = pICorProfilerInfoUnk->QueryInterface(IID_ICorProfilerInfo2, (void**)&m_profinfo2);
if (FAILED(res) == true)
{
m_profinfo2 = NULL;
}
else
{
m_activeProfiler = m_profinfo2;
res = pICorProfilerInfoUnk->QueryInterface(IID_ICorProfilerInfo3, (void**)&m_profinfo3);
if (FAILED(res) == true)
{
m_profinfo3 = NULL;
}
else
{
m_activeProfiler = m_profinfo3;
}
}
m_activeProfiler->SetEventMask(events);
res = S_OK;
}
/*
We're getting here an exception when running a WPF application:
An unhandled exception of type 'System.IO.FileLoadException' occurred in Unknown Module.
Additional information: Hash validation failed for file or assembly 'PresentationFramework, Version=4.0.0.0
*/
Sleep(30000);
return res;
}
I put there Sleep(30000) so I can attach to the profiled process before it exits/crashes.
I start the proflied process like this:
STARTUPINFO startInfo;
PROCESS_INFORMATION processInfo;
ZeroMemory( &startInfo, sizeof(startInfo) );
startInfo.cb = sizeof(startInfo);
ZeroMemory( &processInfo, sizeof(processInfo) );
DWORD creationFlags = 0;
// Start the child process.
CreateProcess(
NULL, // No module name (use command line)
commandLine, //command line
NULL, // Process handle not inheritable
NULL, // Thread handle not inheritable
FALSE, // Set handle inheritance to FALSE
creationFlags, // No creation flags
envVars, // Use parent's environment block - Enabling CLR profiling.
runningPath, // Use parent's starting directory
&startInfo, // Pointer to STARTUPINFO structure
&processInfo); // Pointer to PROCESS_INFORMATION structure
Where:
"creationFlags" = 0
runningPath is the path of the profiled process
envVars contains the "COR_ENABLE_PROFILING=1" and "COR_PROFILER" values.
and before I call "CreateProcess" I enable the privlieges like this:
EnablePrivilege(SE_DEBUG_NAME, TRUE);
where EnablePrivilege is:
bool EnablePrivilege(LPCTSTR lpszPrivilegeName, BOOL bEnable)
{
HANDLE hToken;
TOKEN_PRIVILEGES tp;
LUID luid;
bool ret;
void* processHandle = GetCurrentProcess();
if (!OpenProcessToken(processHandle, TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY | TOKEN_READ, &hToken))
{
CloseHandle(processHandle);
return FALSE;
}
if (!LookupPrivilegeValue(NULL, lpszPrivilegeName, &luid))
{
CloseHandle(processHandle);
return FALSE;
}
tp.PrivilegeCount = 1;
tp.Privileges[0].Luid = luid;
tp.Privileges[0].Attributes = bEnable ? SE_PRIVILEGE_ENABLED : 0;
ret = AdjustTokenPrivileges(hToken, FALSE, &tp, sizeof(tp), NULL, NULL);
CloseHandle(hToken);
CloseHandle(processHandle);
return ret;
}
Is it enough? :)
