Текущий архив: 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.024 c