Delphi 2009 und dllinjection?

[eglar85]

Hallo,

ich habe erst vor kurzem D2009 installiert und ebenfalls ein altes Projekt wieder aufgegriffen
jedoch musste ich feststellen das es under D2009(32bit) nicht funktioniert. Das Projekt wird zwar fehlerfrei erzeugt, die DLL wird jedoch nicht ausgeführt.(unter D7 läuft alles einwandfrei) Ich bin mir fast sicher das es etwas mit der neuen PAnsiChar und PWildChar konventionen zu tun hat finde jedoch den Fehler nicht. Ich hab fast alles probiert und bin am verzweifeln. (Noch finde ich mich mit D2009 nicht allzugut zurecht)

Vllt hat sich ja jmd on euch einmal damit befasst.

Delphi-Quellcode:

  h_prozess:= openprocess(PROCESS_ALL_ACCESS, false, targetproc);
  p_ofdll := VirtualAllocEx(h_prozess, 0, length(mydll), MEM_COMMIT,PAGE_EXECUTE_READWRITE);
  writeprocessmemory(hProzess,  p_ofdll, pchar(mydll), length(mydll), bw); 
  try 
    if createremotethread(h_prozess, nil, 0, 
                          getprocaddress(getmodulehandle('kernel32.dll'),PAnsiChar('LoadLibraryA')), 
                          p_ofdll, 0,h_remotet)   then
     //memo1.lines.add('success');
     waitforsingleobject(h_remotet, INFINITE);
  finally
   closehandle(h_prozess);
  end;
              ...

[sirius]

in write processmemory schreibst du "myDLL" als PChar rein. Aber du benutzt nachher die Funktion LoadLibraryA. Evtl. PAnisChar dort nehmen, oder LoadLiabraryW.

[eglar85]

Mydll ist ein string. Ich bin zZ nicht zuhause und kann das leider nicht testen aber das ist sehr vielversprechend ^^ Danke!
p.s. sollte es eigentlich

Delphi-Quellcode:

    if createremotethread(h_prozess, nil, 0,
                          getprocaddress(getmodulehandle('kernel32.dll'),PAnsiChar('LoadLibraryA')),
                          p_ofdll, 0,h_remotet) <> 0  then

heißen, k.a. wie sich so ein fehler einschleichen konnte.... naja schon mal vielen dank im Voraus. :D