DLL-Injection schlägt fehl

[Sir Rufo]

Man kann natürlich auch beide Varianten zur Verfügung stellen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows;

function InjectDll( TargetPID: DWORD; InjDLL: PChar ): Boolean;
function InjectDllA( TargetPID: DWORD; InjDLL: PAnsiChar ): Boolean;
function InjectDllW( TargetPID: DWORD; InjDLL: PWideChar ): Boolean;

implementation

function InjectDllA( TargetPID: DWORD; InjDLL: PAnsiChar ): Boolean;
begin

end;

function InjectDllW( TargetPID: DWORD; InjDLL: PWideChar ): Boolean;
begin

end;

function InjectDll( TargetPID: DWORD; InjDLL: PChar ): Boolean;
begin
{$IFDEF UNICODE}
  Result := InjectDllW( TargetPID, InjDLL );
{$ELSE}
  Result := InjectDllA( TargetPID, InjDLL );
{$ENDIF}
end;

end.

und hat eine automatische Umleitung (je nach Compiler), wenn man function InjectDll( TargetPID: DWORD; InjDLL: PChar ): Boolean; verwendet.