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

library delphidll; 

uses 
  SysUtils, 
  Classes; 

{$R *.RES} 

function Anzeigen: integer; stdcall; 
begin 
result:=10; 
end; 

exports 
  Anzeigen; 

begin 
end.					

1:

function Fensterzeigen: integer; cdecl;					

1:
2:
3:
4:
5:
6:

ð
    
        € 
Anzeigenˆ#   


Anzeigen
delphidll.dll
 #ˆ  û  tŠ  t          ñ�
                                                                                                                                                                                                                                                                                                                                                                                                                            q                                    
Anzeigen
					

1:

int __declspec(dllimport) _Anzeigen(void);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

void Fensterzeigen()
{
TFunktionszeiger* Fensterzeigen; //Variable des Zeigertyps(dieser Typ ist in der DLLImp.h definiert).
int Erg;
HINSTANCE DllInstanz = LoadLibrary("dlltest32.dll"); //DLL wird bei Bedarf geladen.

    if (DllInstanz != 0) Fensterzeigen = (TFunktionszeiger*)GetProcAddress(DllInstanz, "Fensterzeigen");
    if (Fensterzeigen != NULL) Fensterzeigen(); //Aufruf der DLL-Funktion.
    else ShowMessage("Dll 'dlltest32.dll' konte nicht gefunden werden! Bitte in das Programmverzeichnis kopieren.");
FreeLibrary(DllInstanz); //..und nach Gebrauch entladen.
}					

1:
2:
3:
4:

function MyFindFirstFileExA(lpFileName: LPCTSTR; 
  fInfoLevelId: TFindexInfoLevels; lpFindFileData: Pointer; 
  fSearchOp: TFindexSearchOps; lpSearchFilter: Pointer; 
  dwAdditionalFlags: DWORD): THandle; stdcall;					

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

#define WINAPI      __stdcall
#define WINBASEAPI DECLSPEC_IMPORT

WINBASEAPI
HANDLE
WINAPI
MyFindFirstFileExA(
    LPCSTR lpFileName,
    FINDEX_INFO_LEVELS fInfoLevelId,
    LPVOID lpFindFileData,
    FINDEX_SEARCH_OPS fSearchOp,
    LPVOID lpSearchFilter,
    DWORD dwAdditionalFlags
    );