Создать файл

← →
Костик (2008-11-18 14:42) [40]

> тут магнит нужен.остальное все - фигня, ФСБ найдет

ну это слишком

← →
Anatoly Podgoretsky © (2008-11-18 15:07) [41]

> clickmaker (18.11.2008 14:29:39) [39]

Не просто магнит, а очень мощный магнит.
Гораздо лучше шредер или печка.

← →
Vayrus (2008-11-18 15:36) [42]

Попробуй это:
procedure TForm1.OpenClick(Sender: TObject); var FileName: string; begin OpenDialog1.Execute; FileName:=OpenDialog1.FileName; Path.Caption:= FileName; end; procedure TForm1.DeleteClick(Sender: TObject); var buffer: array [0..4095] of Byte; max, n: LongInt; i,j,k: Integer; fs: TFileStream; FileName: String; begin case Num.Position of 0: k:=1; 1: k:=3; 2: k:=5; 3: k:=10; 4: k:=15; end; FileName:= Path.Caption; fs := TFilestream.Create(FileName, fmOpenReadWrite or fmShareExclusive); try for i := 1 to k do begin for j := Low(buffer) to High(buffer) do buffer[j] := Random(256); max := fs.Size; fs.Position := 0; while max > 0 do begin if max > SizeOf(buffer) then n := SizeOf(buffer) else n := max; fs.Write(Buffer, n); max := max - n; end; FlushFileBuffers(fs.Handle); end; finally fs.Free; end; Deletefile(FileName); ShowMessage("Все пучком"); end;

← →
Костик (2008-11-18 15:55) [43]

> Vayrus (18.11.08 15:36) [42]
> Попробуй это:

спасибо

← →
@!!ex © (2008-11-18 16:10) [44]

> OpenDialog1.Execute;
>
> FileName:=OpenDialog1.FileName;
>
> Path.Caption:= FileName;

:))
2 замечания:
1) Не стоит игнорировать нажатие на Cancel в диалоге.
2) Зачем лишняя переменная?

← →
Костик (2008-11-18 16:51) [45]

Черт - реальный вирус. 80 метров удалить до сих пор не могу...

← →
Костик (2008-11-18 17:05) [46]

Скажите плиз как файл удалить?

← →
Anatoly Podgoretsky © (2008-11-18 17:06) [47]

> Костик (18.11.2008 16:51:45) [45]

Пригласи прогаммиста/системного администратора.

← →
Костик (2008-11-18 17:12) [48]

Анатолий вы не поверите, но реально я только с помощью DeleteFile() справился, ну тобишь программно.

Знаешь я доверчивый после 48 сообщений.
Правда зачем было создавать файл, вливать в него строку и тут же удалять с помощью DeleteFile.

> Скажите плиз как файл удалить?

Вот как удаляют файлы правильные пацаны:
"Если слежка угрожает вашей жизни, то необходимо заменить жесткий диск на новый, а старый диск разобрать и сточить с него верхний слой с помощью наждачной бумаги."
http://computerix.narod.ru/inter/gold3/pub/bez.htm

Бред.
Имхо.

Создать файл Найти похожие ветки