Скачать: CL | DM;

Запуск файла с ключём.   Найти похожие ветки 

← →
klaster   (2002-07-09 13:02) [0]

Товарищи знатоки!
Помогите чайнику разобраться.
Как сделать так, чтоб программа выпоняла определённую ветку в зависимости
от ключа после ехе"шника при запускке через командную строку.
Пример
c:\> myprog.exe 1 -Одно выполнение
c:\> myprog.exe 2 -Другое выполнение.

---

← →
MBo ©   (2002-07-09 13:30) [1]

в хелпе Param...

---

← →
Work_NOV ©   (2002-07-12 16:45) [2]

program datedir;
{$APPTYPE CONSOLE}

uses
SysUtils;

const
H = "Использовать "+#13+#10+
"datedir <смещение даты> <формат даты>""+#13+#10+
"например:"+#13+#10+
"datedir -1 ddmmyyyy"+#13+#10+
"datedir 4 yyyy-mm-dd" ;

var
R, Fmt : String;
i, err : Integer;
F : text;
S: string;

begin
{количество параметров}
if ParamCount < 1 then
begin
{значит пустили без параметров}
WriteLn(H);
Halt(0);
end;

Fmt := "";
{перебираем все параметры и складываем их в один}
for i := 2 to ParamCount do
Fmt := Fmt + ParamStr(i) + " ";

{рожаем текущую дату по формату}
DateTimeToString(R, Fmt, Now+StrToInt(ParamStr(1)));
WriteLn(R);

{создаем каталог}
MkDir(R);

{а вдруг не получилось?}
err := IOResult;
if err <> 0 then
begin
{я так и знал...}
WriteLn("Make directory ERROR: #", err);
{код возврата в случае ошибки}
Halt(err);
end;

{ChDir(R);}
GetDir( 0, S);
SetCurrentDir (S+"\"+R);
{а вдруг не получилось?}
err := IOResult;
if err <> 0 then
begin
{я так и знал...}
WriteLn("Change directory ERROR: #", err);
{код возврата в случае ошибки}
Halt(err);
end;


end.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c