Kalde en procedure i en DLL

Hvis det en boolean værdi kan du vil gøre med en simpel if.. then.. else

Stoney

??????

Mere forklaring:

Hvis et eller andet er opfyldt så kaldes Test i DLL1
Hvis noget andet er opfyldt kaldes Test i DLL2

Jeg vil kun have Test erklæret en gang i programmet så det er det der står i 'DLL1.DLL' der skal skiftes ud afhængig af, om det ene eller det andet er opfyldt.

Statisk binding går netop ud på at det laves om til maskinkode ved kompilering. Du har ingen mulighed for at ændre i tekststrengen 'DLL1.DLL' i koden efter kompilering.
Hvis den booleanske variabel kan sættes før kompilering kan du bruge compiler defines, som fx

{$DEFINE LoadNo1}
procedure Test; external {$IFDEF LoadNo1}'DLL1.DLL'{$ELSE}'DLL2.DLL'{$ENDIF}

Ellers kan du vel lave nogle standardprocedurer som sørger for at gøre den dynamiske binding så smertefri som muligt ?!

Load Den dynamisk.

unit DLLUnit;
interface

uses Windows, Forms, Dialogs;
Type
TProc:Procedure; //Proceduren uden navn

Var
Proc:TProc;
Handle:Cardinal;

Procedure LoadDLL(Filename:String);
Begin
    Handle:=LoadLibrary(PChar(Filename));
    if Handle <> 0 then
    begin
    Proc:=TProc(GetProcAddress(Handle, 'Test'));
    if  Not Assigned(Proc) then
    Begin
    Showmessage('Kan ikke Finde procduren');
    Application.Terminate;
    FreeDLL,
    End;
    End
    Else
    Begin
    Showmessage('Kan ikke finde filen');
    FreeDLL;
    End;
End;

Procedure FreDLL;
Begin
    FreeLibrary(Handle);
End;

End.

Mvh. Simon

Som jeg formodede.