Force parameters of my application

[Ericktux]

Good morning, friends, I have a question.
How can I start my application with predefined command parameters and have it work on Windows and Linux?
For example, I want my application to always start automatically with:

Code: Pascal  [Select][+][-]

1. application1.exe --winner

Please help. 

[cdbc]

Hi
Just set '--winner' as a default option and the check parameters, if none are provided it continues with the default, but if a param is provided it overrides the default... Easy Peasy 
Regards Benny

[Ericktux]

Thank you very much, my friend. I found it in
Run --> execution parameters --> command line parameters
Greetings and thanks 

[Ericktux]

Hi friends, I've realized that this trick only works in design mode of my application. Is there a way for my app to start automatically with the '--winner' parameter, without needing the terminal or extra files, all from within my app?  Please help.

[cdbc]

Hi
As described in post #1, it could look like this attached project
Regards Benny

edit: uploaded new zip, with the pas-file too 

[Ericktux]

Hi friend, thank you very much, but I can't find where you put the '--winner' parameter in the example.
If you could help me, please.

[cdbc]

Hi
Ok, I spelled it out for you, look for the word 'HERE':

Code: Pascal  [Select][+][-]

1. unit view.main;
2.  
3. {$mode objfpc}{$H+}
4.  
5. interface
6.  
7. uses
8.   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls;
9.  
10. type
11.   TParam = (prNone, prWinner, prLooser, prEtc); /// <--- params to app
12.   { TfrmMain }
13.   TfrmMain = class(TForm)
14.     stbInfo: TStatusBar;
15.   private
16.     fStartParam: TParam; { <--- HERE }
17.   public
18.     procedure AfterConstruction; override;
19.   end;
20.  
21. var
22.   frmMain: TfrmMain;
23.  
24. implementation
25.  
26. {$R *.lfm}
27.  
28. { TfrmMain }
29.  
30. procedure TfrmMain.AfterConstruction;
31. var ls: string;
32. begin
33.   inherited AfterConstruction;
34.   fStartParam:= prWinner; { <--- HERE }
35.   if ParamCount >= 1 then begin
36.     if ParamStr(1) = '--looser' then fStartParam:= prLooser
37.     else if ParamStr(1) = '--etc' then fStartParam:= prEtc
38.     else if ParamStr(1) = '--winner' then fStartParam:= prWinner  { <--- HERE }
39.     else fStartParam:= prNone;
40.   end;
41.   WriteStr(ls,fStartParam); { just to visualize to you }
42.   stbInfo.SimpleText:= 'Start param = ' + ls; { just to visualize to you }
43. end;
44.  
45. end.
46.  

HTH
Regards Benny

[Ericktux]

Thanks a lot, my friend. I'll check it out.
I didn't find the .pas file in the "Archive.zip" attachment.

[cdbc]

Hi
Ooooouuupppsss, my bad, sorry.
Seems I didn't get it into the zip 
Well, the listing is the full pas file...
HTH
Regards Benny

[Ericktux]

Hi friend, I've tested the code and it compiles fine, but how can I get it to appear in the process list like this:

Code: Pascal  [Select][+][-]

1. application1.exe --winner

because it only appears like this in the processes

Code: Pascal  [Select][+][-]

1. application1.exe

Please help. 

[TRon]

because it only appears like this in the processes

Impossible to accomplish what you want unless the application executes itself again (with the correct parameters).

[Zvoni]

Create a Desktop-Link and append your Parameter there....
If User starts from anywhere else (No Parameters whatsoever) then ShowMessage "Ooops! Use the damn Desktop-Link"

And since when are Parameters shown in the Processlist? Did i miss something?

[cdbc]

Hmmmm

[tetrastes]

And since when are Parameters shown in the Processlist? Did i miss something?

You did.

[Zvoni]

And since when are Parameters shown in the Processlist? Did i miss something?

You did.

OK, thx. Never noticed it