| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить путь к программе...
rimd © (2004-04-05 17:21:00)зная дескриптор главного окна под 95/98/ME
BiN (2004-04-06 09:50:00) [1]Енто что такое ?!
CreateToolhelp32Snapshot( TH32CS_SNAPTHREAD,ProcID)
rimd (2004-04-06 09:44:00) [2]HProc:=GetWindowThreadProcessId(Form1.Handle,ProcID);
if HProc=0 then
ShowMessage('GetWindowThreadProcessId=0');
SnapH:=CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD,ProcID);
if SnapH=0 then
ShowMessage('CreateToolhelp32Snapshot=0');
pe32.dwSize:=SizeOf(tagPROCESSENTRY32);
if not Process32First(SnapH,pe32) then
ShowMessage'Process32First=False');
ShowMessage(strPas(pe32.szExeFile)); // Здесь
if not Process32Next(SnapH,pe32) then
ShowMessage('Process32Next=False');
ShowMessage(strPas(pe32.szExeFile)); // и здесь
Здесь и здесь ничего не выводится!
VMcL (2004-04-05 17:39:00) [3]GetWindowThreadProcessId +
CreateToolhelp32Snapshot + Process32First + Process32Next
| |
