Buscar por:

Permitir que seu programa receba parametros (recurso abrir com, do windows)

Código

Ola pessoal, nao sei se voces sabem, mas os aplicativos escritos em Delphi, desde o tempo do Turbo Pascal, possuem maneiras de receber parametros, assim como os programinhas em C. Existem duas funcoes que permitem isso, sao elas, ParamStr(numero_parametro), e ParamCount. A primeira retorna um string do parametro passado para o programa, bastando informar a ela qual parametro voce quer receber. A segunda funcao retorna a quantidade de parametros que foram passadas ao seu programa. O primeiro parametro e o proprio nome do seu programa, com indice 0 (zero). Vamos a um pequeno exemplo. Coloque um componente Memo no seu formulario, no evento OnCreate do seu formulario principal insira o seguinte codigo:

   if (ParamCount > 0) then

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

Lembre-se de que o primeiro parametro e o nome do seu proprio programa com indice 0 (zero), o segundo parametro pode ser o nome de um arquivo ou alguma opcao, com indice 1 (um), o terceiro parametro tem indice 2 (dois), e assim por diante.

Para fazer o teste salve sua aplicacao e compile. Abra o Windows Explorer e procure por qualquer arquivo texto, clique com o botao direito sobre ele e escolha Abrir com, clique no botao procurar para procurar um programa para abrir o arquivo, va no diretorio onde voce salvou seu projeto, e escolha o seu programa, depois em OK. Pronto, se tudo ocorreu bem, o Memo vai mostrar o conteudo do seu arquivo. Na verdade, durante esse processo o sistema operacional fez mais ou menos assim:

> seu_programa.exe c:arquivo.txt

Enviando c:arquivo.txt como parametro para o seu programa com indice 1. Bom espero ter ajudado. Se tiver qualquer duvida sobre os codigos que mostrei por favor postem...valeu!