Developing.ru

[b]Новенький[/b],
Хм, хороший вопрос.
WinCrt вот тут постили:
[url]http://forum.developing.ru/showthread.php?p=33662#post33662[/url]
Про WinDos ходу сказать не могу. Наверняка в интернете где-нибудь лежит.

а где взять модули windoc и WinCrt?

[b]BBB[/b], благодарю :)

{RmDir.PAS}

{Sample code for the RmDir procedure.}

{ For Windows: }
{ uses WinCrt; }

begin
  {$I-}
  { Get directory name from command line }
  RmDir(ParamStr(1));
  if IOResult <> 0 then
    Writeln('Cannot remove directory')
  else
    Writeln('directory removed');
end.

[quote="Новенький"]а подскажите как именно сделать на паскале удаление папки[/quote]

RmDir (procedure)
==================
Removes an empty subdirectory.

Declaration:
[b]procedure RmDir(S: String);[/b]

Target:
Windows, Real, Protected

Remarks:
Removes the subdirectory with the path specified by S. [u]If the path does not
exist, is non-empty, or is the currently logged directory, an I/O error
occurs.[/u]

With {$I-}, IOResult returns 0 if the operation was successful; otherwise,
it returns a nonzero error code.

See Also:
ChDir
GetDir
MkDir
RemoveDir

Sample Code:
[code]
{RmDir.PAS}

{Sample code for the RmDir procedure.}

{ For Windows: }
{ uses WinCrt; }

begin
{$I-}
{ Get directory name from command line }
RmDir(ParamStr(1));
if IOResult <> 0 then
Writeln('Cannot remove directory')
else
Writeln('directory removed');
end.[/code]

  {GetDate.PAS}

  {Sample code for the GetDate procedure.}

  { For Windows: }
  { uses WinDos, WinCrt; }

 uses Dos;

 const
   days : array [0..6] of String[9] =
     ('Sunday','Monday','Tuesday',
      'Wednesday','Thursday','Friday',
      'Saturday');
 var
   y, m, d, dow : Word;
 begin
   GetDate(y,m,d,dow);
   Writeln('Today is ', days[dow],', ',
           m:0, '/', d:0, '/', y:0);
 end.

[quote="Новенький"]а подскажите как именно сделать, чтоб паскаль выводил текущую дату?[/quote]Фрагмент из встроенного help-а ПАСКАЛЯ:

GetDate (procedure) (Dos unit and WinDos unit)
==============================
Returns the current date set in the operating system.

Declaration:
[b]procedure GetDate(var Year, Month, Day, DayOfWeek: Word);[/b]

Target:
Windows, Real, Protected

Remarks:
Ranges of the values returned are Year 1980..2099, Month 1..12, Day 1..31,
and DayOfWeek 0..6 (where 0 corresponds to Sunday).

See Also:
GetTime
SetDate
SetTime

Sample Code:

[code] {GetDate.PAS}

{Sample code for the GetDate procedure.}

{ For Windows: }
{ uses WinDos, WinCrt; }

uses Dos;

const
days : array [0..6] of String[9] =
('Sunday','Monday','Tuesday',
'Wednesday','Thursday','Friday',
'Saturday');
var
y, m, d, dow : Word;
begin
GetDate(y,m,d,dow);
Writeln('Today is ', days[dow],', ',
m:0, '/', d:0, '/', y:0);
end.[/code]

а подскажите как именно сделать на паскале удаление папки, и как можно сделать, чтоб паскаль выводил текущую дату?

про папки с примером я в предыдущей теме написал с отбором по расширению

[quote="&quot"]нужно рекурсивно обежать папку, вложенные папки и файлы в них,[/quote]
Ищем на форуме в этом разделе
[quote="&quot"]у которых дата отличается от текущей более чем на 14 дней.[/quote]
Пишем функцию разности дат

а как это сделать?

нужно рекурсивно обежать папку, вложенные папки и файлы в них, проверить имя и удалить те, у которых дата отличается от текущей более чем на 14 дней.