Fórum Finaliza o programa quando entre o descanço de tela #6915

Olá.
  Você quer fechar o projeto, assim que a proteção de Tela entrar certo ? Só para confirmar. Se for isso estamos já trabalhando no desenvolvimento da solução

Att,

Wesley Y

Isso mesmo.   E muito obrigado

Olá,

  Segue abaixo o código para fechar o Form, ao executar a proteção de Tela.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject); // Implemente o OnCreate do Formulário
  private
    { Private declarations }
    procedure AppMsg(var Msg: TMsg; var Handled: Boolean); // Declare esta procedure
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AppMsg(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.Message = wm_SysCommand) and (Msg.wParam = sc_ScreenSave) then { Verifica se a proteção de Tela foi Iniciada, Caso sejá sim (Close no Form, ou qualquer outra programação que você queria colocar na hora que aproteção for iniciada }
      Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppMsg;
end;

end.


    Espero que ajude.

Att,

Wesley Y

Olá,
  Gostaria de saber se conseguimos resolver o seu problemas, podemos fechar o chamado ?

Att,

Wesley Y

Boa tarde   Resolveu sim   Gostaria de agradeçer   Diogenes