Rev 69 | Rev 73 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 69 | Rev 70 | ||
|---|---|---|---|
| Line 8... | Line 8... | ||
| 8 | // TODO (idee): argumente an die DLL stellen, z.B. FileAge(Letter.doc):20=calc.exe |
8 | // TODO (idee): argumente an die DLL stellen, z.B. FileAge(Letter.doc):20=calc.exe |
| 9 | // TODO: example ini file entwerfen |
9 | // TODO: example ini file entwerfen |
| 10 | // TODO: geticon funktion in ud2_obj.pas? |
10 | // TODO: geticon funktion in ud2_obj.pas? |
| 11 | // TODO (idee): ein plugin kann mehrere methodnames haben? |
11 | // TODO (idee): ein plugin kann mehrere methodnames haben? |
| 12 | // TODO: möglichkeit, Task Definition File neu zu laden, nach änderungen die man durchgeführt hat |
12 | // TODO: möglichkeit, Task Definition File neu zu laden, nach änderungen die man durchgeführt hat |
| - | 13 | // TODO: möglichkeit, plugins neu zu laden |
|
| 13 | // TODO (idee): lahme DLLs abschießen beim start (per GUI) |
14 | // TODO (idee): lahme DLLs abschießen beim start (per GUI) |
| 14 | // TODO: splash screen wegen DLL load |
15 | // TODO: splash screen wegen ggf. langer DLL load zeit |
| 15 | // TODO: nt4 compat |
- | |
| 16 | 16 | ||
| 17 | interface |
17 | interface |
| 18 | 18 | ||
| 19 | {$IF CompilerVersion >= 25.0} |
19 | {$IF CompilerVersion >= 25.0} |
| 20 | {$LEGACYIFEND ON} |
20 | {$LEGACYIFEND ON} |
| 21 | {$IFEND} |
21 | {$IFEND} |
| 22 | 22 | ||
| - | 23 | {$INCLUDE 'UserDetect2.inc'} |
|
| - | 24 | ||
| 23 | uses |
25 | uses |
| 24 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
26 | Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| 25 | Dialogs, StdCtrls, Grids, ValEdit, UD2_Obj, ComCtrls, ImgList, ExtCtrls, |
27 | Dialogs, StdCtrls, Grids, ValEdit, UD2_Obj, ComCtrls, ImgList, ExtCtrls, |
| 26 | CommCtrl, Menus, VTSListView, VTSCompat; |
28 | CommCtrl, Menus, VTSListView, VTSCompat; |
| 27 | 29 | ||
| Line 342... | Line 344... | ||
| 342 | Caption := pl.PluginDLL; |
344 | Caption := pl.PluginDLL; |
| 343 | SubItems.Add(pl.PluginVendor); |
345 | SubItems.Add(pl.PluginVendor); |
| 344 | SubItems.Add(pl.PluginName); |
346 | SubItems.Add(pl.PluginName); |
| 345 | SubItems.Add(pl.PluginVersion); |
347 | SubItems.Add(pl.PluginVersion); |
| 346 | SubItems.Add(pl.IdentificationMethodName); |
348 | SubItems.Add(pl.IdentificationMethodName); |
| - | 349 | SubItems.Add(IntToStr(pl.DetectedIdentifications.Count)); |
|
| 347 | SubItems.Add(Format(LNG_MS, [Max(1,pl.time)])); // at least show 1ms, otherwise it would be unloggical |
350 | SubItems.Add(Format(LNG_MS, [Max(1,pl.time)])); // at least show 1ms, otherwise it would be unloggical |
| - | 351 | SubItems.Add(pl.IdentificationProcedureStatusCodeDescribed); |
|
| 348 | SubItems.Add(pl.PluginGUIDString); |
352 | SubItems.Add(pl.PluginGUIDString); |
| 349 | end; |
353 | end; |
| 350 | end; |
354 | end; |
| 351 | 355 | ||
| 352 | for i := 0 to ListView2.Columns.Count-1 do |
356 | for i := 0 to ListView2.Columns.Count-1 do |