Последние записи

made in programmersforum 8

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

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Ноя

Чтение программой из своего же exe-файла

Posted by obzor under Delphi

Как реализовать чтения из себя? Например я записал в конец своего exe некую инфу, а при старте мне надо ее считать.

Arigato

program Project1;

{$APPTYPE CONSOLE}

uses
  Classes,
  SysUtils;

var
  F: TFileStream;
  C: array[1..4] of Char;

begin
  F := TFileStream.Create(ParamStr(0), fmOpenRead or fmShareDenyWrite);
  //F.Seek(-4, soFromEnd); // для чтения последних 4-х байт файла
  F.Read(C, 4);
  WriteLn(C);
  FreeAndNil(F);
  ReadLn;
end.

тема на форуме

Похожие статьи

Теги: Файлы

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

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

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

Наши форумы по программированию: