Текущий архив: 2004.11.07;
Скачать: CL | DM;
Вниз
Не дать пользователю закрыть окно Найти похожие ветки
← →
Mapa3M (2004-10-22 22:49) [0]до какого либо события. Как сделать ??
← →
Gero © (2004-10-22 22:53) [1]Никак. Если захочу - закрою.
← →
Кириешки © (2004-10-22 23:00) [2]Нереально не дать закрыть окно
например
procedure TForm1.Button3Click(Sender: TObject);
begin
KillProgram(nil,pchar("Notepad");
end;
procedure KillProgram(ClassName: PChar; WindowTitle: PChar);
const
PROCESS_TERMINATE = $0001;
var
ProcessHandle : THandle;
ProcessID: Integer;
TheWindow : HWND;
begin
TheWindow := FindWindow(PChar(ClassName), PChar(WindowTitle));
GetWindowThreadProcessID(TheWindow, @ProcessID);
ProcessHandle := OpenProcess(PROCESS_TERMINATE, FALSE, ProcessId);
TerminateProcess(ProcessHandle,4);
end;
данный пример РЕАЛЬНО закрывает любой процесс. :)
← →
jack128 © (2004-10-22 23:09) [3]событие OnCloseQuery
← →
Anatoly Podgoretsky © (2004-10-22 23:15) [4]Mapa3M (22.10.04 22:49)
Зверь!
Но не надейся, против лома нет приема.
← →
Mapa3M (2004-10-22 23:18) [5]блин, да я верю что вы крутые хацкера, просто мне нужно чтоб в тест был пройден до конца и не закрыт случайно. А именно хатю чтоб окно не реагировало на ALT+F4 и нажатие крестика (чучшеб его енейблом сделать). шарите ?? ((
← →
kaZaNoVa © (2004-10-22 23:22) [6]Mapa3M (22.10.04 23:18) [5]
ага ..
Procedure KillWin53(windowName:string);
Var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
begin
hwndHandle := FindWindow(nil,PChar(windowName));
if (hwndHandle <> 0) then begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
End;
← →
kaZaNoVa © (2004-10-22 23:23) [7]kaZaNoVa © (22.10.04 23:22) [6]
это я так раньше угарал .. - ваще прикольно - пользователи офигевали :)))
← →
Gero © (2004-10-22 23:28) [8]
kaZaNoVa ©
> данный пример РЕАЛЬНО закрывает любой процесс
Да ну.
Mapa3M (22.10.04 23:18)
> шарите ??
Неа, тута одни нешарящие тусуются.
← →
kaZaNoVa © (2004-10-22 23:32) [9]Gero © (22.10.04 23:28) [8]
ага .. user"у не дано килять Service ;)))
← →
Mapa3M (2004-10-22 23:47) [10]kaZaNoVa, сенкс, тока теперь бы его обратно включить :red: :)
← →
kaZaNoVa © (2004-10-23 00:04) [11]Mapa3M (22.10.04 23:47) [10]
имхо .. сложно .. думаю .. очень сложно .. :))
← →
Юрий Зотов © (2004-10-23 07:32) [12]> Mapa3M
См. [3]. А чтобы программа нормально завершалась при завершении работы системы, еще понадобится обработчик WM_QUERYENDSESSION.
Страницы: 1 вся ветка
Текущий архив: 2004.11.07;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.131 c
