Verificando se o delphi esta aberto

{Proteja aquele aplicativo ou objeto que você desenvolveu com esta rotina que identifica se o usuário está com o Delphi aberto (disponibiliza) ou fechado (trava a execução).}

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;