КАК ЧИТАТАТЬ EXEшник????

← →
Flashx © (2002-07-22 03:57) [0]

Спасите!!!
Надо из запущеного ехе читать свой код Делфя ругается на Reset(f,1) .... i/o 32

Помогите плз!!!!

← →
Flashx © (2002-07-22 04:04) [1]

Извеняюсь за флуд.... просто показалось, что сообщение не прошло :(

← →
МИФИст © (2002-07-22 07:27) [2]

А ты ключи используешь {I+} и {I-}?

← →
Anatoly Podgoretsky © (2002-07-22 07:55) [3]

Потому что ты пытаешься открыть его на запись

← →
RV © (2002-07-22 09:14) [4]

ага. на запись
вот так работает, но при методе memory.free у меня бывают ошибки

Memory := TMemoryStream.Create;
try
Memory.LoadFromFile(S);
Memory.Read(s,100);

← →
Lord Warlock © (2002-07-22 09:19) [5]

Можно использовать CreateFile из WinAPI

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

← →
Pumpkin (2002-07-22 21:11) [7]

2FlashX
Reset есть OpenReadWrite. ЕХЕшники открываются призапуске как DenyWrite.
Если только читать то примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var
Buf^ : Pointer;
H : THandle;
S1: String;
begin
S1 := ParamStr(0);
H := FileOpen( S1, fmOpenWrite or fmShareDenyNone );
if H = $FFFFFFFF then begin
MessageBox(Handle, "ERROR","ERROR",0);
Exit;
end;
GetMem(Buf, 32);
FileSeek(H, 128, 0);
FileRead(H, Buf, 32);
FileClose(H);
end;

Все функции всего лишь обертки для АПИшных.
Удачи.

Спасиба.... век живи - век учись.... никогда бы не подумал, что Reset подразумевает под собой запись....

Спасиба за ответы... буду разбираться..... если у кго есть еще какие-нить идеи с благодарностью выслушаю....

КАК ЧИТАТАТЬ EXEшник???? Найти похожие ветки