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