API Casten ala ALIAS von VB

[DeddyH]

Delphi-Quellcode:

type
  TMyImportedFunction = function(dwFoo: DWORD): integer;stdcall;

var MyFunction: TMyImportedFunction = nil;

...

var h: THandle;
begin
  h := LoadLibrary('MeineDLL.dll');
  if h <> 0 then
    begin
      @MyFunction := GetProcAddress('Wuppdi');
      if Assigned(@MyFunction) then
        Bla := MyFunction(10);
    end;
end;

Die Funktion heißt hier in der DLL "Wuppdi" und angesprochen wird sie über "MyFunction". Ich kann Dir da Ollis DLL-Tutorial empfehlen.