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
