WebSVN – userdetect2 – Diff – /trunk/UserDetect2/UD2_Main.pas


unit UD2_Main;
 
interface
 
{$IF CompilerVersion >= 25.0}
{$LEGACYIFEND ON}
{$IFEND}
 
{$INCLUDE 'UserDetect2.inc'}
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ValEdit, UD2_Obj, ComCtrls, ImgList, ExtCtrls,
  CommCtrl, Menus, VTSListView, VTSCompat, UD2_PluginStatus, Contnrs,
  System.ImageList;
 
const
  DefaultIniFile = 'UserDetect2.ini';
  DefaultWarnIfNothingMatchesGUI = 'true';
  TagWarnIfNothingMatchesGUI = 'WarnIfNothingMatches.GUI';
  DefaultWarnIfNothingMatchesCLI = 'false';
  TagWarnIfNothingMatchesCLI = 'WarnIfNothingMatches.CLI';
  DefaultCloseAfterLaunching = 'false';
  TagCloseAfterLaunching = 'CloseAfterLaunching';
  TagIcon = 'Icon';
 
type
  TUD2MainForm = class(TForm)
    OpenDialog1: TOpenDialog;
    PageControl1: TPageControl;
    TasksTabSheet: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    IniTemplateMemo: TMemo;
    TabSheet4: TTabSheet;
    TasksListView: TVTSListView;
    TasksImageList: TImageList;
    SaveDialog1: TSaveDialog;
    TabSheet5: TTabSheet;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    LoadedPluginsListView: TVTSListView;
    IdentificationsListView: TVTSListView;
    ErrorsTabSheet: TTabSheet;
    ErrorsMemo: TMemo;
    Memo1: TMemo;
    Panel1: TPanel;
    OpenTDFButton: TButton;
    SaveTDFButton: TButton;
    TasksPopupMenu: TPopupMenu;
    Run1: TMenuItem;
    Properties1: TMenuItem;
    IdentificationsPopupMenu: TPopupMenu;
    CopyTaskDefinitionExample1: TMenuItem;
    Button3: TButton;
    VersionLabel: TLabel;
    LoadedPluginsPopupMenu: TPopupMenu;
    CopyStatusCodeToClipboard: TMenuItem;
    Panel2: TPanel;
    Image2: TImage;
    DynamicTestGroupbox: TGroupBox;
    DynamicTestPluginComboBox: TComboBox;
    DynamicTestPluginLabel: TLabel;
    DynamicTestDataLabel: TLabel;
    DynamicTestDataEdit: TEdit;
    DynamicTestButton: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure TasksListViewDblClick(Sender: TObject);
    procedure TasksListViewKeyPress(Sender: TObject; var Key: Char);
    procedure OpenTDFButtonClick(Sender: TObject);
    procedure SaveTDFButtonClick(Sender: TObject);
    procedure URLLabelClick(Sender: TObject);
    procedure TasksPopupMenuPopup(Sender: TObject);
    procedure Run1Click(Sender: TObject);
    procedure Properties1Click(Sender: TObject);
    procedure IdentificationsPopupMenuPopup(Sender: TObject);
    procedure CopyTaskDefinitionExample1Click(Sender: TObject);
    procedure ListViewCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
    procedure Button3Click(Sender: TObject);
    procedure LoadedPluginsPopupMenuPopup(Sender: TObject);
    procedure CopyStatusCodeToClipboardClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DynamicTestButtonClick(Sender: TObject);
  protected
    ud2: TUD2;
    procedure LoadTaskList;
    procedure LoadDetectedIDs;
    procedure LoadINITemplate;
    procedure LoadLoadedPluginList;
    procedure LoadDynamicPluginList;
    function GetIniFileName: string;
    procedure DoRun(ShortTaskName: string; gui: boolean);
    procedure CheckForErrors;
  public
    procedure Run;
  end;
 
var
  UD2MainForm: TUD2MainForm;
 
implementation
 
{$R *.dfm}
 
uses
  ShellAPI, Clipbrd, Math, AlphaNumSort, UD2_Utils, UD2_TaskProperties, UD2_Parsing;
 
type
  TUD2ListViewEntry = class(TObject)
    ShortTaskName: string;
    CloseAfterLaunching: boolean;
    TaskPropertiesForm: TForm;
  end;
 
function AddIconRecToImageList(rec: TIconFileIdx; ImageList: TImageList): integer;
var
  icon: TIcon;
begin
  icon := TIcon.Create;
  try
    icon.Handle := ExtractIcon(Application.Handle, PChar(rec.FileName), rec.IconIndex);
 
    // result := ImageList.AddIcon(ico);
    result := AddTransparentIconToImageList(ImageList, icon);
  finally
    icon.Free;
  end;
end;
 
{ TUD2MainForm }
 
function TUD2MainForm.GetIniFileName: string;
resourcestring
  LNG_FILE_NOT_FOUND = 'File "%s" not found.';
begin
  if (ParamCount >= 1) and not CheckBoolParam(1, 'C') then
  begin
    if FileExists(ParamStr(1)) then
    begin
      result := ParamStr(1);
    end
    else
    begin
      ExitCode := EXITCODE_INI_NOT_FOUND;
      MessageDlg(Format(LNG_FILE_NOT_FOUND, [ParamStr(1)]), mtError, [mbOK], 0);
      result := '';
    end;
    Exit;
  end
  else
  begin
    if FileExists(DefaultIniFile) then
    begin
      result := DefaultIniFile;
      Exit;
    end;
 
    if FileExists(GetOwnCmdName + '.ini') then
    begin
      result := GetOwnCmdName + '.ini';
      Exit;
    end;
 
    if CompatOpenDialogExecute(OpenDialog1) then
    begin
      result := OpenDialog1.FileName;
      Exit;
    end;
 
    result := '';
    Exit;
  end;
end;
 
procedure TUD2MainForm.LoadTaskList;
var
  sl: TStringList;
  i: integer;
  ShortTaskName, iconString: string;
  iconIndex: integer;
  obj: TUD2ListViewEntry;
begin
  for i := 0 to TasksListView.Items.Count-1 do
  begin
    TUD2ListViewEntry(TasksListView.Items.Item[i].Data).Free;
  end;
  TasksListView.Clear;
 
  sl := TStringList.Create;
  try
    ud2.GetTaskListing(sl);
    for i := 0 to sl.Count-1 do
    begin
      ShortTaskName := sl.Names[i];
 
      Obj := TUD2ListViewEntry.Create;
      Obj.ShortTaskName := ShortTaskName;
      Obj.CloseAfterLaunching := ud2.ReadMetatagBool(ShortTaskName, TagCloseAfterLaunching, DefaultCloseAfterLaunching);
 
      TasksListView.AddItem(sl.Values[ShortTaskName], TObject(Obj));
 
      iconString := ud2.ReadMetatagString(ShortTaskName, TagIcon, '');
      if iconString <> '' then
      begin
        iconIndex := AddIconRecToImageList(SplitIconString(iconString), TasksImageList);
        if iconIndex <> -1 then
        begin
          TasksListView.Items.Item[TasksListView.Items.Count-1].ImageIndex := iconIndex;
        end;
      end;
    end;
  finally
    sl.Free;
  end;
end;
 
procedure TUD2MainForm.DoRun(ShortTaskName: string; gui: boolean);
resourcestring
  LNG_TASK_NOT_EXISTS = 'The task "%s" does not exist in the INI file.';
  LNG_NOTHING_MATCHES = 'No identification string matches to your environment. No application was launched. Please check the Task Definition File.';
var
  i: integer;
  cmds: TUD2CommandArray;
  showMismatchError: boolean;
