1 2 3 4 5 6 7 8
| procedure InitDemandeExtDLL(HandleApp: HWND; pSession: Pointer; const szInstance: String; const szSociete, szSite, szAtelier, szLibelleAtelier, szUtilisateur: String);
begin
@InitDemandeExtDLL_ := GetProcAddress(_HandleDLL, 'InitDemandeExtDLL');
if @InitDemandeExtDLL_ = nil then
raise Exception.Create('.Erreur : la procedure ''InitDemandeExtDLL'' de la DLL [DemandeExt.dll] est introuvable !' + #13#10 + SysErrorMessage(GetLastError))
else
InitDemandeExtDLL_(HandleApp, pSession, PChar(szInstance), PChar(szSociete), PChar(szSite), PChar(szAtelier), PChar(szLibelleAtelier), PChar(szUtilisateur));
end; |
Partager