(Resolvido) Associar arquivo a um programa

[silvanirms]

Pessoal, na hora de se elaborar um programa teria como atrelar o funcionamento desse programa a um determinado arquivo (por exemplo um .dll) para que ele so funcionasse na maquina que possuisse esse arquivo no seu sistema? e caso ele não encontre esse arquivo tem como mascarar a descricao do erro? (evitar que seja mostrado um erro de que falta ESSE arquivo, evitando assim que seja conhecido qual arquivo ele necessita para rodar). Abs

[silvanirms]

Bem.. consegui esse codigo para a situacao acima, alguém poderia me indicar em que parte do projeto esse codigo entra? já tentei em varias e sempre da erro..

if not FileExists(c:\windows\teste.dll) then

ShowMessage('Arquivo "'+NomeFalso+'" não existe')

Application.Terminate;

Exit;

[Jhonas]

Bem.. consegui esse codigo para a situacao acima, alguém poderia me indicar em que parte do projeto esse codigo entra? já tentei em varias e sempre da erro..

if not FileExists(c:\windows\teste.dll) then
ShowMessage('Arquivo "'+NomeFalso+'" não existe')
Application.Terminate;
Exit;

Não é necessário voce informar um arquivo falso, basta não informar nada... se o arquivo não for encontrado, simplesmente ele é abortado. coloque o código no OnActive do primeiro form chamado pela sua aplicação

procedure TForm1.FormActivate(Sender: TObject);
begin

   if not FileExists('C:\windows\Teste.dll') then
     application.Terminate;

OBS: O erro no seu código é porque voce não colocou aspas no caminho para o arquivo

abraço

[silvanirms]

Jhonas esse onactive fica nos events?

[Jhonas]

Propriedade OnActive do Form

procedure TForm1.FormActivate(Sender: TObject);

abraço

[silvanirms]

Cara não sei o que estou fazendo de errado.. n sei se mesmo com tuas dicas estou pondo o codigo no lugar errado.. enfim.. abs

[Jhonas]

Se voce colocou uma figura não esta aparecendo

Mas não tem erro... o código funciona perfeitamente

abraço

[silvanirms]

Tinha colocado uma imagem sim, o link é esse: http://www.uploadimagens.com/upload/fd8348...fb8d17f855a.jpg

aqui não ta dando certo, retorna um erro na hora de compilar, o codigo ta certo acho que eu q não estou sabendo onde por. abs

Editado Janeiro 29, 2009 por silvanirms

[Jhonas]

O seu link não está funcionando

A página não pode ser exibida

desculpe a falta de atenção

Propriedade OnActive do Form

procedure TForm1.FormActivate(Sender: TObject);

Evento OnActive do Form

abraço

[silvanirms]

Jhonas coloquei a imagem em outro lugar, o que eu posso estar fazendo de errado? (estou abrindo o form e colando o codigo que voce me passou depois dos outros procedures)

foto

[Jhonas]

Olhe o seu erro:

Voce colocou uma procedure dentro da outra ( seria até possivel mas não dessa maneira )

procedure TForm1.FormCreate(Sender: TObject);
begin
   procedure TForm1.FormActivate(Sender: TObject);
   begin
      if not FileExists('C:\windows\Teste.dll') then
         application.Terminate;
   end;
end;

Apague o código acima e use desta maneira

procedure TForm1.FormActivate(Sender: TObject);
begin
   if not FileExists('C:\windows\Teste.dll') then
      application.Terminate;
end;

abraço

[silvanirms]

O programa ate compilou, mas não deu o resultado esperado (fechar na ausencia do arquivo teste.dll) vou te postar o codigo, ok? ahh e obrigado pela paciencia.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, ComCtrls, ShellApi;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Image1: TImage;
    Shape1: TShape;
    Label1: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
   if not FileExists('C:\windows\Teste.dll') then
      application.Terminate;
end;

end.

Editado Janeiro 30, 2009 por silvanirms

[Jhonas]

Voce pode fazer o seguinte teste... crie uma nova aplicação e coloque somente este código

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
   if not FileExists('C:\windows\Teste.dll') then
      application.Terminate;
end;

end.

Ao executar o programa, ele nem vai chegar a abrir se não encontrar o arquivo Teste.dll no diretório do windows

OBS: O seu código está correto, e se não estiver fechando é porque está encontrando o arquivo Teste.dll no diretório do windows... se for assim, voce deve deleta-lo para fazer o teste.

abraço

[silvanirms]

So o codigo funcionou, mas já procurei aqui e não existe nenhum teste.dll e mesmo assim ele não ta fechando, deve ter algum erro nesse meu codigo, algum detalhe que esteja impedindo o programa de fechar..

[Jhonas]

So o codigo funcionou, mas já procurei aqui e não existe nenhum teste.dll e mesmo assim ele não ta fechando, deve ter algum erro nesse meu codigo, algum detalhe que esteja impedindo o programa de fechar..

então sugiro a voce criar uma nova aplicação e criar as procedures uma a uma e ir executando o programa ( começando pelo OnActive do Form )

colocando uma a uma voce poderá achar o erro.

abraço

[silvanirms]

ok, vou fazer isso sim, mais uma vez obrigado pela ajuda. abs

[silvanirms]

Refiz o programa, procedure por procedure e não consegui que o codigo fizesse o programa fechar.. alguém poderia dar uma olhada nesse codigo que postei acima se esta tudo correto? (acho que deve ser algum detalhe que esteja passando despercebido e esta evitando que o codigo de fechar o programa funcione). Obrigado, abs s

Editado Janeiro 30, 2009 por silvanirms

[Micheus]

silvanirms, se o seu programa não vai rodar caso não encontre o tal arquivo, acredito que o lugar mais apropriado para fazer isto, seja no corpo do projeto (Project->View Source - acho que é isto...).

Então, você altera ele de modo que tudo o que estiver lá, seja executado apenas se a condição for verdadeira, ou seja, o arquivo existir:

...
{$R *.res}
begin
  if FileExists('C:\windows\Teste.dll') then
  begin
   // aqui o código normalmente executado no projeto
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    // ... outros forms que estejam no auto-create aparecerão aqui
    Application.Run;  
  end else
    MessageDlg('Um arquivo necessário ao programa não foi encontrado.', mtError, [mbOk], 0);
end.

Obs: acrescente a unit Dialogs, na cláusula uses, para uso da função MessageDlg.

Abraços

[silvanirms]

Micheus tentei da forma que voce indicou, mas tambem não deu.. esta retornando o erro:

Abraco

Editado Janeiro 30, 2009 por silvanirms

[silvanirms]

Consegui apos adicionar a unit 'SysUtils' (para usar o FileExists) obrigado a todos pela ajuda, abs