begin
  if not ud2.TaskExists(ShortTaskName) then
  begin
    // This can happen if the task name is taken from command line
    MessageDlg(Format(LNG_TASK_NOT_EXISTS, [ShortTaskName]), mtError, [mbOK], 0);
    ExitCode := EXITCODE_TASK_NOT_EXISTS;
    Exit;
  end;
 
  SetLength(cmds, 0);
  cmds := ud2.GetCommandList(ShortTaskName); // TODO: What to do with AErrorOut (errors from dynamic queries?)
 
  if gui then
    showMismatchError := ud2.ReadMetatagBool(ShortTaskName, TagWarnIfNothingMatchesGUI, DefaultWarnIfNothingMatchesGUI)
  else
    showMismatchError := ud2.ReadMetatagBool(ShortTaskName, TagWarnIfNothingMatchesCLI, DefaultWarnIfNothingMatchesCLI);
 
  if (Length(cmds) = 0) and showMismatchError then
  begin
    MessageDlg(LNG_NOTHING_MATCHES, mtWarning, [mbOK], 0);
    ExitCode := EXITCODE_TASK_NOTHING_MATCHES;
  end;
 
  for i := Low(cmds) to High(cmds) do
  begin
    UD2_RunCMD(cmds[i]);
  end;
end;
 
procedure TUD2MainForm.FormDestroy(Sender: TObject);
var
  i: integer;
begin
  if Assigned(ud2) then FreeAndNil(ud2);
 
  for i := 0 to TasksListView.Items.Count-1 do
  begin
    TUD2ListViewEntry(TasksListView.Items.Item[i].Data).Free;
  end;
  TasksListView.Clear;
end;
 
procedure TUD2MainForm.CheckForErrors;
begin
  ErrorsTabSheet.TabVisible := ud2.Errors.Count > 0;
  if ErrorsTabSheet.TabVisible then
  begin
    ErrorsMemo.Lines.Assign(ud2.Errors);
    PageControl1.ActivePage := ErrorsTabSheet;
  end;
end;
 
procedure TUD2MainForm.LoadDetectedIDs;
var
  i, j: integer;
  pl: TUD2Plugin;
  ude: TUD2IdentificationEntry;
begin
  IdentificationsListView.Clear;
  for i := 0 to ud2.LoadedPlugins.Count-1 do
  begin
    pl := ud2.LoadedPlugins.Items[i] as TUD2Plugin;
    for j := 0 to pl.DetectedIdentifications.Count-1 do
    begin
      ude := pl.DetectedIdentifications.Items[j] as TUD2IdentificationEntry;
 
      with IdentificationsListView.Items.Add do
      begin
        Data := ude;
        Caption := pl.PluginName;
        if ude.DynamicDataUsed then
          SubItems.Add(ude.DynamicData)
        else
          SubItems.Add('');
        SubItems.Add(pl.IdentificationMethodName);
        SubItems.Add(ude.IdentificationString);
        SubItems.Add(pl.PluginGUIDString)
      end;
    end;
  end;
 
  for i := 0 to IdentificationsListView.Columns.Count-1 do
  begin
    IdentificationsListView.Columns.Items[i].Width := LVSCW_AUTOSIZE_USEHEADER;
  end;
end;
 
procedure TUD2MainForm.LoadINITemplate;
var
  i, j: integer;
  pl: TUD2Plugin;
  ude: TUD2IdentificationEntry;
  idNames: TStringList;
begin
  IniTemplateMemo.Clear;
  IniTemplateMemo.Lines.Add('[ExampleTask1]');
  IniTemplateMemo.Lines.Add('; Optional but recommended');
  IniTemplateMemo.Lines.Add(UD2_TagDescription+'=Run Task #1');
  IniTemplateMemo.Lines.Add('; Warns when no application was launched. Default: false.');
  IniTemplateMemo.Lines.Add(TagWarnIfNothingMatchesGUI+'='+DefaultWarnIfNothingMatchesGUI);
  IniTemplateMemo.Lines.Add(TagWarnIfNothingMatchesCLI+'='+DefaultWarnIfNothingMatchesCLI);
  IniTemplateMemo.Lines.Add('; Optional: IconDLL + IconIndex');
  IniTemplateMemo.Lines.Add(TagIcon+'=%SystemRoot%\system32\Shell32.dll,3');
  IniTemplateMemo.Lines.Add('; Optional: Can be true or false');
  IniTemplateMemo.Lines.Add(TagCloseAfterLaunching+'='+DefaultCloseAfterLaunching);
 
  for i := 0 to ud2.LoadedPlugins.Count-1 do
  begin
    pl := ud2.LoadedPlugins.Items[i] as TUD2Plugin;
    for j := 0 to pl.DetectedIdentifications.Count-1 do
    begin
      ude := pl.DetectedIdentifications.Items[j] as TUD2IdentificationEntry;
      IniTemplateMemo.Lines.Add(Format('; %s', [ude.Plugin.PluginName]));
 
      idNames := TStringList.Create;
      try
        ude.GetIdNames(idNames);
        if idNames.Count >= 1 then
          IniTemplateMemo.Lines.Add(idNames.Strings[0]+'=calc.exe');
      finally
        idNames.Free;
      end;
 
    end;
  end;
end;
 
procedure TUD2MainForm.LoadLoadedPluginList;
resourcestring
  LNG_MS = '%dms';
var
  i: integer;
  pl: TUD2Plugin;
begin
  LoadedPluginsListView.Clear;
  for i := 0 to ud2.LoadedPlugins.Count-1 do
  begin
    pl := ud2.LoadedPlugins.Items[i] as TUD2Plugin;
    with LoadedPluginsListView.Items.Add do
    begin
      Data := pl;
      Caption := pl.PluginDLL;
      SubItems.Add(pl.PluginVendor);
      SubItems.Add(pl.PluginName);
      SubItems.Add(pl.PluginVersion);
      SubItems.Add(pl.IdentificationMethodName);
      if pl.AcceptsDynamicRequests then
        SubItems.Add('Yes')
      else
        SubItems.Add('No');
      SubItems.Add(IntToStr(pl.DetectedIdentifications.Count));
      SubItems.Add(Format(LNG_MS, [Max(1,pl.LoadingTime)])); // at least show 1ms, otherwise it would look unloggical
      SubItems.Add(pl.IdentificationProcedureStatusCodeDescribed);
      SubItems.Add(pl.PluginGUIDString);
    end;
  end;
 
  for i := 0 to LoadedPluginsListView.Columns.Count-1 do
  begin
    LoadedPluginsListView.Columns.Items[i].Width := LVSCW_AUTOSIZE_USEHEADER;
  end;
end;
 
procedure TUD2MainForm.TasksListViewDblClick(Sender: TObject);
var
  obj: TUD2ListViewEntry;
begin
  if TasksListView.ItemIndex = -1 then exit;
  obj := TUD2ListViewEntry(TasksListView.Selected.Data);
  DoRun(obj.ShortTaskName, true);
  if obj.CloseAfterLaunching then Close;
end;
 
procedure TUD2MainForm.TasksListViewKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    TasksListViewDblClick(Sender);
  end;
end;
 
procedure TUD2MainForm.OpenTDFButtonClick(Sender: TObject);
var
  cmd: TUD2Command;
begin
  cmd.executable := ud2.IniFileName;
  cmd.runAsAdmin := false;
  cmd.runInOwnDirectory := false;
  cmd.windowMode := SW_NORMAL;
  UD2_RunCMD(cmd);
end;
 
procedure TUD2MainForm.SaveTDFButtonClick(Sender: TObject);
begin
  if CompatSaveDialogExecute(SaveDialog1) then
  begin
    IniTemplateMemo.Lines.SaveToFile(SaveDialog1.FileName);
  end;
end;
 
procedure TUD2MainForm.URLLabelClick(Sender: TObject);
var
  cmd: TUD2Command;
begin
  cmd.executable := TLabel(Sender).Caption;
  if Pos('@', cmd.executable) > 0 then
    cmd.executable := 'mailto:' + cmd.executable
  else
    cmd.executable := 'http://' + cmd.executable;
 
  cmd.runAsAdmin := false;
  cmd.runInOwnDirectory := false;
  cmd.windowMode := SW_NORMAL;
 
  UD2_RunCMD(cmd);
end;
 
