Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.11.04;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.019 c
4-1177771250
webpauk
2007-04-28 18:40
2007.11.04
добавление пункта в контекстное мен. проводника


2-1192272777
apic
2007-10-13 14:52
2007.11.04
TListView


15-1191601109
редкий гость
2007-10-05 20:18
2007.11.04
проблемка с php


15-1190979589
Володя
2007-09-28 15:39
2007.11.04
Сравнение


2-1191973448
Friz
2007-10-10 03:44
2007.11.04
Небольшой вопросик.