1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| procedure Test.CBTestClick(Sender: TObject);
var
mafonction : Tmafonction;
begin
maDll := lectr.ChargeDll('C:\maDll.dll');
if maDll > 0 then
begin
try
MessageDlg('DLL trouvée et chargée', mtInformation, [mbOK], 0);
@mafonction := GetProcAddress(maDll, 'nomdemafonction');
MessageDlg('mafonction = ' + PChar(@mafonction) , mtInformation, [mbOK], 0);
if @mafonctione <> nil then
begin
MessageDlg('mafonction trouvée', mtInformation, [mbOK], 0);
end
else
begin
MessageDlg('mafonction non trouvée', mtInformation, [mbOK], 0);
end;
finally
lectr.LibereDll(maDll);
end;
end;
end; |
Partager