команда в файле

[^D^ima]

Цитата sergey_sv @ 27.08.12, 15:12

В тоже время что бы на флешке ничего не появилось.

В файловой системе NTFS есть такая вещь как потоки. Эксплорер показывает только основной, как и размер этого потока в свойствах файла. Если писать в дополнительные потоки, то свойство диска покажет уменьшение свободного места, но вручную стандартными средствами винды не посмотреть куда что записалось.
Вот пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  F:TextFile;
begin
 AssignFile(F,'C:\1.txt:123');{Пишем в поток файла с названием 123}
 Rewrite(f);
 Write(f,'1234567890');
 CloseFile(f);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  F:TextFile;
  S:String;
begin
 AssignFile(F,'C:\1.txt:123');{Считываем из потока файла с названием 123, получаем "1234567890"}
 Reset(f);
 Read(f,s);
 CloseFile(f);
 ShowMessage(s);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  F:TextFile;
  S:String;
begin
 AssignFile(F,'C:\1.txt');{Считываем из основного потока того-же файла, ничего не получем, размер файла 0 байт}
 Reset(f);
 Read(f,s);
 CloseFile(f);
 ShowMessage(s);
end;

[Akina]

Цитата ^D^ima @ 29.08.12, 06:00

В файловой системе NTFS есть такая вещь как потоки.

Флешки (особенно SD-карты) редко форматируются в NTFS - обычно FAT32. А на упомянутой топикстартером ММС вообще своя файловая система. Тоже, кстати, без потоков.

Сообщение отредактировано: Akina - 29.08.12, 10:25