procedure TUD2MainForm.TasksPopupMenuPopup(Sender: TObject);
begin
  Run1.Enabled := TasksListView.ItemIndex <> -1;
  Properties1.Enabled := TasksListView.ItemIndex <> -1;
end;
 
procedure TUD2MainForm.Run1Click(Sender: TObject);
begin
  TasksListViewDblClick(Sender);
end;
 
procedure TUD2MainForm.Properties1Click(Sender: TObject);
var
  obj: TUD2ListViewEntry;
begin
  if TasksListView.ItemIndex = -1 then exit;
  obj := TUD2ListViewEntry(TasksListView.Selected.Data);
  if obj.TaskPropertiesForm = nil then
  begin
    obj.TaskPropertiesForm := TUD2TaskPropertiesForm.Create(Self, ud2, obj.ShortTaskName);
  end;
  obj.TaskPropertiesForm.Show;
end;
 
procedure TUD2MainForm.IdentificationsPopupMenuPopup(Sender: TObject);
begin
  CopyTaskDefinitionExample1.Enabled := IdentificationsListView.ItemIndex <> -1;
end;
 
procedure TUD2MainForm.CopyTaskDefinitionExample1Click(Sender: TObject);
var
  s: string;
  ude: TUD2IdentificationEntry;
begin
  if IdentificationsListView.ItemIndex = -1 then exit;
 
  ude := TUD2IdentificationEntry(IdentificationsListView.Selected.Data);
  s := '; ' + ude.Plugin.PluginName + #13#10 +
       UD2_CondToStr(ude.GetConditionString(false))+'=calc.exe'+#13#10+
       #13#10+
       '; Alternatively:'+#13#10+
       UD2_CondToStr(ude.GetConditionString(true))+'=calc.exe'+#13#10;
 
  Clipboard.AsText := s;
end;
 
procedure TUD2MainForm.ListViewCompare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
var
  ListView: TVTSListView;
begin
  ListView := Sender as TVTSListView;
  if ListView.CurSortedColumn = 0 then
  begin
    Compare := AlphaNumCompare(Item1.Caption, Item2.Caption);
  end
  else
  begin
    Compare := AlphaNumCompare(Item1.SubItems[ListView.CurSortedColumn-1],
                               Item2.SubItems[ListView.CurSortedColumn-1]);
  end;
  if ListView.CurSortedDesc then Compare := -Compare;
end;
 
procedure TUD2MainForm.Button3Click(Sender: TObject);
begin
  VTS_CheckUpdates('userdetect2', VersionLabel.Caption);
end;
 
procedure TUD2MainForm.LoadedPluginsPopupMenuPopup(Sender: TObject);
begin
  CopyStatusCodeToClipboard.Enabled := LoadedPluginsListView.ItemIndex <> -1;
end;
 
procedure TUD2MainForm.CopyStatusCodeToClipboardClick(Sender: TObject);
var
  s: string;
  pl: TUD2Plugin;
begin
  if LoadedPluginsListView.ItemIndex = -1 then exit;
  pl := TUD2Plugin(LoadedPluginsListView.Selected.Data);
  s := (*'; ' +*) pl.IdentificationProcedureStatusCodeDescribed;
  Clipboard.AsText := s;
end;
 
procedure TUD2MainForm.Run;
resourcestring
  LNG_SYNTAX = 'Syntax: %s [TaskDefinitionFile [/T TaskName] | /C IdentificationTerm [Command] | /?]';
var
  LoadedIniFile: string;
begin
  ExitCode := EXITCODE_OK;
 
  if ((ParamCount = 1) and CheckBoolParam(1, '?')) or
     (CheckBoolParam(2, 'T') and (ParamCount > 3)) or
     (CheckBoolParam(1, 'C') and (ParamCount > 3)) or
     (not CheckBoolParam(2, 'T') and not CheckBoolParam(1, 'C') and (ParamCount > 1)) then
  begin
    ExitCode := EXITCODE_SYNTAX_ERROR;
    MessageDlg(Format(LNG_SYNTAX, [GetOwnCmdName]), mtInformation, [mbOK], 0);
 
    Visible := false;
    Close;
    Exit;
  end;
 
  LoadedIniFile := GetIniFileName;
  if LoadedIniFile = '' then
  begin
    Visible := false;
    Close;
    Exit;
  end;
  ud2 := TUD2.Create(LoadedIniFile);
 
  ud2.HandlePluginDir('',        '*.udp');
  ud2.HandlePluginDir('Plugins', '*.udp');
  ud2.HandlePluginDir('Plugins', '*.dll');
 
  if CheckBoolParam(1, 'C') then
  begin
    if ud2.FulfilsEverySubterm(ParamStr(2)) then
    begin
      ExitCode := EXITCODE_OK;
 
      if ParamStr(3) <> '' then
      begin
        UD2_RunCMD(UD2P_DecodeCommand(ParamStr(3)));
      end;
    end
    else
    begin
      ExitCode := EXITCODE_TASK_NOTHING_MATCHES;
    end;
 
    Visible := false;
    Close;
    Exit;
  end
  else if CheckBoolParam(2, 'T') then
  begin
    DoRun(ParamStr(3), false);
 
    Visible := false;
    Close;
    Exit;
  end
  else
  begin
    LoadTaskList;
    LoadDetectedIDs;
    LoadINITemplate;
    LoadLoadedPluginList;
    LoadDynamicPluginList;
    CheckForErrors;
 
    Visible := true;
    Exit;
  end;
end;
 
procedure TUD2MainForm.FormCreate(Sender: TObject);
begin
  // To avoid accidental change of the default tab from the IDE VCL Designer
  PageControl1.ActivePage := TasksTabSheet;
 
  VersionLabel.Caption := GetFileVersion(ParamStr(0));
end;
 
procedure TUD2MainForm.DynamicTestButtonClick(Sender: TObject);
var
  p: TUD2Plugin;
  x: TArrayOfString;
  newStuff: boolean;
  errors: TStrings;
resourcestring
  LNG_DETECTED_DYNAMICS = 'The plugin returned following identification strings:';
  LNG_NOTHING_DETECTED = 'The plugin did not send any identification strings.';
  LNG_STATUS_RETURNED = 'The plugin sent following status in reply to your request:';
  LNG_ERROR_RETURNED = 'The dynamic plugin could not load. The plugin sent following error messages:';
