Переслать файл в Корзину

- С 25 - Ранен.
- С 26 - Ранен.
- С 27 - Файл win. com на диске С: убит!

Сначала нужно в директиве uses подключить модуль ShellAPI, чтобы мы смогли воспользоваться API-функцией SHFileOperation(). А затем уже можно использовать такой вот процедурой:

procedure SendToPomoyka(FileName: string);
var
  SHF: TSHFileOpStruct;
begin
  with SHF do
  begin
    Wnd := Application.Handle;
    wFunc := FO_DELETE;
    pFrom := PChar(FileName);
    fFlags := FOF_SILENT or FOF_ALLOWUNDO;
  end;
  SHFileOperation(SHF);
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 150 • TDictionary Custom Sort 3 330 • Fast Watermark Sources 3 077 • 3D Designer 4 839 • Sik Screen Capture 3 332 • Patch Maker 3 546 • Айболит (remote control) 3 651 • ListBox Drag & Drop 3 006 • Доска для игры Реверси 81 652 • Графические эффекты 3 934 • Рисование по маске 3 240 • Перетаскивание изображений 2 621 • Canvas Drawing 2 744 • Рисование Луны 2 572 • Поворот изображения 2 179 • Рисование стержней 2 167 • Paint on Shape 1 567 • Генератор кроссвордов 2 233 • Головоломка Paletto 1 767 • Теорема Монжа об окружностях 2 221 • Пазл Numbrix 1 685 • Заборы и коммивояжеры 2 056 • Игра HIP 1 281 • Игра Go (Го) 1 228 • Симулятор лифта 1 473 • Программа укладки плитки 1 216 • Генератор лабиринта 1 546 • Проверка числового ввода 1 362 • HEX View 1 495 • Физический маятник 1 358

Переслать файл в Корзину

Похожие по теме исходники