Программа для удаления файлов

[Foxtrot_1]

Добрый вечер форумчане. Нужна програмка обнаруживающая и удаляющая из папки С:/Windows/Inf/ два файла:

• «%SystemRoot%\Inf\usbstor.inf»
• «%SystemRoot%\Inf\usbstor.PNF»

[MalCer]

Delphi. Примитивный пример

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
    If FileExists('C:\WINDOWS/inf/usbstor.inf') Then
 Begin
   ShowMessage('Файл существует, нажать на кнопку ОК для удаления');
   if DeleteFile('C:\WINDOWS/inf/usbstor.inf') then
                                    ShowMessage('Файл удален')
                                    else
                             ShowMessage('Какая то ошибка')
  end
else
  ShowMessage('Файл НЕ существует')
end;

[Foxtrot_1]

Есть такой вариант

program Projewdtwerct2;

uses
  SysUtils;

const
  sFiles: array[0..1] of string = (
    'Inf\usbstor.inf',
    'Inf\usbstor.PNF');

var J: Integer;                     
    SysRoot: string;
begin
  SysRoot := GetEnvironmentVariable('SystemRoot');
  if SysRoot[Length(SysRoot)] <> PathDelim then
    SysRoot := SysRoot + PathDelim;

//  while True do begin  // закоментить, если нужен только один запуск
                         // или добавить условие для закрытия проги
    for J := Low(sFiles) to High(sFiles) do
      if FileExists(SysRoot + sFiles[J]) then
        DeleteFile(SysRoot + sFiles[J]);
//  end;                // закоментить, если нужен только один запуск
end.