Завершить (снять) приложение...

← →
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) задают слишком много вопросов :)

Завершить (снять) приложение... Найти похожие ветки