Funktionen i min DLL er:
function GetCompiledDate : string;
begin
result := DateTimeToStr(FileDateToDateTime(Fileage(Application.ExeName)));
end;function GetCompiledDate : string;
begin
result := DateTimeToStr(FileDateToDateTime(Fileage(Application.ExeName)));
end;
og koden til at definere den i min form ser således ud:
function GetCompiledDate: string; external ('kft_kernel.dll');
og for at bruge den skriver jeg så:
Label1.Caption := ('Compiled den: '+GetCompiledDate);
så det er ikke dynamisk
[Redigeret d. 11/05-04 16:56:32 af Kasper Færch Mikkelsen]