Скачать: CL | DM;

КАК ЧИТАТАТЬ 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

---

← →
LordOfSilence ©   (2002-07-22 10:24) [6]

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

---

← →
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;

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

---

← →
Flashx ©   (2002-07-23 04:13) [8]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c