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

Не работает код   Найти похожие ветки 

← →
Igit ©   (2003-11-27 08:20) [0]

Если создать отдельную программу без VCL и KOL, то все работат, а в MCK этот код не работает

procedure MemPatch(filename:string);
const buf:array[0..1] of byte=($00,$90); // Первый байт - хоть что, второй опкод nop"а
var
 rw:cardinal;
 sti:tstartupinfo;
 lpPi:tprocessinformation;

begin
// Создаем процесс
if not CreateProcess(nil,PChar(filename),nil,nil,false,CREATE_NEW_CONSOLE or
  NORMAL_PRIORITY_CLASS,nil,nil,StI,lpPI) then
  begin
     ShowMessage("Can""t find...");
     exit
  end
else
  while true do
     if readprocessmemory(lppi.hProcess,pointer($4A1C91),@buf[0],1,rw) // Читаем один байт по адресу 00441785
     then
        if buf[0]<>$0 then // Проверяем на распакованность, если не 0 - то распаковалась
           begin
              // Подождем, пока asprotect проверит память, иначе будет писать "Protection Error 15"
              sleep(300);
              //остановили процесс
              suspendthread(lppi.hThread);
              //записали что хотели
              writeprocessmemory(lppi.hProcess,pointer($4A1C91),@buf[1],1,rw);
              writeprocessmemory(lppi.hProcess,pointer($4A1C92),@buf[1],1,rw);
              writeprocessmemory(lppi.hProcess,pointer($4A1C93),@buf[1],1,rw);
              writeprocessmemory(lppi.hProcess,pointer($4A1C94),@buf[1],1,rw);
              writeprocessmemory(lppi.hProcess,pointer($4A1C95),@buf[1],1,rw);
              writeprocessmemory(lppi.hProcess,pointer($4A1C96),@buf[1],1,rw);
              //поехали дальше!
              resumethread(lppi.hThread);
              closehandle(lppi.hprocess);
              // Сами закрываемся
              exit;
           end;
end;

Вылетает ошибка на CreateProcess "Ошибка инициализации приложения..."
Дальше программа подвисает...

---

← →
SPeller ©   (2003-11-27 14:43) [1]

В МСК и не должно ничего работать. МСК к готовой программе не имеет никакого отношения. Может, программа всё-таки написана с КОЛ?

---

← →
SPeller ©   (2003-11-27 14:43) [2]

В МСК и не должно ничего работать. МСК к готовой программе не имеет никакого отношения. Может, программа всё-таки написана с КОЛ?

---

← →
Igit ©   (2003-11-27 14:58) [3]

Ну эт ясно что с кол...

---

← →
SPeller ©   (2003-11-27 15:09) [4]

>  sti:tstartupinfo;
>  lpPi:tprocessinformation

А эти структуры, случаем, инициализировать не надо? Хотябы нули туда записать?

---

← →
Igit ©   (2003-11-29 08:03) [5]

Спксибо, все работает.

---

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

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



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