Версия для печати темы

Автор: Apache 6.07.2008 3:06

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

Автор: volvo 6.07.2008 3:33

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

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

Автор: Apache 6.07.2008 3:47

Цитата(volvo @ 5.07.2008 23:33)

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

Автор: Apache 6.07.2008 4:06

Цитата(volvo @ 5.07.2008 23:33)

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

Автор: volvo 6.07.2008 4:31

WriteLn(GetEnv('systemroot'));