Abrir programa com par�metros

Question

Como fa�o para abrir um programa com par�metros no atalho?

Por exemplo, a op��o [b:476f5d2c54]/a[/b:476f5d2c54], mostra o form A, a op��o [b:476f5d2c54]/b[/b:476f5d2c54], mostra o form B, etc.

Xanatos · Answer

Ao iniciar teu programa consulte ParamStr(1) esse numero entre parenteses indica a posicao da string.

Tipo Programa /a /b:

ParamStr(1) = �/a� e ParamStr(2) = �/b�

if ParamStr(1)<>�/a� then
FormA.ShowModal
else if ParamStr(1)<>�/b� then
FormB.ShowModal

Espero q ajude!!!

Afarias · Answer

Al�m disso vc pode usar a fun��o [b:560aca54c9]ParamCount[/b:560aca54c9] para determinar quantos argumentos foram passados para o execut�vel, ou ainda usar a fun��o [b:560aca54c9]FindCmdLineSwitch[/b:560aca54c9] para saber se determinado par�metro foi utilizado, ex:

if FindCmdLineSwitch(�a�, [�-�, �/�], True) then
begin
{ fa�a algo }
end;

no caso acima, vai retornar TRUE caso exista em qualquer posi��o (nos argumentos de execu��o) �-a� ou �/a� (sem aspas, claro!)

T+

Tatuweb · Answer

S� uma observa��o:A fun��o ParamStr, pelo menos at� a vers�o 5 do Delphi/C++ Builder, possui um bug. Ela n�o funciona corretamente se o path tiver espa�os. Ex: C:arquivos de programas tem dois espa�os. Prefira usar a API GetCommandLine em conjunto com Copy, AnsiPos e ParamCount. � bem simples. Se algu�m usa o programa XnView (visualizador de imagens) j� deve ter reparado esse programa tem este bug....

Paulo_amorim · Answer

[quote:c38e28ca13=�TatuWeb�]S� uma observa��o:A fun��o ParamStr, pelo menos at� a vers�o 5 do Delphi/C++ Builder, possui um bug. Ela n�o funciona corretamente se o path tiver espa�os. Ex: C:arquivos de programas tem dois espa�os. Prefira usar a API GetCommandLine em conjunto com Copy, AnsiPos e ParamCount. � bem simples. Se algu�m usa o programa XnView (visualizador de imagens) j� deve ter reparado esse programa tem este bug.[/quote:c38e28ca13]Ol�Ele funciona se vc passar com aspas, da� ele interpreta como um par�metro...[quote:c38e28ca13=�Borland�]DescriptionParamStr returns the parameter from the command line that corresponds to Index, or an empty string if Index is greater than ParamCount. For example, an Index value of 2 returns the second command-line parameter.ParamStr(0) returns the path and file name of the executing program (for example, C:TESTMYPROG.EXE).[b:c38e28ca13]Note:Use double quotes to wrap multiple words as one parameter (such as long file names containing spaces)[/b:c38e28ca13][/quote:c38e28ca13]...

Tatuweb · Answer

[quote:2fd320821d=�Paulo_Amrorim�]Ele funciona se vc passar com aspas, da� ele interpreta como um par�metro... [/quote:2fd320821d]Como assim passar com aspas? S� como exemplo fa�a um programinha para ler arquivos texto, associe a extens�o TXT ao seu programa e tente abrir um arquivo dentro de um path que tenha espa�o. Se tentar fazer o que t� abaixo vai retornar um erro caso o path contenha espa�o.[code:1:2fd320821d]procedure TForm1.FormShow(Sender: TObject);begin  if ParamStr (1) <> �� then  Memo1.Lines.LoadFromFile (ParamStr (1));end;[/code:1:2fd320821d]...

Keitarosan · Answer

o que o Paulo Amorim falou est� certo, uso Delphi5 e sempre utilizei o ParamStr e ParamCount, tenho programas que associam os arquivos e n�o d� problema algum, tenha espa�o no meio do nome ou n�o...

Quando for associar um arquivo a um programa, a maneira mais coerente � fazer assim: � � ��1� :D

Tatuweb · Answer

[quote:9b1e03c271=�KeitaroSan�]Quando for associar um arquivo a um programa, a maneira mais coerente � fazer assim: � � ��1� :D[/quote:9b1e03c271]Ah t�... agora entendi o lance. Entre aspas j� estava mas faltou incluir o ��1� na associa��o. Testei agora e funciounou.  :P...