[ nekicneko99 @ 24.07.2014. 19:42 ] @
Novi dan, novi problemi.

Potreban mi je program (Delphi 7) koji ima atribute (ako se to tako zove).

Primer: nc.exe -lvvp 4444

Znaci kada u cmd kucap iskljucivanje.exe -m da mi se program pokrene spusten u try, a kada pokrenem exe normalno da se otvori. Konktretno treba mi za startup u registry baza.


Ne znam kako da dodam ovu opciju. Molim vas za pomoc.
Unapred hvala.
[ reiser @ 24.07.2014. 21:44 ] @
ParamStr(n) ti oznacava indeks argumenta koji je prosledjen tvom programu. ParamStr(0) je sama putanja do tvog programa, a nadalje parametri. Primer proste klase koja procesuira cmd line parametre:

Code:

unit Common.CommandLineParams;

interface

type
  TCommandLineParams = class
  private
    class var
      FNoUpdateFlag: Boolean;
  public
    class procedure ParseParams;

    class property NoUpdateFlag: Boolean read FNoUpdateFlag;
  end;

implementation

{ TCommandLineParams }

class procedure TCommandLineParams.ParseParams;
var
  C1: Integer;
begin
  for C1 := 1 to ParamCount do
  begin
    if ParamStr(C1) = '-noupdate' then
      FNoUpdateFlag := TRUE;
  end;
end;

end.