
Последние записи
- Востановить формулу записанную в ячейке, при записи в ней любого числа и записать это в ячейку другого листа
- Вывод температуры процессора через BAT (CMD)-файл
- Сделать выполнение кода в определенные часы
- OnLine/OffLine на PHP
- ActionScript (Flash) — современные альтернативы и конвертация
- Передача в функцию произвольного набора чисел (на разных языках программирования)
- Joomla 3.8 — Автоматическая авторизация по IP автоматически созданного временного пользователя с принадлежностью к заданной группе
- Конвертация MOV to MP4
- Автоматическое уничтожение объектов
- Найти среднее значение по данным в ячейке

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
10th
Апр
Удаление файла без возможности восстановления
procedure ZeroFillDelete(FileName: string);
var
fs: TFileStream;
i: integer;
procedure RandomWrite;
var b: byte;
begin
repeat
b := Random(256); fs.Write(b, 1);
until fs.Position + 1 >= fs.Size;
end;
procedure WritePattern(pattern: byte);
const patt: array[5..31] of dword = ($555555, $AAAAAA, $924924, $492492,
$249249, 0, $111111, $222222, $333333, $444444, $555555, $666666,
$777777, $888888, $999999, $AAAAAA, $BBBBBB, $CCCCCC, $DDDDDD,
$EEEEEE, $FFFFFF, $924924, $492492, $249249, $6DB6DB, $B6DB6D, $DB6DB6);
var d: dword;
begin
d := patt[pattern] shl 8;
repeat fs.Write(d, 3); until fs.Position + 3 >= fs.Size;
end;
begin
if not FileExists(FileName) then Exit;
for i := 1 to 35 do
try
fs := TFileStream.Create(FileName, fmOpenWrite);
try
if (i < 5) or (i > 31) then RandomWrite
else WritePattern(i);
finally
fs.Free;
end;
except Exit; end;
DeleteFile(FileName);
end;
21st
Янв
Удаление файла выделенного в ListBox
Через Listbox выбираю один из нескольких файлов. Закидываю его в dbmemo. и загружаю его в базу. Как сделать, чтобы после команды POST выбранный файл удалялся? (читать всё…)
26th
Июн
Удалить файл выбранный пользователем
что мне нужно ? мне нужно чтобы клиент мог через textBox ввести расположение файла , и он удалился (читать всё…)
23rd
Сен
Как удалить из папки все файлы определённого расширения?
Каким образом можно удалить из папки все файлы определённого расширения ? (читать всё…)
Облако меток
реестр ассемблер timer TBitMap SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid поиск canvas файл Pascal форма Файлы интернет Microsoft Office Excel excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)