Congelar DeskTop ( alguem sabe )

Delphi

09/05/2003

Estou desenvolvendo aplicativo, mas não consigo que qdo inializado ele congela o desktop, e consiga trabalhar normal somente em meu sistema.
Obrigado !!!.


Walter Faria

Walter Faria

Curtidas 0

Respostas

Adilsond

Adilsond

09/05/2003

Funções retiradas do site:
http://lib.seven.com.br/menu.asp?codcat=1

Desabilite o Desktop, o botão iniciar, o Ctrl+ALT+DEL e a TaskBar

// Habilita ou desabilita a barra de tarefas do windows
Procedure ShowTaskbar(Visible:Boolean);
var wndHandle : THandle;
    wndClass  : array[0..50] of Char;
begin
    StrPCopy(@wndClass[0],´Shell_TrayWnd´);
    wndHandle := FindWindow(@wndClass[0], nil);
    If Visible=True Then Begin
       ShowWindow(wndHandle, SW_RESTORE); // This restores the taskbar
    End Else Begin
       ShowWindow(wndHandle, SW_HIDE);  // This hides the taskbar
    End;
end;

{ Mostra ou esconde o botao iniciar }
Procedure ShowStartButton(Visible:Boolean);
Var taskbarhandle,
    buttonhandle : HWND;
begin
   taskbarhandle := FindWindow(´Shell_TrayWnd´, nil);
   buttonhandle := GetWindow(taskbarhandle, GW_CHILD);
   If Visible=True Then Begin
      ShowWindow(buttonhandle, SW_RESTORE);
   End Else Begin
      ShowWindow(buttonhandle, SW_HIDE);
   End;
end;

// Habilita ou desabilita os icones do desktop do windows
Procedure ShowDesktop(Active:Boolean);
Var WNDClass : Array[0..50] of char;
begin
   StrPCopy(@WndClass[0],´Progman´);
   If Active = True  Then Begin
      ShowWindow(FindWindow(@WndClass[0],nil),sw_Restore);
   End Else Begin
      ShowWindow(FindWindow(@WndClass[0],nil),sw_hide);
   End;
end;

// Desabilita o CTRL+ALT+DEL e CTRL+ESC
procedure EnableSysKeys(Enabled:Boolean);
var OldVal : LongInt;
begin
  SystemParametersInfo(SPI_SCREENSAVERRUNNING,Word(not Enabled), @OldVal, 0)
end;



Alguem sabe????? Este é um fórum de ajuda. Se alguém souber lhe responderá. Então para que a pergunta desta forma???????


GOSTEI 0
Kroki

Kroki

09/05/2003

Ve se isso serve pra vc (só não vai usar a Velocidade da CPU),foi retirado de dicas,se quiser te mando por email o codigo.
www.kroki.hpg.com.br/dwon/Ruindows.zip


GOSTEI 0
POSTAR