2 вопроса

[W0LF]

1. Как можно увеличить размер файла до определенного размера (что бы файл остался работоспособным, но занимал указаное количество места) ?
Прошу очень пример...

2. Как програмно изменить время создания, изменения и открытия файла ?

[Alex Cones]

1. Как можно увеличить размер файла до определенного размера (что бы файл остался работоспособным, но занимал указаное количество места) ?

Забивай файл какими-нибудь символами после записи допределенного размера, а при чтении удаляй этот символ.

[W0LF]

Файл должен иметь любое разширение, и он не будет открываться моей прогой

[Alex Cones]

Попробуем вариант "забивание". Создай Jpg изображение, Bmp и возьми рабочий exe, всем им дай разрешение txt - Photo.Jpg.txt. Открой таблицу символов и скопируй из шрифта Corier New какой-нибудь замудреный символ. Открой файлы текстовым редактором и допиши в конце 10 раз этот символ. Переименуй обратно (удали расширение txt) попробуй посмотреть изображения или запустить exe. Если получится - это пут к победе, если нет - увы.

[W0LF]

а на счет SetFileTime, можете привести пример использования?

[Alex Cones]

Честно говоря, не приходилось пользоваться, но создаешь на форме кнопку, в ней онклик процедуру, туда пишешь SetFileTime и жмакаешь по этой надписи при зажатом CTRL. Откроется модуль с этой функой. Читай, знакомься. Не поможет - поиск по форуму или гугл в помощь.
Вот например http://www.programmersforum.ru/showp...88&postcount=6

[W0LF]

тока шо пробывал, чото не срабатует... (( можете у себя проверить?

[Alex Cones]

К сожалению нет, т.к. сейчас в линуксе. Попробуйте посмотреть здесь: http://www.programmersforum.ru/searc...earchid=359087

[spamer]

Что то типа этого вроде:

procedure TForm1.Button1Click(Sender: TObject);
var
  CreateTime,   
  LastAccess,   
  LastWrite     
  : PFileTime;

  FileHandle: THandle;

  SystemTime: _SYSTEMTIME;
begin
  New(CreateTime); 
  New(LastAccess);
  New(LastWrite);    //Можно LastAccess := nil - для остальных тоже. тогда структура не запоняется для него
  FileHandle:=FileOpen('ПУть к файлу', fmOpenWrite or fmShareDenyNone);

    //GetSystemTime(SystemTime); 

    SystemTime.wYear := 1991;
    SystemTime.wMonth := 1;
    SystemTime.wDayOfWeek := 0;
    SystemTime.wDay := 1;
    SystemTime.wHour := 0;
    SystemTime.wMinute := 0;
    SystemTime.wSecond := 0;
    SystemTime.wMilliseconds := 0;
    SystemTimeToFileTime(SystemTime,CreateTime^);

    SystemTime.wYear := 1992;
    SystemTime.wMonth := 2;
    SystemTime.wDayOfWeek := 0;
    SystemTime.wDay := 2;
    SystemTime.wHour := 0;
    SystemTime.wMinute := 0;
    SystemTime.wSecond := 0;
    SystemTime.wMilliseconds := 0;
    SystemTimeToFileTime(SystemTime,LastAccess^);

    SystemTime.wYear := 1993;
    SystemTime.wMonth := 3;
    SystemTime.wDayOfWeek := 0;
    SystemTime.wDay := 3;
    SystemTime.wHour := 0;
    SystemTime.wMinute := 0;
    SystemTime.wSecond := 0;
    SystemTime.wMilliseconds := 0;
    SystemTimeToFileTime(SystemTime,LastWrite^);
   
    SetFileTime(FileHandle,CreateTime,LastAccess,LastWrite);
    FileClose(FileHandle); 
    Dispose(CreateTime);
    Dispose(LastAccess)
    Dispose(LastWrite);
end;

[Lime]

Вариант с блокнотом не пройдёт - нужно дописывать после "конца файла" ...