Ctr Alt Del

26/05/2003

1

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


Responder

Posts

26/05/2003

Fer

Este processo esconde o programa da lista ´Ctrl+Alt+Del´

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


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira