Создать файл

[cargo29]

Как можно прочитать данные из текстоваго файла записать его потом в файл exe и при запуске вывести этот текст в сообщение ???

[_Engine_]

Не знаете ка прочитать, или ка записать?

[cargo29]

ну как я читал на других форумах что там прочитать можно по разному прочитать из текстоваго файла и вывести например в поле мемо это легко а как потом его записать в exe файл ???что бы при запуске его он выводил сообщение с тем текстом который прочитал из файла

[illro]

Проблематично изменять exe-шник. Проще данные из файла в реестр или в доп. файл, а потом когда хочешь и куда хочешь эти данные выводи.

[cargo29]

Сообщение от illro

Проблематично изменять exe-шник. Проще данные из файла в реестр или в доп. файл, а потом когда хочешь и куда хочешь эти данные выводи.

нет вот смотри есть тут функция но я не понимаю как ее переделать

var
  myFile    : File;
  byteArray : array[1..8] of byte;
  oneByte   : byte;
  i, count  : Integer;

begin
  // Попытка открыть файл Test.byt для записи
  AssignFile(myFile, 'Test.byt');
  ReWrite(myFile, 4);   // Определение отдельной 'записи' как 4 байта

  // Заполнение массив данными
  for i := 1 to 8 do
    byteArray[i] := i;

  // Запись данных массива в файл
  BlockWrite(myFile, byteArray, 2);   // Запись 2 'записи' из 4 байт

  // Заполнение массива данных с различными данными
  for i := 1 to 4 do
    byteArray[i] := i*i;              // Значение : 1, 4, 9, 16

  // Запись только первых 4 элементов из массива данных в файл
  BlockWrite(myFile, byteArray, 1);   // Запись 1 записи из 4 байт

  // Закрытие файла
  CloseFile(myFile);

  // Повторное открытие файла для чтения
  FileMode := fmOpenRead;
  Reset(myFile, 1);   // Теперь мы определяем одну запись как 1 байт

  // Показ содержимого файла
  // Чтение первых 6 байт.'count' установлен в
  // текущий считанный номер
  ShowMessage('Чтение первого набора байтов :');
  BlockRead(myFile, byteArray, 6, count);

  // Показ считанных значений байта
  for i := 1 to count do
    ShowMessage(IntToStr(byteArray[i]));

  // Now read one byte at a time to the end of the file
  ShowMessage('Чтение остающихся байтов  :');
  while not Eof(myFile) do
  begin
    BlockRead(myFile, oneByte, 1);   // Чтение одного байта за один раз
    ShowMessage(IntToStr(oneByte));
  end;

  // Закрытие файла в последний раз
  CloseFile(myFile);
end;

как ее переделать???

[dosha]

ты хочешь сделать сбилдить ехешник и чтоб он запусался?

[cargo29]

а как это сделать????

[Пепел Феникса]

что именно сделать то надо?

файл приложения во время работы доступен только для чтения.

если пишете не вредный софт(вирус, трой и тп)
то храните настройки рядом с собой.

[cargo29]

Сообщение от Пепел Феникса

что именно сделать то надо?

файл приложения во время работы доступен только для чтения.

если пишете не вредный софт(вирус, трой и тп)
то храните настройки рядом с собой.

нет это не вредный софт.... как это можно сделать программа будет на типа бат конвертора но весь текст она будет выводить в сообщение

[Пепел Феникса]

как это можно сделать программа будет на типа бат конвертора но весь текст она будет выводить в сообщение

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