Witam!

Potrzebuję źródła na zablokowanie pulpitu. Albo inaczej. Zrobiłem Form1 i doczepiłem do OnCreate kod na wyswietlenie hasła - InputBox. I chcę aby pulpit był zablokowany bo już reszte zrobilem żeby blokował Start, Ctrl+Alt+Del, Alt+Tab itp. a teraz chce żeby nikt nie dostał się do ikon pulpitu. Miałem pomysł na Uruchomienie Form2 czyli w OnCreate:

Form2.Show; //- Właśnie to nie działa !!!!
repeat
//tu nic
until InputBox(.....)....

Prosze pomożciee mi!!!

Spróbuj to: (u mnie na winxp działa idealnie :]):

ShowWindow(FindWindow('Progman','Program Manager'),xxxx);

Gdzie xxxx to SW_HIDE (aby ukryć) lub SW_SHOW (aby pokazać).

Dzięki zobacze czy działa!

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.WindowState:=wsMaximized;
  form1.FormStyle:=fsStayOnTop;   
end;

Ktosiek-Cosiek napisał(a)

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.WindowState:=wsMaximized;
  form1.FormStyle:=fsStayOnTop;   
end;

Powinno działać
:-)

Jeszcze bsNone w stylach okna ;-P

nie działa, bo blokujesz pętlę komunikatów i nie dajesz ukończyć wykonywania konstruktorowi. daj tą pętlę gdzie indziej (później w innym zdarzeniu), a w niej application.processmessages().

jest jeszcze shift+ctrl+esc, win+D, win+M, win+E, win+F i pewnie jeszcze dużo innych.

[pesymizm mode on]
namęczysz się, a ktoś i tak znajdzie obejście...

a może tak:

• odpalasz swój porgram
• zabijasz proces explorera
• blokujesz kombinacje klawiszy
• przy zamykaniu swojego programu uruchamiasz explorera

Właściwą metodą jest zarejestrowanie programu jako shell systemowy zamiast Eksploratora. Wtedy NIE MA pulpitu ani paska zadań, gdyż są one częścią standardowej powłoki explorer.exe
http://www.knowledgesutra.com/index.php/Change-Windows-Xp-Shell_t20367.html
Automatycznie niemożliwe stanie się również uruchomienie innego exe poprzez prawy klawisz myszy w oknie otwórz/zapisz.