Поиск файлов по маске и удаление. Опции

[Apache]

Извините я пока что в паскале ни бум-бум. У меня возник вопрос. Как сделать, чтобы выполнялся поиск файлов по маске, а потом они удалялись? Пребывал по-простому
Assign (f, ‘*.bak’);
Erase (f);
но не получается.

[volvo]

Попробуй по-сложному:

{$m 4096, 0, 0}
uses dos;
begin
  swapvectors;
  exec(getenv('comspec'), '/c del *.bak');
  swapvectors;
end.

[Apache]

Попробуй по-сложному:

{$m 4096, 0, 0}
uses dos;
begin
  swapvectors;
  exec(getenv('comspec'), '/c del *.bak');
  swapvectors;
end.

Спасибо

[Apache]

Попробуй по-сложному:

{$m 4096, 0, 0}
uses dos;
begin
  swapvectors;
  exec(getenv('comspec'), '/c del *.bak');
  swapvectors;
end.

У меня еще один вопрос %windir% не работает, а можно как то это компенсировать?

[volvo]

%windir% не работает

Зато

WriteLn(GetEnv('systemroot'));

прекрасно работает...