Hi!
Auch eine EXE-Datei kann Prozeduren und Funktionen exportieren:
Quelltext
1: 2: 3:
| Exports MeineProc1, MeineProc2; |
In einer beliebigen Unit wird deklariert:
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:
| interface
procedure MeineProc1 ; stdcall ; export ; procedure MeineProc2 ; stdcall ; export ;
implementation
procedure MeineProc1 ; begin // Diese macht nichts end ;
procedure MeineProc2 ; begin // Diese macht auch nichts end ; |
Dann kommt die DLL:
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
| type TMeineProc1 = procedure ; stdcall ; TMeineProc2 = procedure ; stdcall ;
var MeineProc1 : TMeineProc1; MeineProc2 : TMeineProc2;
begin @MeineProc1:= GetProcAddress( GetModuleHandle(nil) , 'MeineProc1' ) ; @MeineProc2:= GetProcAddress( GetModuleHandle(nil) , 'MeineProc2' ) ; end. |
_________________
Computer können schneller rechnen als wir, deshalb machen sie auch mehr Fehler