Valeu Berdam, consegui fazer usando o código abaixo :
procedure TForm1.setparam(s: string);
begin
wArq := s;
end;
procedure TForm1.FormShow(Sender: TObject);
var
i : Integer;
begin
form1.setparam(ParamStr(1));
ListaParametros.Clear;
for i := 0 to ParamCount do begin
ListaParametros.AddItem(ParamStr(i),Self);
end;
if Length(wArq) > 0 then
ShowMessage(warq)
else
ShowMessage('Nada');
end;
De qualquer forma obrigado por tentar ajudar.
César
________________________________
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Berdam
Enviada em: segunda-feira, 21 de maio de 2007 08:20
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Abrir automaticamente
eu acho que vc tem que trabalhar com o registro do delphi. Tem uns
registros que indicam a qual programa o arquivo pertence.
Cesar - Informatica escreveu:
>
> Pessoal, bom dia, estou com um problema em um sistema que desenvolvi,
> o problema é o seguinte :
>
> Dentro do meu sistema em um determinado ponto gravo um arquivo txt.
> Até ai tudo bem... vc consegue manipular esse arquivo dentro do
> sistema, ou seja, consigo depois abrir novamente pelo sistema e beleza....
> Porém meu usuario vê a necessidade de ao dar um duplo click no arquivo
> txt o sistema carregue automaticamente o arquivo, no windows já
> associei a extensão ao sistema, que na verdade a extensão é FLX e não
> TXT, mas a questão é como faço para que o sistema entenda o duplo
> click no arquivo e abra o arquivo automaticamente.
>
> Desde já agradeço a todos,
>
> César Eduardo Teixeira Silva
> Programador (CPD)
> Ober S/A Industria e Comercio
> (19) 3466-9200
> [EMAIL PROTECTED] <mailto:cesar.silva%40ober.com.br>
> <mailto:cesar.silva%40ober.com.br>
> <mailto:[EMAIL PROTECTED] <mailto:cesar.silva%40ober.com.br>
> <mailto:cesar.silva%40ober.com.br>>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
[As partes desta mensagem que não continham texto foram removidas]
