Verifica se o delphi esta aberto

{Verificando se o Delphi está aberto

Proteja aquele aplicativo ou objeto que vc desenvolveu com esta rotina que
identifica se o usuário está com o Delphi aberto (disponibiliza) ou fechado
(trava a execucao).
Bom proveito !}

Function TForm1.JanelaExiste(Classe,Janela:String) :Boolean;
var
PClasse,PJanela : array[0..79] of char;
begin
if Classe = '' then
PClasse[0] := #0
else
StrPCopy(PClasse,Classe);
if Janela = '' then
PJanela[0] := #0
else
StrPCopy(PJanela,Janela);
if FindWindow(PClasse,PJAnela) <> 0 then
result := true
else
Result := false;
end;

Function TForm1.DelphiCarregado : Boolean;
begin
Result := False;
if JanelaExiste('TPropertyInspector','Object Inspector') then
result := True
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
if DelphiCarregado then
showmessage('Delphi está ativo, bom menino!')
else
begin
Showmessage('Vc não poderá utilizar esta aplicação! Mau garoto!');
application.terminate;
end;
end;