ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Verifier l'existance d'un DLL   


L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle

Note des membres
pas de note

Contributions > 05 - API et appels systèmes

Verifier l'existance d'un DLL
# 0000000246
ajouté le 01/10/2005 17:47:44 et modifié le 29/03/2006
consulté 7957 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
Description

Voici comment verifier l'existance (et l'enregistrement) d'un DLL.

Code source :
Declare Integer LoadLibrary In kernel32;
  STRING lpLibFileName

Declare Integer FreeLibrary In kernel32;
  INTEGER hLibModule

?isDLLAvailable('cdosys.dll')
Function isDLLAvailable(DllFilename)
  Local hModule

  hModule = LoadLibrary(DllFilename)
  If hModule > 32 Then
    FreeLibrary(hModule) && Reduire le compte de 1
    lRetval = .T.
  Else
    lRetVal = .F.
  ENDIF
  RETURN lRetVal
Endfunc
Commentaires
Aucun commentaire enregistré ...
Publicité

Les pubs en cours :
www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3