GetProcaddress: string-übergabe casten?

[messie]

Zitat von himitsu:

Zitat:

API-Doku

Was sind denn für Versionen in der Windows.pas zu finden?

Gute Idee da mal nachzusehen

Noch nicht überladen weil noch nicht unicodefähig

Code:

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(AnsiString(lpProcName)));
end;

Aber das sollte damit geklärt sein. Mein Problem muss ich wohl anders lösen. Ich habe einen signed int mit 16 bit im Labview gefunden und vermute, dass dessen Übergabe ans Win64 Späne macht. Das werde ich als nächstes debuggen.

Grüße, Messie