Quick Tips: Extensões de arquivos - Parte 3

 

Nesta quick tip veremos como abrir um arquivo na nossa aplicação sendo este aberto pelo explorer.

 

Para isto usaremos o mesmo exemplo da quick anterior, porém iremos incluir um memo, conforme figura abaixo:




E no formCreate adicione o seguinte código:

procedure TForm1.FormCreate(Sender: TObject);

begin

  //verifica se a aplicação tiver parâmetros

  if ParamCount > 0 then

  begin

    //Carrega o conteúdo do arquivo no memo

    Memo1.Lines.LoadFromFile(ParamStr(1));

  end;

end;

 

Com este código, iremos carregar o conteúdo do arquivo aberto no memo.


Para testar, abra o bloco de notas, digite um texto qualquer e salve com a extensão .dev. Depois vá no Explorer e clique duas vezes neste arquivo e o sistema irá carregar o mesmo com o nosso aplicativo dentro do nosso memo.




É isso aí pessoal, vou ficando por aqui com a série sobre extensões de arquivos.

 

Fiquem a vontade para criticar, tirar dúvidas e sugerir novos temas.
Abraço.

Ricardo Coelho