|
Как не дать открыть Диспетчер задач Виндовс
На форму нужно кинуть компонент Timer
procedure TForm1.Timer1Timer(Sender: TObject); var h : HWND; s : Pchar; begin s := 'Диспетчер задач Windows'; h := FindWindow(nil,s); if h <> NULL then SendMessage(h,WM_DESTROY,0,0); end; |
Категория: Примеры на Delphi7 | Добавил: DelphiAiX (20.03.2011)
|
Просмотров: 1297
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
|