Форум: "Система";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
ВнизЗавершить (снять) приложение... Найти похожие ветки
← →
jack_p (2002-04-13 22:33) [0]Есть программка в которой не стандартная обработка завершения работы, я так думаю, что автор насовал обработчиков в OnCloseQuery и не только... Посылка WM_CLOSE естественно не помогает. Буду признателен за советы как извне снять такую задачу.
← →
SerVS (2002-04-13 22:53) [1]Terminate.
А если подробнее, то примерно так:
function KillProcess(ProcessID: DWORD): boolean;
var
hProcess: THandle;
hToken: THandle;
Priv,PrivOld: TOKEN_PRIVILEGES;
cbPriv: DWORD;
dwError: DWORD;
begin
hProcess:=OpenProcess(PROCESS_TERMINATE,false,ProcessID);
if hProcess = 0 then
begin
cbPriv:=SizeOf(PrivOld);
// Для Win2k
OpenThreadToken(GetCurrentThread,TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES,false,hToken);
OpenProcessToken(GetCurrentProcess,TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES,hToken);
//
Priv.PrivilegeCount:=1;
Priv.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
LookupPrivilegeValue(nil,"SeDebugPrivilege",Priv.Privileges[0].Luid);
AdjustTokenPrivileges(hToken,false,Priv,SizeOf(Priv),PrivOld,cbPriv);
hProcess:=OpenProcess(PROCESS_TERMINATE,false,ProcessID);
dwError:=GetLastError;
cbPriv:=0;
AdjustTokenPrivileges(hToken,false,PrivOld,SizeOf(PrivOld),nil,cbPriv);
CloseHandle(hToken);
end;
TerminateProcess(hProcess,$FFFFFFFF);
CloseHandle(hProcess);
Result:=true;
end;
естествено обработки ошибок я убрал, их поставишь сам
← →
Song (2002-04-14 11:19) [2]2SerVS © (13.04.02 22:53)
Не надо так радикально :)
2jack_p (13.04.02 22:33)
Попробуйте WM_SYSCOMMAND, SC_CLOSE
← →
sasha9 (2002-04-14 22:18) [3]или WM_DESTROY
← →
SerVS (2002-04-14 23:14) [4]>Song ©
Просто нужен был код который бы закрывал, любые приложения и под вин2к и под вин98. А если посылать сообщение то ДОС программы (особенно в вин98) задают слишком много вопросов :)
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.07.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c