Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

jack_p © (2002-04-13 22:33:00)
Есть программка в которой не стандартная обработка завершения работы, я так думаю, что автор насовал обработчиков в OnCloseQuery и не только... Посылка WM_CLOSE естественно не помогает. Буду признателен за советы как извне снять такую задачу.

SerVS (2002-04-14 23:14:00) [1]
>Song ©
Просто нужен был код который бы закрывал, любые приложения и под вин2к и под вин98. А если посылать сообщение то ДОС программы (особенно в вин98) задают слишком много вопросов :)

sasha9 (2002-04-14 22:18:00) [2]
или WM_DESTROY

Song (2002-04-14 11:19:00) [3]
2SerVS © (13.04.02 22:53)
Не надо так радикально :)

2jack_p (13.04.02 22:33)
Попробуйте WM_SYSCOMMAND, SC_CLOSE

SerVS (2002-04-13 22:53:00) [4]
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;
естествено обработки ошибок я убрал, их поставишь сам

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »