Verificando se o Delphi está 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 execucao).

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);

result:= (FindWindow(pclasse, pjanela) <> 0);
end;

function TForm1.DelphiCarregado: Boolean;
begin
result:= JanelaExiste('TPropertyInspector', 'Object Inspector');
end;

function TForm1.FormCreate(Sender: TObject);
begin
if DelphiCarregado then
showmessage('Delphi está ativo!')
else
begin
showmessage('Impossível iniciar aplicação!')
Application.Terminate;
end;
end;