Главная страница
    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.039 c
2-1192352438
valenok
2007-10-14 13:00
2007.11.04
WebBrowser PopupMenu


2-1191985954
O.O
2007-10-10 07:12
2007.11.04
Запуск программ


4-1177745646
AlexPH
2007-04-28 11:34
2007.11.04
Как получить доступ к удаленному реестру


2-1191930542
ффф
2007-10-09 15:49
2007.11.04
фастрепорт


2-1192041920
NiGGa
2007-10-10 22:45
2007.11.04
Delphi7 и поиск ошибок





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