Bonjours

J’aimerais bien savoir comment programmer une condition si Mydll.DLL existe ou pas!

C'est-à-dire si Mydll.DLL n’existe pas ne passe pas par la fonction GEM mais par la fonction EMO

Voici un petit example :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
function GetNo; stdcall; external ‘Mydll.DLL‘;
function GEM: string;
begin
..utilise Mydll.dll … 
..
end;
 
function EMO: string;
begin
…utilise pas Mydll.dll 
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
if  Mydll.DLL -> existe then edit1.text := GEM
else edit1.text :=  EMO;
 
end;
Merci beaucoup pour vos aides
Salutation
Ardely