begin
  if DynamicTestPluginComboBox.ItemIndex = -1 then
  begin
    ShowMessage('Please select a plugin that is accepting dynamic requests.');
    Exit;
  end;
 
  p := DynamicTestPluginComboBox.Items.Objects[DynamicTestPluginComboBox.ItemIndex] as TUD2Plugin;
 
  errors := TStringList.Create;
  try
    newStuff := p.InvokeDynamicCheck(DynamicTestDataEdit.Text, errors, x);
    if errors.Count > 0 then
    begin
      ShowMessage(LNG_ERROR_RETURNED + #13#10#13#10 + errors.Text);
      Exit;
    end;
  finally
    FreeAndNil(errors);
  end;
 
  if p.IdentificationProcedureStatusCode.wCategory <> UD2_STATUSCAT_SUCCESS then
  begin
    // e.g. "Not available" because of invalid dynamic input data
    ShowMessage(LNG_STATUS_RETURNED + #13#10#13#10 + p.IdentificationProcedureStatusCodeDescribed);
    Exit;
  end;
 
  if Length(x) > 0 then
    ShowMessage(LNG_DETECTED_DYNAMICS + #13#10#13#10 + MergeString(x, #13#10))
  else
    ShowMessage(LNG_NOTHING_DETECTED);
 
  if newStuff then
  begin
    LoadDetectedIDs;
    LoadINITemplate;
    LoadLoadedPluginList; // To update the "Detected IDs" column
  end;
end;
 
procedure TUD2MainForm.LoadDynamicPluginList;
var
  i: integer;
  p: TUD2Plugin;
begin
  DynamicTestPluginComboBox.Clear;
  for i := 0 to ud2.LoadedPlugins.Count-1 do
  begin
    p := ud2.LoadedPlugins.Items[i] as TUD2Plugin;
    if p.AcceptsDynamicRequests then
    begin
      // TODO: PROBLEM!! Beim Dynamic Check (Dynamic Query) wird der plugin status überschrieben!!!
      DynamicTestPluginComboBox.Items.AddObject(p.PluginName, p);
    end;
  end;
end;
 
end.
 

Rev 94	Rev 95
1	unit UD2_Main;	1	unit UD2_Main;
2		2
3	interface	3	interface
4		4
5	{$IF CompilerVersion >= 25.0}	5	{$IF CompilerVersion >= 25.0}
6	{$LEGACYIFEND ON}	6	{$LEGACYIFEND ON}
7	{$IFEND}	7	{$IFEND}
8		8
9	{$INCLUDE 'UserDetect2.inc'}	9	{$INCLUDE 'UserDetect2.inc'}
10		10
11	uses	11	uses
12	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,	12	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
13	Dialogs, StdCtrls, Grids, ValEdit, UD2_Obj, ComCtrls, ImgList, ExtCtrls,	13	Dialogs, StdCtrls, Grids, ValEdit, UD2_Obj, ComCtrls, ImgList, ExtCtrls,
14	CommCtrl, Menus, VTSListView, VTSCompat, UD2_PluginStatus, Contnrs,	14	CommCtrl, Menus, VTSListView, VTSCompat, UD2_PluginStatus, Contnrs,
15	System.ImageList;	15	System.ImageList;
16		16
17	const	17	const
18	DefaultIniFile = 'UserDetect2.ini';	18	DefaultIniFile = 'UserDetect2.ini';
19	DefaultWarnIfNothingMatchesGUI = 'true';	19	DefaultWarnIfNothingMatchesGUI = 'true';
20	TagWarnIfNothingMatchesGUI = 'WarnIfNothingMatches.GUI';	20	TagWarnIfNothingMatchesGUI = 'WarnIfNothingMatches.GUI';
21	DefaultWarnIfNothingMatchesCLI = 'false';	21	DefaultWarnIfNothingMatchesCLI = 'false';
22	TagWarnIfNothingMatchesCLI = 'WarnIfNothingMatches.CLI';	22	TagWarnIfNothingMatchesCLI = 'WarnIfNothingMatches.CLI';
23	DefaultCloseAfterLaunching = 'false';	23	DefaultCloseAfterLaunching = 'false';
24	TagCloseAfterLaunching = 'CloseAfterLaunching';	24	TagCloseAfterLaunching = 'CloseAfterLaunching';
25	TagIcon = 'Icon';	25	TagIcon = 'Icon';
26		26
27	type	27	type
28	TUD2MainForm = class(TForm)	28	TUD2MainForm = class(TForm)
29	OpenDialog1: TOpenDialog;	29	OpenDialog1: TOpenDialog;
30	PageControl1: TPageControl;	30	PageControl1: TPageControl;
31	TasksTabSheet: TTabSheet;	31	TasksTabSheet: TTabSheet;
32	TabSheet2: TTabSheet;	32	TabSheet2: TTabSheet;
33	TabSheet3: TTabSheet;	33	TabSheet3: TTabSheet;
34	IniTemplateMemo: TMemo;	34	IniTemplateMemo: TMemo;
35	TabSheet4: TTabSheet;	35	TabSheet4: TTabSheet;
36	TasksListView: TVTSListView;	36	TasksListView: TVTSListView;
37	TasksImageList: TImageList;	37	TasksImageList: TImageList;
38	SaveDialog1: TSaveDialog;	38	SaveDialog1: TSaveDialog;
39	TabSheet5: TTabSheet;	39	TabSheet5: TTabSheet;
40	Image1: TImage;	40	Image1: TImage;
41	Label1: TLabel;	41	Label1: TLabel;
42	Label2: TLabel;	42	Label2: TLabel;
43	Label3: TLabel;	43	Label3: TLabel;
44	Label4: TLabel;	44	Label4: TLabel;
45	Label5: TLabel;	45	Label5: TLabel;
46	Label6: TLabel;	46	Label6: TLabel;
47	Label7: TLabel;	47	Label7: TLabel;
48	Label8: TLabel;	48	Label8: TLabel;
49	LoadedPluginsListView: TVTSListView;	49	LoadedPluginsListView: TVTSListView;
50	IdentificationsListView: TVTSListView;	50	IdentificationsListView: TVTSListView;
51	ErrorsTabSheet: TTabSheet;	51	ErrorsTabSheet: TTabSheet;
52	ErrorsMemo: TMemo;	52	ErrorsMemo: TMemo;
53	Memo1: TMemo;	53	Memo1: TMemo;
54	Panel1: TPanel;	54	Panel1: TPanel;
55	OpenTDFButton: TButton;	55	OpenTDFButton: TButton;
56	SaveTDFButton: TButton;	56	SaveTDFButton: TButton;
57	TasksPopupMenu: TPopupMenu;	57	TasksPopupMenu: TPopupMenu;
58	Run1: TMenuItem;	58	Run1: TMenuItem;
59	Properties1: TMenuItem;	59	Properties1: TMenuItem;
60	IdentificationsPopupMenu: TPopupMenu;	60	IdentificationsPopupMenu: TPopupMenu;
61	CopyTaskDefinitionExample1: TMenuItem;	61	CopyTaskDefinitionExample1: TMenuItem;
62	Button3: TButton;	62	Button3: TButton;
63	VersionLabel: TLabel;	63	VersionLabel: TLabel;
64	LoadedPluginsPopupMenu: TPopupMenu;	64	LoadedPluginsPopupMenu: TPopupMenu;
65	CopyStatusCodeToClipboard: TMenuItem;	65	CopyStatusCodeToClipboard: TMenuItem;
66	Panel2: TPanel;	66	Panel2: TPanel;
67	Image2: TImage;	67	Image2: TImage;
68	DynamicTestGroupbox: TGroupBox;	68	DynamicTestGroupbox: TGroupBox;
69	DynamicTestPluginComboBox: TComboBox;	69	DynamicTestPluginComboBox: TComboBox;
70	DynamicTestPluginLabel: TLabel;	70	DynamicTestPluginLabel: TLabel;
71	DynamicTestDataLabel: TLabel;	71	DynamicTestDataLabel: TLabel;
72	DynamicTestDataEdit: TEdit;	72	DynamicTestDataEdit: TEdit;
73	DynamicTestButton: TButton;	73	DynamicTestButton: TButton;
74	procedure FormDestroy(Sender: TObject);	74	procedure FormDestroy(Sender: TObject);
75	procedure TasksListViewDblClick(Sender: TObject);	75	procedure TasksListViewDblClick(Sender: TObject);
76	procedure TasksListViewKeyPress(Sender: TObject; var Key: Char);	76	procedure TasksListViewKeyPress(Sender: TObject; var Key: Char);
77	procedure OpenTDFButtonClick(Sender: TObject);	77	procedure OpenTDFButtonClick(Sender: TObject);
78	procedure SaveTDFButtonClick(Sender: TObject);	78	procedure SaveTDFButtonClick(Sender: TObject);
79	procedure URLLabelClick(Sender: TObject);	79	procedure URLLabelClick(Sender: TObject);
80	procedure TasksPopupMenuPopup(Sender: TObject);	80	procedure TasksPopupMenuPopup(Sender: TObject);
81	procedure Run1Click(Sender: TObject);	81	procedure Run1Click(Sender: TObject);
82	procedure Properties1Click(Sender: TObject);	82	procedure Properties1Click(Sender: TObject);
83	procedure IdentificationsPopupMenuPopup(Sender: TObject);	83	procedure IdentificationsPopupMenuPopup(Sender: TObject);
84	procedure CopyTaskDefinitionExample1Click(Sender: TObject);	84	procedure CopyTaskDefinitionExample1Click(Sender: TObject);
85	procedure ListViewCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);	85	procedure ListViewCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
86	procedure Button3Click(Sender: TObject);	86	procedure Button3Click(Sender: TObject);
87	procedure LoadedPluginsPopupMenuPopup(Sender: TObject);	87	procedure LoadedPluginsPopupMenuPopup(Sender: TObject);
88	procedure CopyStatusCodeToClipboardClick(Sender: TObject);	88	procedure CopyStatusCodeToClipboardClick(Sender: TObject);
89	procedure FormCreate(Sender: TObject);	89	procedure FormCreate(Sender: TObject);
90	procedure DynamicTestButtonClick(Sender: TObject);	90	procedure DynamicTestButtonClick(Sender: TObject);
91	protected	91	protected
92	ud2: TUD2;	92	ud2: TUD2;
93	procedure LoadTaskList;	93	procedure LoadTaskList;
94	procedure LoadDetectedIDs;	94	procedure LoadDetectedIDs;
95	procedure LoadINITemplate;	95	procedure LoadINITemplate;
96	procedure LoadLoadedPluginList;	96	procedure LoadLoadedPluginList;
97	procedure LoadDynamicPluginList;	97	procedure LoadDynamicPluginList;
98	function GetIniFileName: string;	98	function GetIniFileName: string;
99	procedure DoRun(ShortTaskName: string; gui: boolean);	99	procedure DoRun(ShortTaskName: string; gui: boolean);
100	procedure CheckForErrors;	100	procedure CheckForErrors;
101	public	101	public
102	procedure Run;	102	procedure Run;
103	end;	103	end;
104		104
105	var	105	var
106	UD2MainForm: TUD2MainForm;	106	UD2MainForm: TUD2MainForm;
107		107
108	implementation	108	implementation
109		109
110	{$R *.dfm}	110	{$R *.dfm}
111		111
112	uses	112	uses
113	ShellAPI, Clipbrd, Math, AlphaNumSort, UD2_Utils, UD2_TaskProperties, UD2_Parsing;	113	ShellAPI, Clipbrd, Math, AlphaNumSort, UD2_Utils, UD2_TaskProperties, UD2_Parsing;
114		114
115	type	115	type
116	TUD2ListViewEntry = class(TObject)	116	TUD2ListViewEntry = class(TObject)
117	ShortTaskName: string;	117	ShortTaskName: string;
118	CloseAfterLaunching: boolean;	118	CloseAfterLaunching: boolean;
119	TaskPropertiesForm: TForm;	119	TaskPropertiesForm: TForm;
120	end;	120	end;
121		121
122	function AddIconRecToImageList(rec: TIconFileIdx; ImageList: TImageList): integer;	122	function AddIconRecToImageList(rec: TIconFileIdx; ImageList: TImageList): integer;
123	var	123	var
124	icon: TIcon;	124	icon: TIcon;
125	begin	125	begin
126	icon := TIcon.Create;	126	icon := TIcon.Create;
127	try	127	try
128	icon.Handle := ExtractIcon(Application.Handle, PChar(rec.FileName), rec.IconIndex);	128	icon.Handle := ExtractIcon(Application.Handle, PChar(rec.FileName), rec.IconIndex);
129		129
130	// result := ImageList.AddIcon(ico);	130	// result := ImageList.AddIcon(ico);
131	result := AddTransparentIconToImageList(ImageList, icon);	131	result := AddTransparentIconToImageList(ImageList, icon);
132	finally	132	finally
133	icon.Free;	133	icon.Free;
134	end;	134	end;
135	end;	135	end;
136		136
137	{ TUD2MainForm }	137	{ TUD2MainForm }
138		138
139	function TUD2MainForm.GetIniFileName: string;	139	function TUD2MainForm.GetIniFileName: string;
140	resourcestring	140	resourcestring
141	LNG_FILE_NOT_FOUND = 'File "%s" not found.';	141	LNG_FILE_NOT_FOUND = 'File "%s" not found.';
142	begin	142	begin
143	if (ParamCount >= 1) and not CheckBoolParam(1, 'C') then	143	if (ParamCount >= 1) and not CheckBoolParam(1, 'C') then
144	begin	144	begin
145	if FileExists(ParamStr(1)) then	145	if FileExists(ParamStr(1)) then
146	begin	146	begin
147	result := ParamStr(1);	147	result := ParamStr(1);
148	end	148	end
149	else	149	else
150	begin	150	begin
151	ExitCode := EXITCODE_INI_NOT_FOUND;	151	ExitCode := EXITCODE_INI_NOT_FOUND;
152	MessageDlg(Format(LNG_FILE_NOT_FOUND, [ParamStr(1)]), mtError, [mbOK], 0);	152	MessageDlg(Format(LNG_FILE_NOT_FOUND, [ParamStr(1)]), mtError, [mbOK], 0);
153	result := '';	153	result := '';
154	end;	154	end;
155	Exit;	155	Exit;
156	end	156	end
157	else	157	else
158	begin	158	begin
159	if FileExists(DefaultIniFile) then	159	if FileExists(DefaultIniFile) then
160	begin	160	begin
161	result := DefaultIniFile;	161	result := DefaultIniFile;
162	Exit;	162	Exit;
163	end;	163	end;
164		164
165	if FileExists(GetOwnCmdName + '.ini') then	165	if FileExists(GetOwnCmdName + '.ini') then
166	begin	166	begin
167	result := GetOwnCmdName + '.ini';	167	result := GetOwnCmdName + '.ini';
168	Exit;	168	Exit;
169	end;	169	end;
170		170
171	if CompatOpenDialogExecute(OpenDialog1) then	171	if CompatOpenDialogExecute(OpenDialog1) then
172	begin	172	begin
173	result := OpenDialog1.FileName;	173	result := OpenDialog1.FileName;
174	Exit;	174	Exit;
175	end;	175	end;
176		176
177	result := '';	177	result := '';
178	Exit;	178	Exit;
179	end;	179	end;
180	end;	180	end;
181		181
182	procedure TUD2MainForm.LoadTaskList;	182	procedure TUD2MainForm.LoadTaskList;
183	var	183	var
184	sl: TStringList;	184	sl: TStringList;
185	i: integer;	185	i: integer;
186	ShortTaskName, iconString: string;	186	ShortTaskName, iconString: string;
187	iconIndex: integer;	187	iconIndex: integer;
188	obj: TUD2ListViewEntry;	188	obj: TUD2ListViewEntry;
189	begin	189	begin
190	for i := 0 to TasksListView.Items.Count-1 do	190	for i := 0 to TasksListView.Items.Count-1 do
191	begin	191	begin
192	TUD2ListViewEntry(TasksListView.Items.Item[i].Data).Free;	192	TUD2ListViewEntry(TasksListView.Items.Item[i].Data).Free;
193	end;	193	end;
194	TasksListView.Clear;	194	TasksListView.Clear;
195		195
196	sl := TStringList.Create;	196	sl := TStringList.Create;
197	try	197	try
198	ud2.GetTaskListing(sl);	198	ud2.GetTaskListing(sl);
199	for i := 0 to sl.Count-1 do	199	for i := 0 to sl.Count-1 do
200	begin	200	begin
201	ShortTaskName := sl.Names[i];	201	ShortTaskName := sl.Names[i];
202		202
203	Obj := TUD2ListViewEntry.Create;	203	Obj := TUD2ListViewEntry.Create;
204	Obj.ShortTaskName := ShortTaskName;	204	Obj.ShortTaskName := ShortTaskName;
205	Obj.CloseAfterLaunching := ud2.ReadMetatagBool(ShortTaskName, TagCloseAfterLaunching, DefaultCloseAfterLaunching);	205	Obj.CloseAfterLaunching := ud2.ReadMetatagBool(ShortTaskName, TagCloseAfterLaunching, DefaultCloseAfterLaunching);
206		206
207	TasksListView.AddItem(sl.Values[ShortTaskName], TObject(Obj));	207	TasksListView.AddItem(sl.Values[ShortTaskName], TObject(Obj));
208		208
209	iconString := ud2.ReadMetatagString(ShortTaskName, TagIcon, '');	209	iconString := ud2.ReadMetatagString(ShortTaskName, TagIcon, '');
210	if iconString <> '' then	210	if iconString <> '' then
211	begin	211	begin
212	iconIndex := AddIconRecToImageList(SplitIconString(iconString), TasksImageList);	212	iconIndex := AddIconRecToImageList(SplitIconString(iconString), TasksImageList);
213	if iconIndex <> -1 then	213	if iconIndex <> -1 then
214	begin	214	begin
215	TasksListView.Items.Item[TasksListView.Items.Count-1].ImageIndex := iconIndex;	215	TasksListView.Items.Item[TasksListView.Items.Count-1].ImageIndex := iconIndex;
216	end;	216	end;
217	end;	217	end;
218	end;	218	end;
219	finally	219	finally
220	sl.Free;	220	sl.Free;
221	end;	221	end;
222	end;	222	end;
223		223
224	procedure TUD2MainForm.DoRun(ShortTaskName: string; gui: boolean);	224	procedure TUD2MainForm.DoRun(ShortTaskName: string; gui: boolean);
225	resourcestring	225	resourcestring
226	LNG_TASK_NOT_EXISTS = 'The task "%s" does not exist in the INI file.';	226	LNG_TASK_NOT_EXISTS = 'The task "%s" does not exist in the INI file.';
227	LNG_NOTHING_MATCHES = 'No identification string matches to your environment. No application was launched. Please check the Task Definition File.';	227	LNG_NOTHING_MATCHES = 'No identification string matches to your environment. No application was launched. Please check the Task Definition File.';
228	var	228	var
229	i: integer;	229	i: integer;
230	cmds: TUD2CommandArray;	230	cmds: TUD2CommandArray;
231	showMismatchError: boolean;	231	showMismatchError: boolean;
232	begin	232	begin
233	if not ud2.TaskExists(ShortTaskName) then	233	if not ud2.TaskExists(ShortTaskName) then
234	begin	234	begin
235	// This can happen if the task name is taken from command line	235	// This can happen if the task name is taken from command line
236	MessageDlg(Format(LNG_TASK_NOT_EXISTS, [ShortTaskName]), mtError, [mbOK], 0);	236	MessageDlg(Format(LNG_TASK_NOT_EXISTS, [ShortTaskName]), mtError, [mbOK], 0);
237	ExitCode := EXITCODE_TASK_NOT_EXISTS;	237	ExitCode := EXITCODE_TASK_NOT_EXISTS;
238	Exit;	238	Exit;
239	end;	239	end;
240		240
241	SetLength(cmds, 0);	241	SetLength(cmds, 0);
242	cmds := ud2.GetCommandList(ShortTaskName); // TODO: What to do with AErrorOut (errors from dynamic queries?)	242	cmds := ud2.GetCommandList(ShortTaskName); // TODO: What to do with AErrorOut (errors from dynamic queries?)
243		243
244	if gui then	244	if gui then
245	showMismatchError := ud2.ReadMetatagBool(ShortTaskName, TagWarnIfNothingMatchesGUI, DefaultWarnIfNothingMatchesGUI)	245	showMismatchError := ud2.ReadMetatagBool(ShortTaskName, TagWarnIfNothingMatchesGUI, DefaultWarnIfNothingMatchesGUI)
246	else	246	else
247	showMismatchError := ud2.ReadMetatagBool(ShortTaskName, TagWarnIfNothingMatchesCLI, DefaultWarnIfNothingMatchesCLI);	247	showMismatchError := ud2.ReadMetatagBool(ShortTaskName, TagWarnIfNothingMatchesCLI, DefaultWarnIfNothingMatchesCLI);
248		248
249	if (Length(cmds) = 0) and showMismatchError then	249	if (Length(cmds) = 0) and showMismatchError then
250	begin	250	begin
251	MessageDlg(LNG_NOTHING_MATCHES, mtWarning, [mbOK], 0);	251	MessageDlg(LNG_NOTHING_MATCHES, mtWarning, [mbOK], 0);
252	ExitCode := EXITCODE_TASK_NOTHING_MATCHES;	252	ExitCode := EXITCODE_TASK_NOTHING_MATCHES;
253	end;	253	end;
254		254
255	for i := Low(cmds) to High(cmds) do	255	for i := Low(cmds) to High(cmds) do
256	begin	256	begin
257	UD2_RunCMD(cmds[i]);	257	UD2_RunCMD(cmds[i]);
258	end;	258	end;
259	end;	259	end;
260		260
261	procedure TUD2MainForm.FormDestroy(Sender: TObject);	261	procedure TUD2MainForm.FormDestroy(Sender: TObject);
262	var	262	var
263	i: integer;	263	i: integer;
264	begin	264	begin
265	if Assigned(ud2) then FreeAndNil(ud2);	265	if Assigned(ud2) then FreeAndNil(ud2);
266		266
267	for i := 0 to TasksListView.Items.Count-1 do	267	for i := 0 to TasksListView.Items.Count-1 do
268	begin	268	begin
269	TUD2ListViewEntry(TasksListView.Items.Item[i].Data).Free;	269	TUD2ListViewEntry(TasksListView.Items.Item[i].Data).Free;
270	end;	270	end;
271	TasksListView.Clear;	271	TasksListView.Clear;
272	end;	272	end;
273		273
274	procedure TUD2MainForm.CheckForErrors;	274	procedure TUD2MainForm.CheckForErrors;
275	begin	275	begin
276	ErrorsTabSheet.TabVisible := ud2.Errors.Count > 0;	276	ErrorsTabSheet.TabVisible := ud2.Errors.Count > 0;
277	if ErrorsTabSheet.TabVisible then	277	if ErrorsTabSheet.TabVisible then
278	begin	278	begin
279	ErrorsMemo.Lines.Assign(ud2.Errors);	279	ErrorsMemo.Lines.Assign(ud2.Errors);
280	PageControl1.ActivePage := ErrorsTabSheet;	280	PageControl1.ActivePage := ErrorsTabSheet;
281	end;	281	end;
282	end;	282	end;
283		283
284	procedure TUD2MainForm.LoadDetectedIDs;	284	procedure TUD2MainForm.LoadDetectedIDs;
285	var	285	var
286	i, j: integer;	286	i, j: integer;
287	pl: TUD2Plugin;	287	pl: TUD2Plugin;
288	ude: TUD2IdentificationEntry;	288	ude: TUD2IdentificationEntry;
289	begin	289	begin
290	IdentificationsListView.Clear;	290	IdentificationsListView.Clear;
291	for i := 0 to ud2.LoadedPlugins.Count-1 do	291	for i := 0 to ud2.LoadedPlugins.Count-1 do
292	begin	292	begin
293	pl := ud2.LoadedPlugins.Items[i] as TUD2Plugin;	293	pl := ud2.LoadedPlugins.Items[i] as TUD2Plugin;
294	for j := 0 to pl.DetectedIdentifications.Count-1 do	294	for j := 0 to pl.DetectedIdentifications.Count-1 do
295	begin	295	begin
296	ude := pl.DetectedIdentifications.Items[j] as TUD2IdentificationEntry;	296	ude := pl.DetectedIdentifications.Items[j] as TUD2IdentificationEntry;
297		297
298	with IdentificationsListView.Items.Add do	298	with IdentificationsListView.Items.Add do
299	begin	299	begin
300	Data := ude;	300	Data := ude;
301	Caption := pl.PluginName;	301	Caption := pl.PluginName;
302	if ude.DynamicDataUsed then	302	if ude.DynamicDataUsed then
303	SubItems.Add(ude.DynamicData)	303	SubItems.Add(ude.DynamicData)
304	else	304	else
305	SubItems.Add('');	305	SubItems.Add('');
306	SubItems.Add(pl.IdentificationMethodName);	306	SubItems.Add(pl.IdentificationMethodName);
307	SubItems.Add(ude.IdentificationString);	307	SubItems.Add(ude.IdentificationString);
308	SubItems.Add(pl.PluginGUIDString)	308	SubItems.Add(pl.PluginGUIDString)
309	end;	309	end;
310	end;	310	end;
311	end;	311	end;
312		312
313	for i := 0 to IdentificationsListView.Columns.Count-1 do	313	for i := 0 to IdentificationsListView.Columns.Count-1 do
314	begin	314	begin
315	IdentificationsListView.Columns.Items[i].Width := LVSCW_AUTOSIZE_USEHEADER;	315	IdentificationsListView.Columns.Items[i].Width := LVSCW_AUTOSIZE_USEHEADER;
316	end;	316	end;
317	end;	317	end;
318		318
319	procedure TUD2MainForm.LoadINITemplate;	319	procedure TUD2MainForm.LoadINITemplate;
320	var	320	var
321	i, j: integer;	321	i, j: integer;
322	pl: TUD2Plugin;	322	pl: TUD2Plugin;
323	ude: TUD2IdentificationEntry;	323	ude: TUD2IdentificationEntry;
324	idNames: TStringList;	324	idNames: TStringList;
325	begin	325	begin
326	IniTemplateMemo.Clear;	326	IniTemplateMemo.Clear;
327	IniTemplateMemo.Lines.Add('[ExampleTask1]');	327	IniTemplateMemo.Lines.Add('[ExampleTask1]');
328	IniTemplateMemo.Lines.Add('; Optional but recommended');	328	IniTemplateMemo.Lines.Add('; Optional but recommended');
329	IniTemplateMemo.Lines.Add(UD2_TagDescription+'=Run Task #1');	329	IniTemplateMemo.Lines.Add(UD2_TagDescription+'=Run Task #1');
330	IniTemplateMemo.Lines.Add('; Warns when no application was launched. Default: false.');	330	IniTemplateMemo.Lines.Add('; Warns when no application was launched. Default: false.');
331	IniTemplateMemo.Lines.Add(TagWarnIfNothingMatchesGUI+'='+DefaultWarnIfNothingMatchesGUI);	331	IniTemplateMemo.Lines.Add(TagWarnIfNothingMatchesGUI+'='+DefaultWarnIfNothingMatchesGUI);
332	IniTemplateMemo.Lines.Add(TagWarnIfNothingMatchesCLI+'='+DefaultWarnIfNothingMatchesCLI);	332	IniTemplateMemo.Lines.Add(TagWarnIfNothingMatchesCLI+'='+DefaultWarnIfNothingMatchesCLI);
333	IniTemplateMemo.Lines.Add('; Optional: IconDLL + IconIndex');	333	IniTemplateMemo.Lines.Add('; Optional: IconDLL + IconIndex');
334	IniTemplateMemo.Lines.Add(TagIcon+'=%SystemRoot%\system32\Shell32.dll,3');	334	IniTemplateMemo.Lines.Add(TagIcon+'=%SystemRoot%\system32\Shell32.dll,3');
335	IniTemplateMemo.Lines.Add('; Optional: Can be true or false');	335	IniTemplateMemo.Lines.Add('; Optional: Can be true or false');
336	IniTemplateMemo.Lines.Add(TagCloseAfterLaunching+'='+DefaultCloseAfterLaunching);	336	IniTemplateMemo.Lines.Add(TagCloseAfterLaunching+'='+DefaultCloseAfterLaunching);
337		337
338	for i := 0 to ud2.LoadedPlugins.Count-1 do	338	for i := 0 to ud2.LoadedPlugins.Count-1 do
339	begin	339	begin
340	pl := ud2.LoadedPlugins.Items[i] as TUD2Plugin;	340	pl := ud2.LoadedPlugins.Items[i] as TUD2Plugin;
341	for j := 0 to pl.DetectedIdentifications.Count-1 do	341	for j := 0 to pl.DetectedIdentifications.Count-1 do
342	begin	342	begin
343	ude := pl.DetectedIdentifications.Items[j] as TUD2IdentificationEntry;	343	ude := pl.DetectedIdentifications.Items[j] as TUD2IdentificationEntry;
344	IniTemplateMemo.Lines.Add(Format('; %s', [ude.Plugin.PluginName]));	344	IniTemplateMemo.Lines.Add(Format('; %s', [ude.Plugin.PluginName]));
345		345
346	idNames := TStringList.Create;	346	idNames := TStringList.Create;
347	try	347	try
348	ude.GetIdNames(idNames);	348	ude.GetIdNames(idNames);
349	if idNames.Count >= 1 then	349	if idNames.Count >= 1 then
350	IniTemplateMemo.Lines.Add(idNames.Strings[0]+'=calc.exe');	350	IniTemplateMemo.Lines.Add(idNames.Strings[0]+'=calc.exe');
351	finally	351	finally
352	idNames.Free;	352	idNames.Free;
353	end;	353	end;
354		354
355	end;	355	end;
356	end;	356	end;
357	end;	357	end;
358		358
359	procedure TUD2MainForm.LoadLoadedPluginList;	359	procedure TUD2MainForm.LoadLoadedPluginList;
360	resourcestring	360	resourcestring
361	LNG_MS = '%dms';	361	LNG_MS = '%dms';
362	var	362	var
363	i: integer;	363	i: integer;
364	pl: TUD2Plugin;	364	pl: TUD2Plugin;
365	begin	365	begin
366	LoadedPluginsListView.Clear;	366	LoadedPluginsListView.Clear;
367	for i := 0 to ud2.LoadedPlugins.Count-1 do	367	for i := 0 to ud2.LoadedPlugins.Count-1 do
368	begin	368	begin
369	pl := ud2.LoadedPlugins.Items[i] as TUD2Plugin;	369	pl := ud2.LoadedPlugins.Items[i] as TUD2Plugin;
370	with LoadedPluginsListView.Items.Add do	370	with LoadedPluginsListView.Items.Add do
371	begin	371	begin
372	Data := pl;	372	Data := pl;
373	Caption := pl.PluginDLL;	373	Caption := pl.PluginDLL;
374	SubItems.Add(pl.PluginVendor);	374	SubItems.Add(pl.PluginVendor);
375	SubItems.Add(pl.PluginName);	375	SubItems.Add(pl.PluginName);
376	SubItems.Add(pl.PluginVersion);	376	SubItems.Add(pl.PluginVersion);
377	SubItems.Add(pl.IdentificationMethodName);	377	SubItems.Add(pl.IdentificationMethodName);
378	if pl.AcceptsDynamicRequests then	378	if pl.AcceptsDynamicRequests then
379	SubItems.Add('Yes')	379	SubItems.Add('Yes')
380	else	380	else
381	SubItems.Add('No');	381	SubItems.Add('No');
382	SubItems.Add(IntToStr(pl.DetectedIdentifications.Count));	382	SubItems.Add(IntToStr(pl.DetectedIdentifications.Count));
383	SubItems.Add(Format(LNG_MS, [Max(1,pl.LoadingTime)])); // at least show 1ms, otherwise it would look unloggical	383	SubItems.Add(Format(LNG_MS, [Max(1,pl.LoadingTime)])); // at least show 1ms, otherwise it would look unloggical
384	SubItems.Add(pl.IdentificationProcedureStatusCodeDescribed);	384	SubItems.Add(pl.IdentificationProcedureStatusCodeDescribed);
385	SubItems.Add(pl.PluginGUIDString);	385	SubItems.Add(pl.PluginGUIDString);
386	end;	386	end;
387	end;	387	end;
388		388
389	for i := 0 to LoadedPluginsListView.Columns.Count-1 do	389	for i := 0 to LoadedPluginsListView.Columns.Count-1 do
390	begin	390	begin
391	LoadedPluginsListView.Columns.Items[i].Width := LVSCW_AUTOSIZE_USEHEADER;	391	LoadedPluginsListView.Columns.Items[i].Width := LVSCW_AUTOSIZE_USEHEADER;
392	end;	392	end;
393	end;	393	end;
394		394
395	procedure TUD2MainForm.TasksListViewDblClick(Sender: TObject);	395	procedure TUD2MainForm.TasksListViewDblClick(Sender: TObject);
396	var	396	var
397	obj: TUD2ListViewEntry;	397	obj: TUD2ListViewEntry;
398	begin	398	begin
399	if TasksListView.ItemIndex = -1 then exit;	399	if TasksListView.ItemIndex = -1 then exit;
400	obj := TUD2ListViewEntry(TasksListView.Selected.Data);	400	obj := TUD2ListViewEntry(TasksListView.Selected.Data);
401	DoRun(obj.ShortTaskName, true);	401	DoRun(obj.ShortTaskName, true);
402	if obj.CloseAfterLaunching then Close;	402	if obj.CloseAfterLaunching then Close;
403	end;	403	end;
404		404
405	procedure TUD2MainForm.TasksListViewKeyPress(Sender: TObject; var Key: Char);	405	procedure TUD2MainForm.TasksListViewKeyPress(Sender: TObject; var Key: Char);
406	begin	406	begin
407	if Key = #13 then	407	if Key = #13 then
408	begin	408	begin
409	TasksListViewDblClick(Sender);	409	TasksListViewDblClick(Sender);
410	end;	410	end;
411	end;	411	end;
412		412
413	procedure TUD2MainForm.OpenTDFButtonClick(Sender: TObject);	413	procedure TUD2MainForm.OpenTDFButtonClick(Sender: TObject);
414	var	414	var
415	cmd: TUD2Command;	415	cmd: TUD2Command;
416	begin	416	begin
417	cmd.executable := ud2.IniFileName;	417	cmd.executable := ud2.IniFileName;
418	cmd.runAsAdmin := false;	418	cmd.runAsAdmin := false;
419	cmd.runInOwnDirectory := false;	419	cmd.runInOwnDirectory := false;
420	cmd.windowMode := SW_NORMAL;	420	cmd.windowMode := SW_NORMAL;
421	UD2_RunCMD(cmd);	421	UD2_RunCMD(cmd);
422	end;	422	end;
423		423
424	procedure TUD2MainForm.SaveTDFButtonClick(Sender: TObject);	424	procedure TUD2MainForm.SaveTDFButtonClick(Sender: TObject);
425	begin	425	begin
426	if CompatSaveDialogExecute(SaveDialog1) then	426	if CompatSaveDialogExecute(SaveDialog1) then
427	begin	427	begin
428	IniTemplateMemo.Lines.SaveToFile(SaveDialog1.FileName);	428	IniTemplateMemo.Lines.SaveToFile(SaveDialog1.FileName);
429	end;	429	end;
430	end;	430	end;
431		431
432	procedure TUD2MainForm.URLLabelClick(Sender: TObject);	432	procedure TUD2MainForm.URLLabelClick(Sender: TObject);
433	var	433	var
434	cmd: TUD2Command;	434	cmd: TUD2Command;
435	begin	435	begin
436	cmd.executable := TLabel(Sender).Caption;	436	cmd.executable := TLabel(Sender).Caption;
437	if Pos('@', cmd.executable) > 0 then	437	if Pos('@', cmd.executable) > 0 then
438	cmd.executable := 'mailto:' + cmd.executable	438	cmd.executable := 'mailto:' + cmd.executable
439	else	439	else
440	cmd.executable := 'http://' + cmd.executable;	440	cmd.executable := 'http://' + cmd.executable;
441		441
442	cmd.runAsAdmin := false;	442	cmd.runAsAdmin := false;
443	cmd.runInOwnDirectory := false;	443	cmd.runInOwnDirectory := false;
444	cmd.windowMode := SW_NORMAL;	444	cmd.windowMode := SW_NORMAL;
445		445
446	UD2_RunCMD(cmd);	446	UD2_RunCMD(cmd);
447	end;	447	end;
448		448
449	procedure TUD2MainForm.TasksPopupMenuPopup(Sender: TObject);	449	procedure TUD2MainForm.TasksPopupMenuPopup(Sender: TObject);
450	begin	450	begin
451	Run1.Enabled := TasksListView.ItemIndex <> -1;	451	Run1.Enabled := TasksListView.ItemIndex <> -1;
452	Properties1.Enabled := TasksListView.ItemIndex <> -1;	452	Properties1.Enabled := TasksListView.ItemIndex <> -1;
453	end;	453	end;
454		454
455	procedure TUD2MainForm.Run1Click(Sender: TObject);	455	procedure TUD2MainForm.Run1Click(Sender: TObject);
456	begin	456	begin
457	TasksListViewDblClick(Sender);	457	TasksListViewDblClick(Sender);
458	end;	458	end;
459		459
460	procedure TUD2MainForm.Properties1Click(Sender: TObject);	460	procedure TUD2MainForm.Properties1Click(Sender: TObject);
461	var	461	var
462	obj: TUD2ListViewEntry;	462	obj: TUD2ListViewEntry;
463	begin	463	begin
464	if TasksListView.ItemIndex = -1 then exit;	464	if TasksListView.ItemIndex = -1 then exit;
465	obj := TUD2ListViewEntry(TasksListView.Selected.Data);	465	obj := TUD2ListViewEntry(TasksListView.Selected.Data);
466	if obj.TaskPropertiesForm = nil then	466	if obj.TaskPropertiesForm = nil then
467	begin	467	begin
468	obj.TaskPropertiesForm := TUD2TaskPropertiesForm.Create(Self, ud2, obj.ShortTaskName);	468	obj.TaskPropertiesForm := TUD2TaskPropertiesForm.Create(Self, ud2, obj.ShortTaskName);
469	end;	469	end;
470	obj.TaskPropertiesForm.Show;	470	obj.TaskPropertiesForm.Show;
471	end;	471	end;
472		472
473	procedure TUD2MainForm.IdentificationsPopupMenuPopup(Sender: TObject);	473	procedure TUD2MainForm.IdentificationsPopupMenuPopup(Sender: TObject);
474	begin	474	begin
475	CopyTaskDefinitionExample1.Enabled := IdentificationsListView.ItemIndex <> -1;	475	CopyTaskDefinitionExample1.Enabled := IdentificationsListView.ItemIndex <> -1;
476	end;	476	end;
477		477
478	procedure TUD2MainForm.CopyTaskDefinitionExample1Click(Sender: TObject);	478	procedure TUD2MainForm.CopyTaskDefinitionExample1Click(Sender: TObject);
479	var	479	var
480	s: string;	480	s: string;
481	ude: TUD2IdentificationEntry;	481	ude: TUD2IdentificationEntry;
482	begin	482	begin
483	if IdentificationsListView.ItemIndex = -1 then exit;	483	if IdentificationsListView.ItemIndex = -1 then exit;
484		484
485	ude := TUD2IdentificationEntry(IdentificationsListView.Selected.Data);	485	ude := TUD2IdentificationEntry(IdentificationsListView.Selected.Data);
486	s := '; ' + ude.Plugin.PluginName + #13#10 +	486	s := '; ' + ude.Plugin.PluginName + #13#10 +
487	UD2_CondToStr(ude.GetConditionString(false))+'=calc.exe'+#13#10+	487	UD2_CondToStr(ude.GetConditionString(false))+'=calc.exe'+#13#10+
488	#13#10+	488	#13#10+
489	'; Alternatively:'+#13#10+	489	'; Alternatively:'+#13#10+
490	UD2_CondToStr(ude.GetConditionString(true))+'=calc.exe'+#13#10;	490	UD2_CondToStr(ude.GetConditionString(true))+'=calc.exe'+#13#10;
491		491
492	Clipboard.AsText := s;	492	Clipboard.AsText := s;
493	end;	493	end;
494		494
495	procedure TUD2MainForm.ListViewCompare(Sender: TObject; Item1,	495	procedure TUD2MainForm.ListViewCompare(Sender: TObject; Item1,
496	Item2: TListItem; Data: Integer; var Compare: Integer);	496	Item2: TListItem; Data: Integer; var Compare: Integer);
497	var	497	var
498	ListView: TVTSListView;	498	ListView: TVTSListView;
499	begin	499	begin
500	ListView := Sender as TVTSListView;	500	ListView := Sender as TVTSListView;

Subversion Repositories userdetect2

userdetect2/trunk/UserDetect2/UD2_Main.pas – Rev 94 → 95