Ctr Alt Del
26/05/2003
0
Gostaria de saber se tem alguma forma de fazer com que o programa não tenha como ser finalizado, nem com Ctr+Alt+Del
Desde já Agradeço Roberto Costa
Desde já Agradeço Roberto Costa
Betocsp
Curtir tópico
+ 0
Responder
Posts
26/05/2003
Fer
Este processo esconde o programa da lista ´Ctrl+Alt+Del´
tipo para desabilitar o Alte F4 .. use isso
falow
Const Servico_Simples = 1; Servico_Unregister = 1; Function RegisterServiceProcess(DwProcessID, dwType: DWord): DWord; StdCall; External ´KERNEL32.dll´; procedure TForm1.FormCreate(Sender: TObject); begin RegisterServiceProcess(GetCurrentProcessID, Servico_Simples); end; procedure TForm1.FormDestroy(Sender: TObject); begin RegisterServiceProcess(GetCurrentProcessID, Servico_Unregister); end;
tipo para desabilitar o Alte F4 .. use isso
public { Public declarations } fecha: Boolean; end; implementation {$R *.DFM} Function GetStateK (Key: integer): boolean; begin Result := Odd (GetKeyState (Key)); end; procedure Tfrm_HIP.FormClose(Sender: TObject; var Action: TCloseAction); begin If Not fecha Then Action := caNone Else Action := caFree; end; procedure Tfrm_HIP.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If GetStateK (VK_LMENU) And (Key = VK_F4) Then fecha := False; end;
falow
Responder
26/05/2003
Betocsp
Agradeço pela resposta.
Eu tentei usar deste modo só que deu o seguinte erro:
´Field definition not allowed after methods or properties´
Desde já Agradeço
Eu tentei usar deste modo só que deu o seguinte erro:
´Field definition not allowed after methods or properties´
Desde já Agradeço
Responder
Clique aqui para fazer login e interagir na Comunidade :)