Кнопка Пуск

← →
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, если не сработает моя фишка то напиши на форуме я здесь всегда.

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

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

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