Changeset 2 for trunk/UFormMain.pas

Timestamp:

Jan 14, 2018, 9:18:41 AM (5 years ago)

Author:

chronos

Message:

• Added: Load list of services from Systemd using systemctl command.

Location:

trunk

Files:

• . (modified) (1 prop)
• UFormMain.pas (modified) (11 diffs)

trunk/UFormMain.pas

@@ -24 +24 @@
 
   TSystemProcesses = class(TObjectList)
-
+  end;
+
+  TSystemServiceState = (ssStopped, ssRunning);
+
+  TSystemService = class
+    Name: string;
+    Description: string;
+    State: TSystemServiceState;
+  end;
+
+  TSystemServices = class(TObjectList)
   end;
 
@@ -49 +59 @@
     MenuItem15: TMenuItem;
     MenuItem16: TMenuItem;
+    MenuItem17: TMenuItem;
+    MenuItem18: TMenuItem;
+    MenuItem19: TMenuItem;
     MenuItem2: TMenuItem;
+    MenuItem20: TMenuItem;
+    MenuItem21: TMenuItem;
+    MenuItem22: TMenuItem;
+    MenuItem23: TMenuItem;
+    MenuItem24: TMenuItem;
+    MenuItem25: TMenuItem;
+    MenuItem26: TMenuItem;
+    MenuItem27: TMenuItem;
+    MenuItem28: TMenuItem;
+    MenuItem29: TMenuItem;
     MenuItem3: TMenuItem;
+    MenuItem30: TMenuItem;
+    MenuItem31: TMenuItem;
+    MenuItem32: TMenuItem;
+    MenuItem33: TMenuItem;
+    MenuItem34: TMenuItem;
+    MenuItem35: TMenuItem;
+    MenuItem36: TMenuItem;
+    MenuItem37: TMenuItem;
+    MenuItem38: TMenuItem;
+    MenuItem39: TMenuItem;
     MenuItem4: TMenuItem;
+    MenuItem40: TMenuItem;
     MenuItem5: TMenuItem;
     MenuItem6: TMenuItem;
@@ -61 +95 @@
     PageControl1: TPageControl;
     Panel1: TPanel;
+    PopupMenuProcesses: TPopupMenu;
+    PopupMenuDetails: TPopupMenu;
     PopupMenuTrayIcon: TPopupMenu;
     TabSheet1: TTabSheet;
     TabSheet2: TTabSheet;
     TabSheet3: TTabSheet;
-    Services: TTabSheet;
+    TabSheetServices: TTabSheet;
     TabSheetDetails: TTabSheet;
     TabSheetUsers: TTabSheet;
@@ -80 +116 @@
     procedure ListViewDetailsData(Sender: TObject; Item: TListItem);
     procedure ListViewProcessesData(Sender: TObject; Item: TListItem);
+    procedure ListViewServicesData(Sender: TObject; Item: TListItem);
+    procedure PageControl1Change(Sender: TObject);
     procedure TimerRefreshTimer(Sender: TObject);
+    procedure TrayIcon1Click(Sender: TObject);
   private
     Processes: TSystemProcesses;
+    Services: TSystemServices;
     function Cut(var Text: string; Separator: string): string;
+    procedure ReloadTab;
     procedure ReloadProcessList;
+    procedure ReloadServiceList;
+    function ExecuteAnWaitForOutput(Executable: string; Parameters: array of string): string;
   public
 
@@ -99 +142 @@
   SRunNewTask = 'Run new task';
   SRunNewTaskPrompt = 'Enter name of a program, service, document or resource from the Internet and Windows system will open it.';
+
+  var
+    SystemServiceStatusText: array [TSystemServiceState] of string = ('Running', 'Stopped');
 { TFormMain }
 
@@ -133 +179 @@
 begin
   Processes := TSystemProcesses.Create;
+  Services := TSystemServices.Create;
 end;
 
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
+  Services.Free;
   Processes.Free;
 end;
@@ -142 +190 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
-  TimerRefreshTimer(nil);
+  PageControl1.TabIndex := 0;
+  ReloadTab;
   TimerRefresh.Enabled := True;
 end;
@@ -177 +226 @@
 end;
 
+procedure TFormMain.ListViewServicesData(Sender: TObject; Item: TListItem);
+begin
+  if Item.Index < Services.Count then
+  with TSystemService(Services[Item.Index]) do begin
+    Item.Caption := Name;
+    Item.SubItems.Add('');
+    Item.SubItems.Add(Description);
+    Item.SubItems.Add(SystemServiceStatusText[State]);
+    Item.SubItems.Add('');
+  end;
+end;
+
+procedure TFormMain.PageControl1Change(Sender: TObject);
+begin
+  ReloadTab;
+end;
+
 procedure TFormMain.TimerRefreshTimer(Sender: TObject);
 begin
