Как узнать, что запустило мою программу (мой EXE-файл)?

← →
SottNick © (2002-11-27 08:08) [0]

собственно, сабж (Как узнать, что запустило мою программу (мой EXE-файл)?)

хоть что-нибудь
ID процесса
Handle чего-нить
что угодно

← →
mumu (2002-11-27 09:51) [1]

смотреть здесь: http://www.delphikingdom.com/mastering/wmi.htm
один из примеров как раз и называется GetProcessData

← →
SottNick © (2002-11-27 11:40) [2]

> mumu
1. у меня нет WMI SDK. не могу попроборать запустить пример.
2. не уверен, что это то

мне надо, чтоб моя прога сказала, запустил ее Explorer или TotalCommander

← →
mumu (2002-11-28 03:49) [3]

Не нравится WMI, можно использовать TlHelp32.
Получение ID родительского процесса с использованием ToolHelp-функций.
... uses ..., TlHelp32; ... procedure TForm1.Button1Click(Sender: TObject); var hProcessSnap, CProcessID: THandle; pe32: TPROCESSENTRY32; begin // получаем ID нашего процесса CProcessID:=GetCurrentProcessID; // делаем снимок системы hProcessSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); pe32.dwSize:=sizeof(PROCESSENTRY32); // ищем в сделанном снимке системы наш процесс Process32First(hProcessSnap, pe32); while CProcessID<>pe32.th32ProcessID do Process32Next(hProcessSnap, pe32); // в поле th32ParentProcessID структуры PROCESSENTRY32 // ID родительского процесса Label1.Caption:="ParentProcessID: "+IntToStr(pe32.th32ParentProcessID); CloseHandle(hProcessSnap); end;

Все это должно работать, начиная с Win95.
PS. Обработка ошибок убрана намеренно, чтобы разгрузить код.

Отлично!
Работает как надо.

Как узнать, что запустило мою программу (мой EXE-файл)? Найти похожие ветки