2 Programme, ein Prozess

[Aphton]

@Apollonius

Delphi-Quellcode:

var
  hLib, tid: DWord;

function NewThread(P: Pointer): DWord; stdcall;
begin
  asm
    push edx
//    push ecx
    mov  eax,  [ebx]
    mov  edx,  [eax+$128]   // addr. of entrypoint
    add  edx,  eax          // inc. um eax (imagebase)
//    --make sec. writable--
//    mov  ecx,  eax
//    add  ecx,  $21C
//    mov [ecx], WriteAbleSec
    call edx
//    pop  ecx
    pop  edx
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  hLib := LoadLibrary( '<pfad...>\DevProject.exe' );
  CreateThread( nil, 0, @NewThread, @hLib, 0, tid );
end;

Tja ich kann sagen, dass das nicht funzt