Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.017 c