PostMessage mogućnosti, ChangeCursor and SystemKeys

[ borovac @ 17.10.2004. 13:37 ] @

1.Znam da se MinimizeAll može izvesti ovako

Code:
procedure MinimizeAll;
var
  intHwnd: Integer;
begin
  intHwnd := FindWindow('Shell_TrayWnd', nil);
  PostMessage(intHwnd, WM_COMMAND, 419, 0);
end;

Šta je ono 419?
Kako uraditi MaximizeAll?
2. Kako promijeniti kursor?
3. Da li se mogu onemogućiti sistemski ključevi (Alt+Esc,Ctrl+Alt+Del,Alt+F4 i sl.)?
Treba da dari na svim windowsima!

[ reiser @ 17.10.2004. 15:24 ] @

1) Sta je 419 ? Po MSDN-u :

Citat:

Value of the low-order word of wParam. Specifies the identifier of the menu item, control, or accelerator.

2) Vidi http://www.experts-exchange.co...nguages/Delphi/Q_20665275.html

3) Za ALT+F4 :
U OnCreate ili na neko drugo mesto stavis :

Code:
Application.OnMessage := OnAppMessage;

i :

Code:

procedure TMainWindow.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  Handled := FALSE;

  Case Msg.Message of
// Ako je ALT+F4 pritisnuto, setuj Handled na TRUE (time se obustavlja dalje procesuiranje trenutne poruke)
    WM_SYSKEYDOWN : If Msg.wParam = VK_F4 Then
                      Handled := TRUE;
  End;
end;

Ctrl+Alt+Del u NT sistemima ne mozes lako da blokiras... Pretrazi malo forum, bilo je reci o tome... U Win9x kod mozes da nadjes preko Google-a veoma lako...

[ borovac @ 17.10.2004. 15:33 ] @

1. Ali koju kontrolu identifikuje 419?
To me zanima jer bih želi0 napraviti MaximizeAll. A zo to ja mislim treba nešto drugo umjesto 419.
3. Znam sve to uraditi za Win9x:
U NT sistemima Ctrl+Alt+Del se preko registrija može onemogućiti.

[ reiser @ 17.10.2004. 15:49 ] @

Citat:

U NT sistemima Ctrl+Alt+Del se preko registrija može onemogućiti.

Ali to nije najefikasniji nacin (da disejblujes TaskManager)... Sta ako ti program 'pukne' ??? Onda TaskMgr ostaje disejblovan do daljneg...

[ Shadowed @ 17.10.2004. 16:10 ] @

Task Manager se pokrece sa Ctrl+Shift+Esc. Ako iskljucis Ctrl+Alt+Del ne znaci da iskljucujes i TM.