Параметры запуска проги

[GAGARIN-NEW]

Скажите пожалуйста как сделать возможность запуска моей программы с параметрами например в Cmd "C:/program.exe" - Это по обычному
А мне нада чтото типа "C:/program.exe -hide" При этом чтобы во время запуска проги выполнялась какаято функция (например с названием hide)
hide - это я взял для примера . просто у многих прог есть такой параметр запуска
НАПРИМЕР Мне нужно чтобы програмка в себе имела инстал...или например подобие *.sfx (тоесть ехе а в нём файлы ...и когда обычно запустили то он просто выполняется а когда с hide то она например выполняет какуюто функцию с файлами)

ЗЫ После того как я откомпилирую и упакую (UPX или ASPack) на сколько сложно определить что мою прогу можно запустить с параметрами?.(Например при запуске с параметром открывается дополнительная админ панелька итп) .Можно ли недеятся что юзер не узнает о этих параметрах ???
Подскажите плз как это организовать ??? Заранее БЛАГОДАРЕН !

[rpy3uH]

paramcount - количество параметров переданнных твоей проге
paramstr(0) путь к экзешнику
paramstr(1) первый параметр
paramstr(2) второй параметр
и т.д.

[andrey4623]

смотришь в событии formshow

[AlDelta]

Скажите пожалуйста как сделать возможность запуска моей программы с параметрами например в Cmd "C:/program.exe" - Это по обычному
А мне нада чтото типа "C:/program.exe -hide" При этом чтобы во время запуска проги выполнялась какаято функция (например с названием hide)
hide - это я взял для примера . просто у многих прог есть такой параметр запуска

program Project1;
uses
SysUtils, 
  Forms,
  Unit1 in 'Unit1.pas' {MainForm},
  Unit2 in 'Unit2.pas' {InstallForm},
  Unit3 in 'Unit3.pas' {UninstallForm};
{$R *.res}
var
  Param: string;
begin
  Param := UpperCase(ParamStr(1));
  if Param = '' then
  begin
    Application.Initialize;
    Application.CreateForm(TMainForm, MainForm);
    Application.Run;
  end
    else
  if Param = '/INSTALL' then
  begin
    Application.Initialize;
    Application.CreateForm(TInstallForm, InstallForm);
    Application.Run;
  end
    else  
  if Param = '/UNINSTALL' then
  begin
    Application.Initialize;
    Application.CreateForm(TUninstallForm, UninstallForm);
    Application.Run;
  end;
end.

После того как я откомпилирую и упакую (UPX или ASPack) на сколько сложно определить что мою прогу можно запустить с параметрами?...

ASPack или UPX

Компрессор исполняемых файлов, способный уменьшать файловый размер 32-битных программ Windows до 70% от первоначального размера. В программы, сжатые с помощью ASPack или UPX, не вносится никакого дополнительного кода и запускаются они так же, как и без сжатия.

...Можно ли недеятся что юзер не узнает о этих параметрах ???...

Надеться нельзя - рано или поздно это будет известно, скорее всего рано (лично мое мнение... ).

Если даришь кому-то надежду, то становишься еще и должен

[GAGARIN-NEW]

СПС ! а можно ли както указать на нужную мне функцию тут ? непример для открытия моей админ панельки ?

[AlDelta]

Сообщение от GAGARIN-NEW

СПС ! а можно ли както указать на нужную мне функцию тут ? непример для открытия моей админ панельки ?

 if Param = '/ADMIN' then
begin
MySuperFunc();
end

Если параметр /ADMIN то между begin end пишешь любой свой код.

Дальше тех, кто подает надежды, идут те, кто их продает.

[GAGARIN-NEW]

Это я вродебы сначала понял а если у меня в этой функции используется 30 переменных и 20 обьектов ?При этом функция есть в unit1 !!!

[Квэнди]

А что тебе мешает обрабатывать параметры коммандной строки в Unit1 ?