-  if PageControl1.ActivePage = TabSheetProcesses then begin
-    ReloadProcessList;
-    ListViewProcesses.Items.Count := Processes.Count;
-    ListViewProcesses.Refresh;
-  end;
-  if PageControl1.ActivePage = TabSheetDetails then begin
-    ReloadProcessList;
-    ListViewDetails.Items.Count := Processes.Count;
-    ListViewDetails.Refresh;
-  end;
+  ReloadTab;
+end;
+
+procedure TFormMain.TrayIcon1Click(Sender: TObject);
+begin
+
 end;
 
@@ -202 +264 @@
 end;
 
+procedure TFormMain.ReloadTab;
+begin
+  if PageControl1.ActivePage = TabSheetProcesses then begin
+    ReloadProcessList;
+    ListViewProcesses.Items.Count := Processes.Count;
+    ListViewProcesses.Refresh;
+  end;
+  if PageControl1.ActivePage = TabSheetDetails then begin
+    ReloadProcessList;
+    ListViewDetails.Items.Count := Processes.Count;
+    ListViewDetails.Refresh;
+  end;
+  if PageControl1.ActivePage = TabSheetServices then begin
+    ReloadServiceList;
+    ListViewServices.Items.Count := Services.Count;
+    ListViewServices.Refresh;
+  end;
+end;
+
 procedure TFormMain.ReloadProcessList;
 var
-  Process: TProcess;
   Lines: TStringList;
   I: Integer;
@@ -211 +291 @@
 begin
   Processes.Clear;
-  Process := TProcess.Create(nil);
   Lines := TStringList.Create;
-  with Process do
   try
-    Executable := '/bin/ps';
-    Parameters.Add('auxw');
-    Options := [poNoConsole, poWaitOnExit,  poUsePipes];
-    Execute;
-    Lines.LoadFromStream(Output);
+    Lines.Text := ExecuteAnWaitForOutput('/bin/ps', ['auxw']);
     for I := 1 to Lines.Count - 1 do begin
       Line := Lines[I];
@@ -245 +319 @@
   finally
     Lines.Free;
+  end;
+end;
+
+procedure TFormMain.ReloadServiceList;
+var
+  Process: TProcess;
+  Lines: TStringList;
+  I: Integer;
+  NewService: TSystemService;
+  Line: string;
+  State: string;
+begin
+  Services.Clear;
+  Process := TProcess.Create(nil);
+  Lines := TStringList.Create;
+  try
+    Lines.Text := ExecuteAnWaitForOutput('/bin/systemctl', ['list-units',
+      '--no-pager', '--all', '--plain', '--no-legend']);
+    for I := 0 to Lines.Count - 1 do begin
+      Line := Lines[I];
+      while Pos('  ', Line) > 0 do
+        Line := StringReplace(Line, '  ', ' ', [rfReplaceAll]);
+      NewService := TSystemService.Create;
+      NewService.Name := Cut(Line, ' ');
+      Cut(Line, ' ');
+      Cut(Line, ' ');
+      State := Cut(Line, ' ');
+      if State = 'running' then NewService.State := ssRunning
+        else NewService.State := ssStopped;
+      NewService.Description := Line;
+      Services.Add(NewService);
+    end;
+  finally
+    Lines.Free;
+  end;
+end;
+
+function TFormMain.ExecuteAnWaitForOutput(Executable: string;
+  Parameters: array of string): string;
+var
+  Process: TProcess;
+  OutputStream: TMemoryStream;
+  I: Integer;
+  BytesRead: Integer;
+  Buffer: array[0..2047] of Byte;
+begin
+  Process := TProcess.Create(nil);
+  OutputStream := TMemoryStream.Create;
+  try
+    Process.Executable := Executable;
+    for I := 0 to Length(Parameters) - 1 do
+      Process.Parameters.Add(Parameters[I]);
+    Process.Options := [poNoConsole, poUsePipes];
+    Process.Execute;
+
+    repeat
+      BytesRead := Process.Output.Read(Buffer, Length(Buffer));
+      OutputStream.Write(Buffer, BytesRead)
+    until BytesRead = 0;
+
+    SetLength(Result, OutputStream.Size);
+    if OutputStream.Size > 0 then begin;
+      OutputStream.Position := 0;
+      OutputStream.Read(Result[1], OutputStream.Size);
+    end else Result := '';
+  finally
+    OutputStream.Free;
     Process.Free;
   end;