Pascal/Delphi Abrir minha aplicação quando selecionar arquivo de uma determinada extensão

[Edberto Ferneda]

Olá Pessoal,

 

      Gostaria de saber como associar uma extensão de arquivo à minha aplicação Delphi. Ao clicar em um arquivo (no Windows Explorer, por exemplo) de uma determinada extensão eu quero que seja executada a minha aplicação com o arquivo já aberto. Como acontece com os arquivos .DOCx, que abrem o Word ao clicar sobre eles.

 

     Sei que uma das coisas a fazer é associar a extensão do arquivo ao meu aplicativo  Isso eu Já aprendi como fazer. A questão agora é:  Como eu devo programar o meu aplicativo para ele ser executado e receba/abra o arquivo que foi selecionado?       

 

Agradeço desde já a ajuda.

[KXSY]

1 hora atrás, Edberto Ferneda disse:

A questão agora é:  Como eu devo programar o meu aplicativo para ele ser executado e receba/abra o arquivo que foi selecionado?

Procure no manual do delphi por ParamCount e ParamStr.

 

Eu não tenho mais o delphi, mas se você tiver é quiser eu mando um exemplo feito em lazarus.

 

Exemplo em pascal puro no console.

Program Testes;
uses
  Crt;
  
var
  cont:integer;
  
begin
  clrscr;
  if ParamCount>0 then
  begin
    writeln('Parametros passados para o programa.');
    for cont:=0 to ParamCount do
      writeln(cont,'-',ParamStr(cont));
  end
  else
    writeln('Não foi passado nenhum parametro.');
  readln;
end.