Открыть EXE

[DeKot]

некоторый текст в этом файле...

Текст можно прочитать только в текстовом файле( при этом расширение у файла может быть не только .txt или .doc).
Поэтому при работе с файлами нужно определять конкретно тип файлов.
Принцип anything или some - File не проходит.

[uberchel]

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

Текст можно прочитать только в текстовом файле( при этом расширение у файла может быть не только .txt или .doc).
Поэтому при работе с файлами нужно определять конкретно тип файлов.
Принцип anything или some - File не проходит.

Я как понял, он имеет ввиду открыть exe и поменять там текст( открыть как исходник) *.pas

[Romms]

uberchel Вы не правы! Я знаю что такое *.ехе, это не какойто там исходник зашифрованый)))...(и это я знаю ещё с первого класа)

Ну а как открывает стандартный Блокнот? мне надо также...

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

уже сказали много раз или через нетипизированныи файл либо через TFileStream

[DeKot]

Несколько раз перечитал все сообщения темы и только сейчас понял -
имеется какой то проект, содержащий текстовую информацию (к примеру есть компонент Memo (для Дельфи) с текстом). ТС хочет из уже скомпилированного проекта (по сути из .exe) получить доступ именно к текстовой части ( в Memo). Получаем вот что - экзешный файл в смысловом понятии возможно просмотреть только в машинном коде (обычно это шестнадцатеричный код). Hex-числа такого кода отображают команды для центрального процессора и содержат в себе тип команды (сложить содержание каких-то регистров памяти, переместить содержание ячейки памяти куда - либо, считать содержимое регистра с указанным адресом ... ну и так далее).Т.е. каждое такое 16-ричное число, по сути, низкоуровневая команда для процессора.В том числе она может содержать и информацию о текстовых символах, порядке их вывода на внешние устройства (экран, принтер и т.п.).
Таким образом прочитать экзешник можно, но чтобы все это понять (в принципе тоже возможно) уж слишком большие затраты знаний и ВРЕМЕНИ потребуются.
Даже если с помощью дизассемблирования преобразовывать экзешник, то и то в больших программах 100 % не разобраться (могут быть различные толкования одного и того же кода).
Так что подумайте (как говорят в Одессе) - А оно мне надо?

[Romms]

Как я понял, меня никто не понял... приношу свои извинения!

Что бы Вы меня поняли предлягаю зделать так:
1. Найти на компе какойто Екзешник(ехе)
2. Открыть стандартный Блокнот и с помощью него открыть найденной екзешник
Что вы видете? Вот это надо чтобы и моя прога показывала)
(это главная задача, притом нужно чтобы и иные файли открывались)

Большое спасибо за внимания

[DeKot]

Открыть стандартный Блокнот и с помощью него открыть найденной екзешник
Вот это надо чтобы и моя прога показывала)

А на фига???
Ну расковыряете Вы стамеской будильник. И . . . ?
Т.е. все что я написал в посте #15 Вам не надо?
Сто раз повторялось - это подпись Пепел Феникса:

Хорошо поставленный вопрос это уже половина ответа

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

читаем внимательно.
http://www.programmersforum.ru/showp...7&postcount=14

[Romms]

А на фига???
Ну расковыряете Вы стамеской будильник. И . . . ?

Да мне надо в этом "тексте" найти подстроку

Т.е. все что я написал в посте #15 Вам не надо?

конешно...

читаем внимательно.
http://www.programmersforum.ru/showp...7&postcount=14

Читал!!! Писал!!! НЕРАБОТАЕТ!!!

Возможно я неправиль написал...
Вот фрагмент моего кода:

var
        FromF, ToF: file;
	NumRead, NumWritten: Integer;
	Buf: array[1..2048] of Char;

[...]
 for ss:=1 to listBox2.Items.Count do
  begin

	AssignFile(FromF, listBox2.Items.strings[ss-1]);
	Reset(FromF, 1); { Record size = 1 }
	begin

	repeat

	BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
         memo1.text:=buf[1]    ;
//	BlockWrite(ToF, Buf, NumRead, NumWritten);

	until (NumRead = 0) or (NumWritten <> NumRead);
	CloseFile(FromF);

	end;


  end;

[Greblin]

Естественно не работает, точнее цикл проходит 1 раз
У Вас закомментирована строчка, в которой заносится значение в NumWritten. Поэтому в ней как хранился мусор, так и хранится и условие (NumWritten <> NumRead) выполняется