Moniteur sous tension ou pas

Version imprimable

24/04/2024, 17h40
Papy214

Moniteur sous tension ou pas

Bonjour

J'ai retrouvé sur le forum un fil de 2005 qui dit qu'il n'est pas pas possible de savoir si un moniteur est "sous tension" ou pas.
Mais aujourd'hui, ça a peut-être changé ?
Pour l'instant je ne trouve rien sur le net à part des méthodes pour allumer ou éteindre un moniteur.
Moi je veux juste savoir si, un moniteur est allumé ou pas.

Une idée ?
24/04/2024, 18h28
SergioMaster

Bonjour, tu as fouillé du côté des WMIs ?

Root/CIMV2/W32DesktopMonitor te dira si (entre autres) le PowerManagement est possible. Après, ...

J'ai trouvé et adapté le code ci-dessous :
Mais il me répond que mes 2 moniteurs sont active = True même si j'en éteins un.
Je vais regarder du côté de la classe W32DesktopMonitor que tu m'indiques.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
 
//-----------------------------------------------------------------------------------------------------
//     This code was generated by the Wmi Delphi Code Creator (WDCC) Version 1.9.9.482
//     http://code.google.com/p/wmi-delphi-code-creator/
//     Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/
//     Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2015
//-----------------------------------------------------------------------------------------------------
//
//     LIABILITY DISCLAIMER
//     THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED.
//     YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS,
//     DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE.
//
//----------------------------------------------------------------------------------------------------
program GestionMoniteurs;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  ActiveX,
  ComObj,
  Variants;
 
 
 
// Monitor ID
 
procedure  GetWmiMonitorIDInfo;
const
  WbemUser            ='';
  WbemPassword        ='';
  WbemComputer        ='localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
  I, J: Integer;
  S: string;
begin;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\WMI', WbemUser, WbemPassword);
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM WmiMonitorID','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    Writeln(Format('Active                    %s',[String(FWbemObject.Active)]));// Boolean
    Writeln(Format('InstanceName              %s',[String(FWbemObject.InstanceName)]));// String
 
    S := '';
    for I := 0 to 15 do
      S := S + Chr(Byte(FWbemObject.ManufacturerName[I]));
    Writeln('ManufacturerName : ' + Trim(S));
 
    S := '';
    for I := 0 to 15 do
      S := S + Chr(Byte(FWbemObject.ProductCodeID[I]));
    Writeln(Trim('ProductCodeID : ' + S));
 
    S := '';
    for I := 0 to 15 do
      S := S + Chr(Byte(FWbemObject.SerialNumberID[I]));
    Writeln(Trim('SerialNumberID : ' + S));
 
 
    S := '';
    J := Integer(FWbemObject.UserFriendlyNameLength);
    for I := 0 to J - 1 do
      S := S + Chr(Byte(FWbemObject.UserFriendlyName[I]));
    Writeln('UserFriendlyName : ' + S);// Array of Uint16
 
    Writeln(Format('WeekOfManufacture         %d',[Integer(FWbemObject.WeekOfManufacture)]));// Uint8
    Writeln(Format('YearOfManufacture         %d',[Integer(FWbemObject.YearOfManufacture)]));// Uint16
 
    Writeln('');
    FWbemObject:=Unassigned;
  end;
end;
 
 
begin
 try
    CoInitialize(nil);
    try
      GetWmiMonitorIDInfo;
    finally
      CoUninitialize;
    end;
 except
    on E:EOleException do
        Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode]));
    on E:Exception do
        Writeln(E.Classname, ':', E.Message);
 end;
 Writeln('Press Enter to exit');
 Readln;
end.

25/04/2024, 07h32
SergioMaster

Tu avais donc bien fouillé les WMIs :ptdr:

Bon, avec le W32DesktopMonitor ça ne renvoie des infos que pour un seul moniteur (alors que 2 sont allumés) et franchement, c'est pas très parlant :-(

Availability 8
Caption Moniteur Plug-and-Play générique
Description Moniteur Plug-and-Play générique
DeviceID DesktopMonitor1
Name Moniteur Plug-and-Play générique
Status OK

Press Enter to exit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
//-----------------------------------------------------------------------------------------------------
//     This code was generated by the Wmi Delphi Code Creator (WDCC) Version 1.9.9.482
//     http://code.google.com/p/wmi-delphi-code-creator/
//     Blog http://theroadtodelphi.wordpress.com/wmi-delphi-code-creator/
//     Author Rodrigo Ruz V. (RRUZ) Copyright (C) 2011-2015 
//----------------------------------------------------------------------------------------------------- 
//
//     LIABILITY DISCLAIMER
//     THIS GENERATED CODE IS DISTRIBUTED "AS IS". NO WARRANTY OF ANY KIND IS EXPRESSED OR IMPLIED.
//     YOU USE IT AT YOUR OWN RISK. THE AUTHOR NOT WILL BE LIABLE FOR DATA LOSS,
//     DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE.
//
//----------------------------------------------------------------------------------------------------
program GetWMI_Info;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  ActiveX,
  ComObj,
  Variants;
 
 
 
// La classe Win32_DesktopMonitor représente le type de moniteur ou périphérique 
// d’affichage attaché au système de l’ordinateur.
 
procedure  GetWin32_DesktopMonitorInfo;
const
  WbemUser            ='';
  WbemPassword        ='';
  WbemComputer        ='localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
begin;
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_DesktopMonitor','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    Writeln(Format('Availability    %d',[Integer(FWbemObject.Availability)]));// Uint16
    Writeln(Format('Caption         %s',[String(FWbemObject.Caption)]));// String
    Writeln(Format('Description     %s',[String(FWbemObject.Description)]));// String
    Writeln(Format('DeviceID        %s',[String(FWbemObject.DeviceID)]));// String
//    Writeln(Format('DisplayType     %d',[Integer(FWbemObject.DisplayType)]));// Uint16
    Writeln(Format('Name            %s',[String(FWbemObject.Name)]));// String
    Writeln(Format('Status          %s',[String(FWbemObject.Status)]));// String
 
    Writeln('');
    FWbemObject:=Unassigned;
  end;
end;
 
 
begin
 try
    CoInitialize(nil);
    try
      GetWin32_DesktopMonitorInfo;
    finally
      CoUninitialize;
    end;
 except
    on E:EOleException do
        Writeln(Format('EOleException %s %x', [E.Message,E.ErrorCode])); 
    on E:Exception do
        Writeln(E.Classname, ':', E.Message);
 end;
 Writeln('Press Enter to exit');
 Readln;      
end.