K_Sergey
Зарегистрирован: 20.10.2001 Сообщения: 3
|
Добавлено: Вт Окт 23 2001 19:25 Заголовок сообщения: Закрытие всех приложений в Delphi |
|
|
Люди!!! Помогите, пожалуйста, написать код закрытия всех приложений в Delphi. Если собираетесь привести код типа
var pTask : pTaskEntry; Task : Bool; ThisTask: THANDLE; begin GetMem (pTask, SizeOf (TTaskEntry)); pTask^.dwSize := SizeOf (TTaskEntry); Task := TaskFirst (pTask); while Task do begin if pTask^.hInst = hInstance then ThisTask := pTask^.hTask else TerminateApp (pTask^.hTask, NO_UAE_BOX); Task := TaskNext (pTask); end; TerminateApp (ThisTask, NO_UAE_BOX); end;
то объясните, что такое pTaskEntry и TTaskEntry и почему эти фичи не работают в стаднадртой Delphi 5.1 Enterprise Edititon??? |
|