| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Кнопка Пуск [D7, WinXP]

inri13666 ©   (2006-05-27 16:21:00) 

Всем Доброго Времени Суток

У меня возникла потребность в програмном отключении кнопки "ПУСК", у меня есть сервис который не даёт запускаться двум прриложениям одновременно, кроме системных, мне бы хотелось чтобы пользавотель не имел доступ к кнопке пуск, но не через РегЕдит т.к. Юзеры Апдейтяться не по дням а по часам.
За ранее всем признателен, С уважением К АЛЛ. :)

---

Вольный Стрелок   (2006-06-28 17:23:00) [1]

> мне бы хотелось чтобы пользавотель не имел доступ к кнопке пуск
поставь ему линух или ваще дос

---

inri13666   (2006-06-28 16:55:00) [2]

ладно лажанул не прочитал автора
но может у кого есть рабочий сервис в котором можно исправить пару строчек и всё как мне надо чтобы работало.
заранее всем сенкс

---

inri13666   (2006-06-28 16:52:00) [3]

---
---
procedure Cls (HWIN,Klass:PAnsiChar);
var hn: HWnd;
begin
hn :=FindWindowEx(FindWindow(hwin, nil), 0,Klass , nil);
While Hn<>0 do
 begin
SendMessage(hn, WM_Close, 0, 0);
hn :=FindWindowEx(FindWindow(hwin, nil), 0, Klass, nil);
 end;
end;

Procedure button1.click(-----);
begin
Cls ('Shell_TrayWnd','Button');
end;

?? А у тя сам сервис работает всё время , а то у меня всего 30 сек и я не могу понять почему , если не сложно скинь мне на мыло может у меня глючит BDS 2006 UP2, inri13666@yahoo.com, если не сработает моя фишка то напиши на форуме я здесь всегда.

---

TUser   (2006-05-27 18:03:00) [4]

Чем кнопка ПУСК провинилась?

---

Handle   (2006-05-27 17:38:00) [5]

procedure TForm1.Button1Click(Sender: TObject);
begin
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
   0, 'Button', nil), false);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
   0, 'Button', nil), true);
end;

---

Наверх