Доброго всем здравия!
Чем больше я пытась познать С++ тем больше удивляюсь. По большей части удивления приятные, но:
Задача: получить модули выбранного процесса.
Решение (точнее его часть, взято из примеров):
| Код |
void CAllprocDlg::OnButton1()
{
m_List1.ResetContent();
HANDLE hSnap;
hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if (hSnap == NULL)
{
AfxMessageBox("Error Load ToolHelp");
}
PROCESSENTRY32 proc;
if (Process32First(hSnap, &proc))
{
m_List1.AddString(proc.szExeFile);
while (Process32Next(hSnap, &proc))
{
m_List1.AddString(proc.szExeFile);
}
}
}
void CAllprocDlg::OnButton2()
{
int inIndex;
inIndex=m_List1.GetCurSel();
if (inIndex!=LB_ERR)
{
CString csExName;
m_List1.GetText(inIndex,csExName);
HANDLE hSnap1;
hSnap1 = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if (hSnap1 == NULL)
{
AfxMessageBox("Error Load ToolHelp");
}
else
{
PROCESSENTRY32 proc;
if (Process32First(hSnap1, &proc))
{
while (Process32Next(hSnap1, &proc))
{
if (csExName==proc.szExeFile)
{
m_List1.ResetContent();
HANDLE hSnap;
hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,
proc.th32ProcessID);
if (hSnap == NULL)
{
AfxMessageBox("Error Load ToolHelp");
}
else
{
MODULEENTRY32 mod;
if (Module32First(hSnap, &mod))
{
m_List1.AddString(mod.szExePath);
while (Module32Next(hSnap, &mod))
{
m_List1.AddString(mod.szExePath );
}
}
CloseHandle(hSnap);
}
}
}
}
CloseHandle(hSnap1);
}
}
else AfxMessageBox("Select Process");
}
|
По нажатию Button1 - получаем в ListBox список процессов.
По нажатию Button2 - получаем список модулей выбранного процесса.
Не знаю есть ли ошибка в коде, но он успешно компилируется и даже работает, но далеко не на всех компьютерах! 
Единственная закономерность, которую мне пока удалось установить - это то, что программа успешно работает на компьютерах с WinXP SP1. Со вторым же сервис паком ХР ситуация следующая: процессы находятся нормально, а вот модули в них - ну никак
Собственно вопрос: неужели версия ОС может так сильно влиять? Или это проблема в компиляторе (VC++ 6.0). Может настройки какие хитрые покрутить?
Удивительно, но аналогичная программка написанная на VB (с использованием этих же функций) успешно работает на всех, принимавших участие в тестировании, компьютерах независимо от версии ОС.
С надеждой, Михаил
|
а так хочется запустить Release версию...
)
