Главная страница
    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.042 c
14-1097834341
iZEN
2004-10-15 13:59
2004.11.07
Windows Terminal Server и Ctrl + Alt + Del


1-1098470983
Mapa3M
2004-10-22 22:49
2004.11.07
Не дать пользователю закрыть окно


14-1098185744
Ilya____
2004-10-19 15:35
2004.11.07
GetFileSize


14-1097792687
Knight
2004-10-15 02:24
2004.11.07
Фэнтези...


9-1089613573
Sancho
2004-07-12 10:26
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский