Embora fosse muito mais comum nos dias do DOS, os sistemas operacionais modernos também permitem executar parâmetros de linha de comando em um aplicativo, para que você possa especificar o que o aplicativo deve fazer.
O mesmo vale para o seu Delphi aplicação, seja para um Aplicação de console ou um com uma GUI. Você pode passar um parâmetro no Prompt de Comando no Windows ou no ambiente de desenvolvimento em Delphi, na pasta Executar> Parâmetros opção de menu
Neste tutorial, usaremos a caixa de diálogo de parâmetros para passar argumentos de linha de comando para um aplicativo, para que pareça que estamos executando no Windows Explorer.
ParamCount e ParamStr ()
o ParamCount A função retorna o número de parâmetros passados para o programa na linha de comando e ParamStr retorna um parâmetro especificado da linha de comando.
o OnActivate O manipulador de eventos do formulário principal geralmente é onde os parâmetros estão disponíveis. Quando o aplicativo está sendo executado, é lá que eles podem ser recuperados.
Observe que em um programa, o CmdLine A variável contém uma sequência com argumentos de linha de comando especificados quando o aplicativo foi iniciado. Você pode usar CmdLine para acessar toda a cadeia de parâmetros passada para um aplicativo.
Aplicação de amostra
Inicie um novo projeto e coloque um Botão componente em Formato. Nos botões OnClick manipulador de eventos, escreva o seguinte código:
procedimento TForm1.Button1Click (Remetente: TObject);
início
ShowMessage (ParamStr (0));
fim;
Quando você executa o programa e clica no botão, uma caixa de mensagem aparece com o caminho e o nome do arquivo do programa em execução. Você pode ver isso ParamStr "funciona" mesmo que você não tenha passado nenhum parâmetro para o aplicativo; isso ocorre porque o valor da matriz 0 armazena o nome do arquivo do aplicativo executável, incluindo as informações do caminho.
Escolher Parâmetros de Corre menu e, em seguida, adicione Programação Delphi à lista suspensa.
Nota: Lembre-se de que quando você passar parâmetros para seu aplicativo, separe-os com espaços ou guias. Use aspas duplas para agrupar várias palavras como um parâmetro, como ao usar nomes longos de arquivos que contêm espaços.
O próximo passo é percorrer os parâmetros usando ParamCount () para obter o valor dos parâmetros usando ParamStr (i).
Altere o manipulador de eventos OnClick do botão para isso:
procedimento TForm1.Button1Click (Remetente: TObject);
var
j: inteiro;
começar j: = 1 para ParamCount Faz
ShowMessage (ParamStr (j));
fim;
Quando você executa o programa e clica no botão, aparece uma mensagem que diz "Delphi" (primeiro parâmetro) e "Programação" (segundo parâmetro).