Discussion :

[franckcl]

Bonjour,

Ca fait un moment que je cherche sur internet sans succes.

Je voudrais simplement lire l'état d'une tache qui est dans le planificateur de tache comme on le ferait, par exemple, en ligne de commande:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
schtasks /query /tn "\Microsoft\Windows\Time Synchronization\SynchronizeTime"

Ce qui donne comme résultat:

Folder: \Microsoft\Windows\Time Synchronization
TaskName Next Run Time Status
======================================== ====================== ===============
SynchronizeTime N/A Ready


C'est donc le status "Ready" que je voudrais récupérer.
L'autre solution serait de passer par "shellexecute" avec la commande ci-dessus mais comment lire la sortie du Shellexecute ?

Merci pour vos suggestions.

[SergioMaster]

Bonjour,

Je pencherais pour l'utilisation de WMI la clé root\Microsoft\Windows\TaskScheduler

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure  GetMSFT_ScheduledTaskInfo;
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\Microsoft\Windows\TaskScheduler', WbemUser, WbemPassword);
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM MSFT_ScheduledTask','WQL',wbemFlagForwardOnly); // avec un WHERE approprié

mais non testé et pas sûr que ce soit la bonne clé, c'est peut-être plutôt
root/CIMV2 et la table Win32_SheduledJob

[Lung]

L'autre solution serait de passer par "shellexecute" avec la commande ci-dessus mais comment lire la sortie du Shellexecute ?

Ou un CreateProcess et en récupérant le résultat.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
function TMainForm.GetConsoleText(const szCommande: String): String;
var
   sa: TSecurityAttributes;
   ReadPipe, WritePipe: THandle;
   Start: TStartUpInfo;
   ProcessInfo: TProcessInformation;
   Buffer: Array[0..4096] of AnsiChar;
   BytesRead: DWord;
   bLecture: BOOL;
begin
   Result := '';
   sa.nlength := SizeOf(TSecurityAttributes);
   sa.binherithandle := true;
   sa.lpsecuritydescriptor := nil;
 
   if Createpipe(ReadPipe, WritePipe, @sa, 0) then
   begin
      FillChar(Start, Sizeof(Start), #0);
      Start.cb := SizeOf(Start);
      Start.hStdOutput := WritePipe;
      Start.hStdInput := ReadPipe;
      Start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
      Start.wShowWindow := SW_HIDE;
      if CreateProcess(nil, PChar('cmd.exe /C ' + szCommande), @sa, @sa, True, NORMAL_PRIORITY_CLASS, nil, nil, Start, ProcessInfo) then
      begin
         CloseHandle(WritePipe);
         try
             WaitForSingleObject(ProcessInfo.hProcess, 100);
             Application.ProcessMessages;
            repeat
               BytesRead := 0;
               bLecture := ReadFile(ReadPipe, Buffer[0], 255, BytesRead, nil);
               if BytesRead > 0 then
               begin
                  Buffer[BytesRead] := #0;
                  Result := Result + String(Buffer);
               end;
            until(not bLecture) or (BytesRead = 0);
            WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
         finally
            CloseHandle(ProcessInfo.hProcess);
            CloseHandle(ProcessInfo.hThread);
            CloseHandle(ReadPipe);
         end;
      end;
   end;
end;

[franckcl]

Réponses rapides et efficaces !
Merci à tous et plus particulièrement à Lung pour ton exemple qui fonctionne nickel !

Il me suffit d'effectuer ceci pour récupérer l'état:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Var S : Srting;
Begin
  S := GetConsoleText('schtasks /query /tn "\Microsoft\Windows\Time Synchronization\SynchronizeTime"'); 
// renvoie: '#$D#$A'Folder: \Microsoft\Windows\Time Synchronization' (...)  =='#$D#$A'SynchronizeTime                          N/A                    Ready          '#$D#$A'
  delete(S,1,pos('SynchronizeTime',S)+15); // '                         N/A                    Ready          '#$D#$A
  S:=trim(S); // 'N/A                    Ready'
  while (length(S)>0) and (S[1]<>' ') do delete(S,1,1); // '                    Ready'
  S:=trim(S); // 'Ready'
  ShowMessage(S); // Affiche 'Ready' dans le cas présent
End;