Dicas - Verificando se o Delphi esta aberto

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Proteja aquele aplicativo que você desenvolveu com essa rotina que identifica se o usuário está com o Delphi aberto.

Verificando se o Delphi esta aberto

 

Proteja aquele aplicativo que você desenvolveu com essa rotina que identifica se o usuário está com o Delphi aberto (disponibiliza) ou fechado (trava a execução). Crie duas funções com as seguintes assinaturas:

 

function JanelaExiste(Classe, Janela: string): Boolean;

function DelphiAberto: Boolean;

 

E implemente-as com o seguinte código:

 

function JanelaExiste(Classe, Janela: string): Boolean;

var

  aClasse, aJanela: array[0..79] of char;

begin

  if Classe = '' then

    aClasse[0] := #0

  else

    StrPCopy(aClasse, Classe);

  if Janela = '' then

    aJanela[0] := #0

  else

    StrPCopy(aJanela, Janela);

  Result := FindWindow(aClasse, aJAnela) <> 0;

end;

 

function DelphiAberto: Boolean;

begin

  Result := JanelaExiste('TPropertyInspector', 'Object Inspector');

end;

 

No Evento OnCreate do formulário, digite seguinte código:

 

if DelphiAberto then

  ShowMessage('Delphi aberto')

else

begin

  ShowMessage('Delphi fechado! Você não pode utilizar o sistema');

  Application.Terminate;

end;

 

 

por Luciano Pimenta

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?