Buscar por:

Verificando se o delphi esta aberto

Código

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