Cea mai simpla metoda este sa verifici daca iti apare o eroare la tentativa de instantiere a obiectului. Uite o secventa de cod reala:

THIS.oZip = CREATEOBJECT("dzactxctrl.dzactxctrl.1")

Iar in metoda Error() a clasei interceptez eroarea:

DO CASE
  CASE nError = 1733
  RUN /N regsvr32 /s dzactx.dll
  RETRY
OTHERWISE
  MESSAGEBOX(ALLTRIM(STR(nError)) + ";" + MESSAGE(),48)
ENDCASE

Secventa de mai sus a fost scrisa acum vreo 5 ani, in VFP 6. In VFP8 si 9 poti intercepta eroarea intr-o structura Try...Catch. 1733 este codul erori "ole object not registered" sau cum naiba e textul - stii la ce ma refer.

Iti poate da eroare daca activex-ul are nevoie de ceva fisiere care nu sunt in prealabil inregistrare.

De exemplu: pentru a trimite mailuri din program eu folosesc vbSendMail.dll, care are nevoie de mswinsck.ocx.

Daca nu inregistrez inainte mswinsck.ocx nu pot sa inregistrez vbSendMail.dll.

P.S. Mai exista si pozibilitatea sa nu mearga pe 98 :)

DLL-urile alea NU se inregistreaza. Nu inteleg ce vrei sa spui cu "sunt deja inregistrate"  - alea NU se inregistreaza - regsvr32 nu are efect asupra lor. Ar trebui sa le pui doar in folderul aplicatiei si sa mearga din prima. Ar fi fost bine daca, asa cum astepti si tu de la userii tai, ne-ai fi dat si noua MESAJUL de eroare pe care il primesti, in CONTEXTUL in care apare, in urma CAROR ACTIUNI apare.

Ce naiba? suntem programatori sau ce?