unit1.pas

resursy sety robochi grupy

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ImgList, ComCtrls, StdCtrls, ExtCtrls;

type
  TmainForm = class(TForm)
    TV: TTreeView;
    rgResources: TRadioGroup;
    sbProcess: TStatusBar;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    n1: TMenuItem;
    Scan: TMenuItem;
    ProgressBar1: TProgressBar;
    Exit: TMenuItem;
    N2: TMenuItem;
    N11: TMenuItem;
    procedure ExitClick(Sender: TObject);
    procedure ScanClick(Sender: TObject);
    procedure EnumResource(NetRes:PNetResource;node:TTreeNode);
   
    procedure N11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  NumRes = 2000;

type
  NetResBuf = array [1..NumRes] of NETRESOURCE;
  pNetResBuf = ^NetResBuf;

var
  mainForm: TmainForm;
  wdType   : Longword;
  hThread  : THandle;
  idThread : DWORD;

implementation

{$R *.dfm}

procedure TmainForm.ExitClick(Sender: TObject);
begin
  Close;
end;
function GetNodeInPath(Path: string; Separator: char; TreeView: TTreeView):
  TTreeNode;
var
  List: TStringList;
  Node: TTreeNode;
  i: integer;
  s: string;
begin
  Result := nil;
  if (TreeView = nil) or (TreeView.Items.Count = 0) or (Path = '') or (Separator
    = '') then
    exit;
  List := TStringList.Create;
  // 体