Сейчас на форуме: hgdagon, asfa, bartolomeo (+5 невидимых) |
eXeL@B —› Программирование —› Путь к исполняемому файлу |
Посл.ответ | Сообщение |
|
Создано: 02 октября 2006 00:46 · Личное сообщение · #1 |
|
Создано: 02 октября 2006 00:52 · Личное сообщение · #2 |
|
Создано: 02 октября 2006 00:53 · Личное сообщение · #3 |
|
Создано: 02 октября 2006 01:41 · Личное сообщение · #4 function getmodule(id:integer):string; var mod_path: TModuleEntry32; hSnapshoot2: THandle; begin try hSnapshoot2 := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, id); if (hSnapshoot2 <= 0) then begin Result:=''; exit end; mod_path.dwSize := SizeOf(mod_path); if Module32First(hSnapshoot2, mod_path) then result:=mod_path.szExePath; CloseHandle (hSnapshoot2); except Result:=''; end; end; если вместо if Module32First(hSnapshoot2, mod_path) then вставить if Module32First(hSnapshoot2, mod_path) then repeat result:=result+mod_path.szExePath+' '; until not Module32Next(hSnapshoot2, mod_path); получишь перечень всех модулей, загруженных процессом ЗЫ блин тег CODE был бы очень кстати... |
|
Создано: 02 октября 2006 02:17 · Личное сообщение · #5 |
|
Создано: 02 октября 2006 03:37 · Личное сообщение · #6 |
|
Создано: 02 октября 2006 04:11 · Личное сообщение · #7 |
|
Создано: 02 октября 2006 07:01 · Личное сообщение · #8 |
|
Создано: 02 октября 2006 12:01 · Личное сообщение · #9 |
|
Создано: 03 октября 2006 07:33 · Личное сообщение · #10 |
|
Создано: 03 октября 2006 22:14 · Личное сообщение · #11 |
|
Создано: 04 октября 2006 01:15 · Личное сообщение · #12 |
eXeL@B —› Программирование —› Путь к исполняемому файлу |
Эта тема закрыта. Ответы больше не принимаются. |