Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];

Вниз

Не дать пользователю закрыть окно   Найти похожие ветки 

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.063 c
9-1087491097
Zak3D[@Tm]
2004-06-17 20:51
2004.11.07
Анимированный персонаж.


1-1098332732
Kniaz
2004-10-21 08:25
2004.11.07
Совместный доступ к файлу


10-1056909068
epflorov
2003-06-29 21:51
2004.11.07
MT-DORB - ваши впечатления?


1-1098269944
SPeller
2004-10-20 14:59
2004.11.07
Varinat и set - можно подружить?


14-1098179861
Vasya.ru
2004-10-19 13:57
2004.11.07
Численное исследование алгоритмов построения равномерно распредел





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский