|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.02.2011, 20:36 | #1 |
Регистрация: 16.12.2010
Сообщений: 6
|
Объясните код
hSnapShot := CreateToolhelp32SnapShot(TH32CS_SNA PMODULE,GetCurrentProcessID);
Modules.dwSize := sizeof(TModuleEntry32); i := 0; if Module32First(hSnapShot, modules) then begin SetLength(TModuleArray,i+1); TModuleArray[i] := Modules; Inc(i); while Module32Next(hSnapShot, modules) do begin SetLength(TModuleArray,i+1); TModuleArray[i] := Modules; Inc(i); end; end; CloseHandle(hSnapShot); Flag := False; hSnapShot := CreateToolhelp32Snapshot(TH32CS_SNA PMODULE, Info.dwProcessId); Modules.dwSize := sizeof(TModuleEntry32); if Module32First(hSnapShot, modules) then begin for i := 0 to Length(TModuleArray) do Flag := Flag or (string(modules.szModule) = string(TModuleArray[i].szModule)); if Flag then чего тут происходит Последний раз редактировалось ANtonP; 23.02.2011 в 19:30. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Прокомментируйте и объясните код | Serjuk | Помощь студентам | 1 | 18.05.2010 17:56 |
Объясните код | Neymexa | SQL, базы данных | 1 | 23.03.2010 17:55 |
паскаль. массивы. объясните код. | [silver beast] | Помощь студентам | 3 | 21.01.2009 08:42 |
Объясните код | Neymexa | Общие вопросы по Java, Java SE, Kotlin | 1 | 29.11.2008 02:33 |
объясните код | Rend1 | Общие вопросы Delphi | 18 | 01.02.2008 14:52 |