Exportierte Funktion aus Exe mit GetProcAddress

[Fritzew]

Hier mal ein kleiner Test

eigentlich müsste 2 mal eine messagebox kommen.
Schau es Dir mal im Debugger an.....

[Neutral General]

Habs hinbekommen.
Auch wenn das in der Windows Unit auf den ersten Blick so aussieht:

Delphi-Quellcode:

// Winapi.Windows
function GetProcAddress(hModule: HMODULE; lpProcName: LPCSTR): FARPROC; stdcall; overload;
function GetProcAddress(hModule: HMODULE; lpProcName: LPCWSTR): FARPROC; stdcall; overload;

GetProcAddress gibt es (original) nicht im WideString-Format:

Delphi-Quellcode:

// Winapi.Windows
function GetProcAddress(hModule: HMODULE; lpProcName: LPCSTR): FARPROC; external kernel32 name 'GetProcAddress';
function GetProcAddress(hModule: HMODULE; lpProcName: LPCWSTR): FARPROC;
begin
  if ULONG_PTR(lpProcName) shr 16 = 0 then // IS_INTRESOURCE
    Result := GetProcAddress(hModule, LPCSTR(lpProcName))
  else
    Result := GetProcAddress(hModule, LPCSTR(TMarshal.AsAnsi(lpProcName)));
end;

Musste also meine eigene Definition von PChar auf PAnsiChar ändern und jetzt klappt es.

[Zacherl]

Du solltest darauf achten, dass eine .reloc Section für deine .exe generiert wird, sonst bekommst du Probleme, wenn Adresse 00400000 schon belegt ist.

[Neutral General]

Wieso? Ich gehe doch nicht hartkodiert auf $400000.
GetModuleHandle(nil) sollte mir doch die Basisadresse der exe liefern egal wo sie liegt oder nicht?

[Zacherl]

Achso nevermind, du lädst die .exe ja gar nicht selbst. Passt schon :P