Subversion Repositories userdetect2

Rev

Rev 82 | Rev 84 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 82 Rev 83
Line 60... Line 60...
60 
    VersionLabel: TLabel;
 60 
    VersionLabel: TLabel;
61 
    LoadedPluginsPopupMenu: TPopupMenu;
 61 
    LoadedPluginsPopupMenu: TPopupMenu;
62 
    MenuItem1: TMenuItem;
 62 
    MenuItem1: TMenuItem;
63 
    Panel2: TPanel;
 63 
    Panel2: TPanel;
64 
    Image2: TImage;
 64 
    Image2: TImage;
- 
 
 65 
    Button5: TButton;
65 
    procedure FormDestroy(Sender: TObject);
 66 
    procedure FormDestroy(Sender: TObject);
66 
    procedure TasksListViewDblClick(Sender: TObject);
 67 
    procedure TasksListViewDblClick(Sender: TObject);
67 
    procedure TasksListViewKeyPress(Sender: TObject; var Key: Char);
 68 
    procedure TasksListViewKeyPress(Sender: TObject; var Key: Char);
68 
    procedure Button1Click(Sender: TObject);
 69 
    procedure Button1Click(Sender: TObject);
69 
    procedure Button2Click(Sender: TObject);
 70 
    procedure Button2Click(Sender: TObject);
Line 76... Line 77...
76 
    procedure ListViewCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
 77 
    procedure ListViewCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
77 
    procedure Button3Click(Sender: TObject);
 78 
    procedure Button3Click(Sender: TObject);
78 
    procedure LoadedPluginsPopupMenuPopup(Sender: TObject);
 79 
    procedure LoadedPluginsPopupMenuPopup(Sender: TObject);
79 
    procedure MenuItem1Click(Sender: TObject);
 80 
    procedure MenuItem1Click(Sender: TObject);
80 
    procedure FormCreate(Sender: TObject);
 81 
    procedure FormCreate(Sender: TObject);
- 
 
 82 
    procedure Button5Click(Sender: TObject);
81 
  protected
 83 
  protected
82 
    ud2: TUD2;
 84 
    ud2: TUD2;
83 
    procedure LoadTaskList;
 85 
    procedure LoadTaskList;
84 
    procedure LoadDetectedIDs;
 86 
    procedure LoadDetectedIDs;
85 
    procedure LoadINITemplate;
 87 
    procedure LoadINITemplate;
Line 278... Line 280...
278 
    begin
 280 
    begin
279 
      ude := pl.DetectedIdentifications.Items[j] as TUD2IdentificationEntry;
 281 
      ude := pl.DetectedIdentifications.Items[j] as TUD2IdentificationEntry;
280 
      with IdentificationsListView.Items.Add do
 282 
      with IdentificationsListView.Items.Add do
281 
      begin
 283 
      begin
282 
        Caption := pl.PluginName;
 284 
        Caption := pl.PluginName;
- 
 
 285 
        if ude.DynamicDataUsed then
- 
 
 286 
          SubItems.Add(ude.DynamicData)
- 
 
 287 
        else
- 
 
 288 
          SubItems.Add('');
283 
        SubItems.Add(pl.IdentificationMethodName);
 289 
        SubItems.Add(pl.IdentificationMethodName);
284 
        SubItems.Add(ude.IdentificationString);
 290 
        SubItems.Add(ude.IdentificationString);
285 
        SubItems.Add(GUIDToString(pl.PluginGUID));
 291 
        SubItems.Add(GUIDToString(pl.PluginGUID));
286 
      end;
 292 
      end;
287 
    end;
 293 
    end;
Line 296... Line 302...
296 
procedure TUD2MainForm.LoadINITemplate;
 302 
procedure TUD2MainForm.LoadINITemplate;
297 
var
 303 
var
298 
  i, j: integer;
 304 
  i, j: integer;
299 
  pl: TUD2Plugin;
 305 
  pl: TUD2Plugin;
300 
  ude: TUD2IdentificationEntry;
 306 
  ude: TUD2IdentificationEntry;
