Buscar por:

Verifica se o delphi esta aberto

Código

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