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

Кнопка Пуск   Найти похожие ветки 

← →
inri13666 ©   (2006-05-27 16:21) [0]

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

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

---

← →
Handle   (2006-05-27 17:38) [1]

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;

---

← →
TUser ©   (2006-05-27 18:03) [2]

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

---

← →
inri13666 ©   (2006-06-28 16:52) [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, если не сработает моя фишка то напиши на форуме я здесь всегда.

---

← →
inri13666 ©   (2006-06-28 16:55) [4]

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

---

← →
Вольный Стрелок ©   (2006-06-28 17:23) [5]

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

---

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

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



Память: 0.46 MB
Время: 0.024 c