salut
sous Windows utilise le WMI
1 2 3 4 5 6 7
|
user, Password : String;
user := '';
Password := '';
FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
FWMIService := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', user, Password);
FWbemObjectSet:= FWMIService.ExecQuery(Format('SELECT * FROM Win32_Printer WHERE Name = "%s"',[NomImprimante]),'WQL',0); |
recherche la propriété DetectedErrorState
selon la valeur retourné tu as differentes erreur
( 'Unknown', 'Other', 'No Error', 'Low Paper', 'No Paper', 'Low Toner', 'No Toner', 'Door Open', 'Jammed', 'Offline', 'Service Requested', 'Output Bin Full' );
Partager