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
