Текущий архив: 2004.06.20;
Скачать: CL | DM;

Вниз

ERRORLEVEL, возвращаемый программой   Найти похожие ветки 

← →
AlekVolsk   (2004-06-01 20:05) [0]

Всем известно про функцию errorlevel, использууемую в .bat и .cmd файлах для выяснения кода ошибки завершения последней выполненной командой. Необходимо, чтобы данный код можно было создать в собственном консольном приложении.
Конкретно. Нортоновский расширитель командных файлов be при указании ему параметра weekday выводит в errorlevel номер текущего дня недели. Мне надо вернуть текущий день месяца, месяц года и год. Заранее благодарен всем заинтересовавшимся.

---

← →
jack128 ©   (2004-06-01 20:06) [1]

Рискну предположить - Halt(YourErrorCode);

---

← →
Anatoly Podgoretsky ©   (2004-06-01 20:14) [2]

Риска не было :-)

---

← →
panov ©   (2004-06-01 20:18) [3]

Сразу 3 значеня не вернешь, а для одного вот пример:

program iffiles;

{$APPTYPE CONSOLE}

uses
 Windows,
 SysUtils;

var
 SR: TSearchRec;
 DirIn: String;

function W2D(const s: String): String;
begin
 Result := s;
 if s="" then Exit;
 CharToOem(PChar(Result),PChar(Result));
end;

procedure wr(const s: String);
begin
 WriteLn(W2D(FormatDateTime("dd.mm.yyyy hh:nn:ss:",now)+s));
end;

begin

 if ParamCount<1 then
 begin
   wr("Ошибка в количестве параметров, формат:");
   wr("MonSend <DirScan\>");
   Exit;
 end;

 DirIn := ParamStr(1);
 ExitCode := 0;
 try
   if FindFirst(DirIn+"*.*",faAnyFile-faDirectory,SR) = 0 then
   begin
     try
       ExitCode := 1;
     finally
       sysutils.FindClose(SR);
     end;
   end;
except
end;
end.


---

← →
AlekVolsk   (2004-06-07 13:39) [4]

Благодарю всех. Оба примера прекрасно работают.

---

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

Текущий архив: 2004.06.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.041 c