Тема: power point
Показать сообщение отдельно
  #2  
Старый 15.05.2014, 02:19
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Можно отслеживать названия кадров или просматривать сообщения - здесь нужны "стопаря" окончания презы, если найдёте такое то вот это убъёт активную прогу по имени класса или заголовку окна
Код:
KillProgram(ClassName: PChar; WindowTitle: PChar); 
const 
PROCESS_TERMINATE = $0001; 
var 
ProcessHandle : THandle; 
ProcessID: Integer; 
TheWindow : HWND; 
begin 
TheWindow := FindWindow(Classname, WindowTitle); 
GetWindowThreadProcessID(TheWindow, @ProcessID); 
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId); 
TerminateProcess(ProcessHandle,4); 
end;
хотя нельзя исключать вероятность того что и у PPA есть свой API, доступный извне
Ответить с цитированием