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

function GetDateiDatum(const aName:String):String;
var fh     :THandle;
    fdata  :TWin32FindData;
    ft, wt :TFileTime;
    st     :TSystemTime;
begin 
  Result:='';
  fh:=FindFirstFile(PChar(aName), fdata);
  if (fh<>Invalid_Handle_Value) then 
  begin
    ft:=fdata.ftLastWriteTime;
    FileTimeToLocalFileTime(ft, wt); 
    FileTimeToSystemTime(wt, st);
    with st do Result:=Format('%0.2d.%0.2d.%0.4d', [wDay, wMonth, wYear]);
  end;
  Windows.FindClose(fh);
end;

exports
  GetDateiDatum;
begin                    

1:
2:

function GetDateiDatum(const aName:String):String; 
external 'funcdll.dll';                    

1:
2:
3:

function GetDateiDatum(const aName:String):String; [b]stdcall[/b];
var
// ...                    

1:
2:

function GetDateiDatum(const aName:String):String; [b]stdcall[/b];
external 'funcdll.dll';                    

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

library Project2;

{ Wichtiger Hinweis zur DLL-Speicherverwaltung: ShareMem muß sich in der
  ersten Unit der unit-Klausel der Bibliothek und des Projekts befinden (Projekt-
  Quelltext anzeigen), falls die DLL Prozeduren oder Funktionen exportiert, die
  Strings als Parameter oder Funktionsergebnisse übergeben. Das gilt für alle
  Strings, die von oder an die DLL übergeben werden -- sogar für diejenigen, die
  sich in Records und Klassen befinden. Sharemem ist die Schnittstellen-Unit zur
  Verwaltungs-DLL für gemeinsame Speicherzugriffe, BORLNDMM.DLL.
  Um die Verwendung von BORLNDMM.DLL zu vermeiden, können Sie String-
  Informationen als PChar- oder ShortString-Parameter übergeben. }


uses
  SysUtils,
  Classes;

{$R *.res}

begin
end.