Avez vous essayé d'utiliser le WbemScripting du code source ? Il y a souvent des différences en fonction des postes.

Bonjour

WMI permet de récupérer les informations sur un PC. On a pas directement access aux périphériques reliés sur celui-ci.
Par contre on peut accéder assez facilement aux imprimantes INSTALLE sur le PC en utilisant la classe "Win32_printers" (elle implémenté dans le composant WMI_Infos) ci-dessus.
Pour les scanners je ne sais pas trop. Je pense qu'en regardant les classes qui nous renseignent sur les ports USB, SCSI, LTP (pour les plus anciens) on devrait pouvoir trouver une info nous permettant de savoir que quelquechose est branché dessus.

En faite Cirec a raison Halt exécute "une fin anormale d'un programme".
C'est la commande que j'utilise quant aprés un temps donné lorsque des threads que j'ai lancé ne répondent plus et que l'utilisateur a requis une fermeture du programme, car dans ce cas ni application.terminate, ni close ne fonctionne, on est obligé de "tuer" l'application.

Pour répondre à  Francky23012301 :
j'utilise la commande Halt :

begin
   Halt(0);
end;

Je ne me souviens pas du message exacte de Windows, mais en gros il me disais que : "Mon appli.exe s'est terminé de façon anormale. Voulez-vous envoyé un rapport d'erreur à microsoft.."

L'utilisation de Halt(..) génére chez moi une erreur windows, je suis obligé de déactivé completement le rapport d'erreur, il semblerait que windows n'aime pas beaucoup cette instruction.

YvesSimon:
D'aprés ce que j'ai vu dans le code et l'explication qu'a donné ekinoxjp, si tu as une passerelle ou un routeur sur l'adresse x.y.z.1 (où x, y,z correspondent aux 3 premiers octects de ton adresse IP) alors la détection du modem sera OK. Par contre suivant la façon dont ton réseau Intranet est structuré (si tu as une connection directe à l'internet via ton réseau Intranet) alors la connection internet fonctionnera aussi.

Salutations.

As-tu fais le test avec le fichier WbemScripting_TLB que j'ai mis dans le zip, car si c'est pas un problème de compatibilité, ca devrait le résoudre.

Je suis désolé de revenir la dessus, mais j'aimerai bien comprendre.
En enregistrant le composant WMI_Infos tu as cette erreur ?
"Violation d'accès à l'adresse 04A15B66 dans le module 'Info_Systeme_w.bpl'. Lecture de l'adresse 00000000"
1) Projet Info_system fermé.
2) Aucune reférence à 'Info_Systeme' dans WMI_Infos
Comment fait-il pour t'afficher cette erreur (Avec 'Info_Systeme.bpl')?
C'est typiquement le genre d'erreur de débordement de pile ou de dépassement mémoire. Un truc qui a pas été initialisé, par exemple, ou un pointeur sur une adresse non valide...

A moins que j'ai mal compris l'ennoncé !!!


Salutations.

Le composant WMI_Infos est indépendant de InfoSystem (je l'ai conçut à l'origine pour un autre projet), je comprends pas ton message d'erreur... Peut-être est-il a moitié installé, esssaye alors de le déinstaller (en général dans le fichier : C:\Program Files\Borland\Delphi7\Lib\dclusr.dpk)

Sur un autre poste ca donne quoi ?

Salutations.

A tu bien récupéré le Wbemscripting_TLB que j'ai mis dans le zip ?
Ensuite essaye d'installer le composant WMI_Info avant de charger le projet.

Salutations.

J'ai ajouté le fichier "WbemScripting_TLB.pas", car il semble que celui qui est importé n'est pas forcément complet. Celui-ci est a copié dans le répertoire : " C:\Program Files\Borland\Delphi7\Imports"

Dans mon WbemScripting_TLB.pas je retrouve dans les type la déclaration suivante:

// Constantes pour enum WbemConnectOptionsEnum
type
  WbemConnectOptionsEnum = TOleEnum;
const
  wbemConnectFlagUseMaxWait = $00000080;