Какой вопрос - такой ответ.
Наверное, как обработать в своей программе параметры командной строки
| Код |
procedure TForm2.FormCreate(Sender: TObject);
Var
i:integer;
begin
//т.к. Params(0) - это путь и имя эксешника (C:\Folder\Maprog.exe), то пропускаем
//начнём с единицы, а не с нуля
for I := 1 to ParamCount do
begin
//первый символ параметра удалить т.к. обычно параметры передают с - или /
//можно ещё и проверку сделать
system.Delete(ParamStr(i),1,1);
if AnsiUpperCase(ParamStr(i)) = 'PARAM1' then
procedure1;
if AnsiUpperCase(ParamStr(i)) = 'PARAM2' then
procedure2;
end;
end;
|
|