- 
 
 307 
  idNames: TStringList;
301 
begin
 308 
begin
302 
  IniTemplateMemo.Clear;
 309 
  IniTemplateMemo.Clear;
303 
  IniTemplateMemo.Lines.Add('[ExampleTask1]');
 310 
  IniTemplateMemo.Lines.Add('[ExampleTask1]');
304 
  IniTemplateMemo.Lines.Add('; Description: Optional but recommended');
 311 
  IniTemplateMemo.Lines.Add('; Description: Optional but recommended');
305 
  IniTemplateMemo.Lines.Add('Description=Run Task #1');
 312 
  IniTemplateMemo.Lines.Add('Description=Run Task #1');
Line 315... Line 322...
315 
    pl := ud2.LoadedPlugins.Items[i] as TUD2Plugin;
 322 
    pl := ud2.LoadedPlugins.Items[i] as TUD2Plugin;
316 
    for j := 0 to pl.DetectedIdentifications.Count-1 do
 323 
    for j := 0 to pl.DetectedIdentifications.Count-1 do
317 
    begin
 324 
    begin
318 
      ude := pl.DetectedIdentifications.Items[j] as TUD2IdentificationEntry;
 325 
      ude := pl.DetectedIdentifications.Items[j] as TUD2IdentificationEntry;
319 
      IniTemplateMemo.Lines.Add(Format('; %s', [ude.Plugin.PluginName]));
 326 
      IniTemplateMemo.Lines.Add(Format('; %s', [ude.Plugin.PluginName]));
- 
 
 327 
 
- 
 
 328 
      idNames := TStringList.Create;
- 
 
 329 
      try
- 
 
 330 
        ude.GetIdNames(idNames);
- 
 
 331 
        if idNames.Count >= 1 then
320 
      IniTemplateMemo.Lines.Add(ude.GetPrimaryIdName+'=calc.exe');
 332 
          IniTemplateMemo.Lines.Add(idNames.Strings[0]+'=calc.exe');
- 
 
 333 
      finally
- 
 
 334 
        idNames.Free;
- 
 
 335 
      end;
- 
 
 336 
 
321 
    end;
 337 
    end;
322 
  end;
 338 
  end;
323 
end;
 339 
end;
324 
 
 340 
 
325 
procedure TUD2MainForm.LoadLoadedPluginList;
 341 
procedure TUD2MainForm.LoadLoadedPluginList;
Line 549... Line 565...
549 
begin
 565 
begin
550 
  // To avoid accidental change of the default tab from the IDE VCL Designer
 566 
  // To avoid accidental change of the default tab from the IDE VCL Designer
551 
  PageControl1.ActivePage := TasksTabSheet;
 567 
  PageControl1.ActivePage := TasksTabSheet;
552 
end;
 568 
end;
553 
 
 569 
 
- 
 
 570 
procedure TUD2MainForm.Button5Click(Sender: TObject);
- 
 
 571 
var
- 
 
 572 
  idTerm: string;
- 
 
 573 
  slCmd: TStrings;
- 
 
 574 
begin
- 
 
 575 
  if InputQuery('Enter example term', 'Example: abc|||Testecho:abc=calc.exe', idTerm) then
- 
 
 576 
  begin
- 
 
 577 
    slCmd := TStringList.Create;
- 
 
 578 
    try
- 
 
 579 
      ud2.CheckTerm(idTerm, slCmd);
- 
 
 580 
      if slCmd.Count = 0 then
- 
 
 581 
        ShowMessage('No commands would be executed.')
- 
 
 582 
      else
- 
 
 583 
        showmessage('Following commands would be executed:' + #13#10#13#10 + slCmd.Text);
- 
 
 584 
    finally
- 
 
 585 
      slCmd.Free;
- 
 
 586 
    end;
- 
 
 587 
  end;
- 
 
 588 
  LoadDetectedIDs;
- 
 
 589 
end;
- 
 
 590 
 
554 
end.
 591 
end.