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

Вниз

Запуск программ   Найти похожие ветки 

 
O.O   (2007-10-10 07:12) [0]

Как во время работы программы запретить запускать любые другие приложения? Например спрятать панель задач и меню Пуск, рабочий стол сделать недоступным или как ещё?


 
Alarm ©   (2007-10-10 09:09) [1]

Например спрятать панель задач и меню Пуск:

procedure TForm1.Button1Click(Sender: TObject);
Var hTaskBar : THandle;
begin
hTaskbar := FindWindow("Shell_TrayWnd", Nil);
ShowWindow(hTaskBar, SW_HIDE);
end;

рабочий стол сделать недоступным:

procedure ShowDesktop(const YesNo : boolean);
var h : THandle;
begin
h := FindWindow("ProgMan", nil);
h := GetWindow(h, GW_CHILD);
if YesNo = True then
  ShowWindow(h, SW_SHOW)
else
  ShowWindow(h, SW_HIDE);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowDesktop(False);
end;


 
Leonid Troyanovsky ©   (2007-10-10 09:22) [2]


> O.O   (10.10.07 07:12)  

> Пуск, рабочий стол сделать недоступным или как ещё?

Выпусти свое приложение на отдельный десктоп.

--
Regards, LVT.


 
O.O   (2007-10-10 09:35) [3]

Спасибо за ответы, буду пробовать


 
clickmaker ©   (2007-10-10 10:20) [4]


> [1] Alarm ©   (10.10.07 09:09)

от Ctrl+Alt+Del - Task manager - Run не спасет ведь


 
O.O   (2007-10-10 11:05) [5]


> Alarm ©   (10.10.07 09:09) [1]

Всё отлично сработало, спасибо!

> clickmaker ©   (10.10.07 10:20) [4]

Это уже другой вопрос, в моём случае это никак не помешает


 
Alarm ©   (2007-10-10 11:11) [6]

>clickmaker ©   (10.10.07 10:20) [4]

Ctrl+Alt+Del можно заблокировать другими способами, а

Run не спасет ведь, решается блокированием клавиши "Win"


 
Leonid Troyanovsky ©   (2007-10-10 11:21) [7]


> Alarm ©   (10.10.07 11:11) [6]

Заблуждения.

--
Regards, LVT.


 
Маша Шрайбер ©   (2007-10-10 11:28) [8]

>> Alarm ©   (10.10.07 09:09) [1]
>> if YesNo = True then

Это так принято у крутых прогеров, умеющих скрывать десктоп?
)))


 
Alarm ©   (2007-10-10 11:28) [9]

>Leonid Troyanovsky ©   (10.10.07 11:21) [7]
А в чем конкретно заблуждения (если не затруднит)?


 
Leonid Troyanovsky ©   (2007-10-10 11:33) [10]


> Alarm ©   (10.10.07 11:28) [9]

> А в чем конкретно заблуждения (если не затруднит)?

Конкретно в [6],
оба утверждения порождены заблуждениями.

--
Regards, LVT.


 
Alarm ©   (2007-10-10 11:42) [11]

>Leonid Troyanovsky ©   (10.10.07 11:33) [10]

Очень смелые и уверенные утверждения (но, к сожалению бездоказательные). Ну, если по поводу Ctrl+Alt+Del в данный момент я пожалуй промолчу, то по блокировке клавиши "Win" - заблуждается Leonid Troyanovsky ©.


 
Leonid Troyanovsky ©   (2007-10-10 11:51) [12]


> Alarm ©   (10.10.07 11:42) [11]

> промолчу, то по блокировке клавиши "Win" - заблуждается

taskmgr, пункт меню File - New.
При чем тут Win?

--
Regards, LVT.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.47 MB
Время: 0.037 c
2-1191985954
O.O
2007-10-10 07:12
2007.11.04
Запуск программ


15-1190501517
Comunicator
2007-09-23 02:51
2007.11.04
BC3.1


15-1191237113
Суслик
2007-10-01 15:11
2007.11.04
Покритикуйте описание системных требований моего продукта


15-1191515422
Бисти Бойс
2007-10-04 20:30
2007.11.04
Неудобство с Блокнотом


2-1192270081
Новичек
2007-10-13 14:08
2007.11.04
Состояние DataSet.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский