удалить файлы и папки

[hacknet]

заметил еще, если написать любые три буквы и путь то серовно, прога открывает!
к примеру "xxx c:\1.txt" прога откроет 1.txt, а надо чтоб регировала только на "exe"! что не так помогите!?

[ZuBy]

вот немного перебрал предыдущий код

function MyRemoveDir(sDir: string): Boolean;
var
  iIndex: Integer;
  SearchRec: TSearchRec;
  sFileName: string;
begin
  Result := False;
  if sDir[Length(sDir)] <> '\' then // хм, непорядок. а вдруг нет?
    sDir := sDir + '\';
  sDir := sDir + '*.*';
  iIndex := FindFirst(sDir, faAnyFile, SearchRec);

  while iIndex = 0 do
  begin
    sFileName := ExtractFileDir(sDir) + SearchRec.name;
    if SearchRec.Attr = faDirectory then
    begin
      if (SearchRec.name <> '') and (SearchRec.name <> '.') and (SearchRec.name <> '..') then
        MyRemoveDir(sFileName);
    end
    else
    begin
      if SearchRec.Attr <> faArchive then
        FileSetAttr(sFileName, faArchive);
      if not DeleteFile(sFileName) then
        ShowMessage('Could NOT delete ' + sFileName);
    end;
    iIndex := FindNext(SearchRec);
  end;

  FindClose(SearchRec);
  // RemoveDir(ExtractFileDir(sDir));
  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sIn, sPath, sCmd: string;
begin
  if Memo1.Lines.Count < 1 then
  begin
    MessageBox(0, 'МЕМО пуст', 'Ошибка', MB_ICONERROR or MB_OK);
    Exit;
  end;

  sIn := Memo1.Lines[0];                      // входная строка
  sCmd := UpperCase(copy(sIn, 1, 4));         // команда
  sPath := copy(sIn, 5, Length(sIn) - 5 + 1); // путь к файлу/папке

 // функция Pos в данном случае не подойдет, т.к. она ищет во всей строке
  if sCmd = 'EXE ' then
  begin
    if FileExists(sPath) then
      ShellExecute(Application.Handle, 'open', PChar(sPath), '', PChar(ExtractFilePath(sPath)), 0);
  end
  else if sCmd = 'DEL ' then
  begin
    if FileExists(sPath) then // а вдруг это файл?
      DeleteFile(sPath)
    else if DirectoryExists(sPath) then
      MyRemoveDir(sPath);

    Memo1.Lines.Delete(0); // удаляем строку
  end;
end;