1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

const
  stoOpenFileExIndex     = $10C;

//Funktionskopf (fürs dynamische Laden)
type
  TFNStormOpenFileEx = function (hMPQ: THandle; lpFileName: LPCSTR;
    dwSearchScope: DWORD; hFile: PHandle): BOOL; stdcall;

//statisch laden (klappt)

function SFileOpenFileEx(hMPQ: THandle; lpFileName: LPCSTR;
  dwSearchScope: DWORD; hFile: PHandle): BOOL; stdcall;
  external 'storm.dll' index stoOpenFileExIndex;

//dynamisch laden
var
  SOpenFileEx: TFNStormOpenFileEx;
  hLib: THandle;
begin
  hLib := LoadLibrary(PATH_TO_DLL);
  if hLib <> 0 then begin
    @SOpenFileEx := GetProcAddress(hLib,
        PChar(MakeLong(stoOpenFileExIndex, 0)));
    if Assigned(@SOpenFileEx) then
      SOpenFileEx(mit_selben_Parametern_wie_statische_Dll_aufrufen);
      //Funktion ist nicht nil und wird auch aufgerufen.
      //Jedoch bekomme ich immer nen Fehler FILE_NOT_FOUND und die 
      //Funktion scheitert. Beim statischen klappts.
  end;
  FreeLibrary(hLib);
end;					

1:

GetProcAddress(hLib, PChar(MakeLong(stoOpenFileExIndex, 0)))					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

//SFileOpenFileEx (Aufruf statisch):
lea eax,[ebp-$20]
push eax
push $00
push $004d32c
mov eax,[ebp-$1c]
push eax
call SFileOpenFileEx

//SOpenFileEx (Aufruf dynamisc)
lea eax,[ebp-$20]
push eax
push $00
push $004cd32c
mov eax,[ebp-$1c]
push eax
call dword ptr					

1:

BOOL  LMPQAPI WINAPI SFileOpenFileEx(MPQHANDLE hMPQ, LPCSTR lpFileName, DWORD dwFlags, MPQHANDLE *hFile);