for i := 0 to count - 1 do //列举工作组的计算机名称
begin
names.add(p^.lpremotename + 2);
inc(p);
end;
finally
freemem(buf1);
end;
end;
end;
end.
unit mainfrm;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
imglist, stdctrls, extctrls, comctrls, toolwin, menus, actnlist, trayicon;
type
tmainform = class(tform)
statusbar1: tstatusbar;
toolbar1: ttoolbar;
toolbutton1: ttoolbutton;
toolbutton2: ttoolbutton;
treeimagelist: timagelist;
panel1: tpanel;
panel2: tpanel;
gbxtraffic: tgroupbox;
bvltraffic: tbevel;
lvtraffic: tlistview;
gbxshares: tgroupbox;
gbxsessions: tgroupbox;
bvlsessions: tbevel;
lvsessions: tlistview;
pmshare: tpopupmenu;
n1: tmenuitem;
n2: tmenuitem;
n3: tmenuitem;
n4: tmenuitem;
pmsession: tpopupmenu;
n5: tmenuitem;
n6: tmenuitem;
n7: tmenuitem;
splitter1: tsplitter;
pnlmsg: tpanel;
splitter2: tsplitter;
splitter3: tsplitter;
pnlclnt: tpanel;
pnlclnttop: tpanel;
pnlclntbtm: tpanel;
btnok: tbutton;
btnclose: tbutton;
groupbox1: tgroupbox;
memocontents: tmemo;
splitter4: tsplitter;
groupbox2: tgroupbox;
label1: tlabel;
edtoname: tedit;
label2: tlabel;
edfrom: tedit;
panel3: tpanel;
tvcomputer: ttreeview;
pmtraffic: tpopupmenu;
n8: tmenuitem;
actionlist1: tactionlist;
sharerefreshaction: taction;
sharecloseaction: taction;
shareaddaction: taction;
sessionrefreshaction: taction;
sessioncloseaction: taction;
netimagelist: timagelist;
trafficrefreshaction: taction;
bevel1: tbevel;
lvshares: tlistview;
timer1: ttimer;
filerefreshaction: taction;
filecloseaction: taction;
pmfiles: tpopupmenu;
n9: tmenuitem;
n10: tmenuitem;
n11: tmenuitem;
splitter6: tsplitter;
groupbox3: tgroupbox;
bevel2: tbevel;
lvfiles: tlistview;
n12: tmenuitem;
n13: tmenuitem;
n14: tmenuitem;
n15: tmenuitem;
pmtree: tpopupmenu;
n16: tmenuitem;
popupmenu1: tpopupmenu;
n17: tmenuitem;
n18: tmenuitem;
n19: tmenuitem;
procedure formcreate(sender: tobject);
procedure formdestroy(sender: tobject);
procedure formactivate(sender: tobject);
procedure tvcomputerclick(sender: tobject);
procedure btncloseclick(sender: tobject);
procedure btnokclick(sender: tobject);
procedure edtonamechange(sender: tobject);
procedure sharerefreshactionexecute(sender: tobject);
procedure sharecloseactionexecute(sender: tobject);
procedure lvsharesmousedown(sender: tobject; button: tmousebutton;
shift: tshiftstate; x, y: integer);
procedure shareaddactionexecute(sender: tobject);
procedure sessionrefreshactionexecute(sender: tobject);
procedure sessioncloseactionexecute(sender: tobject);
procedure trafficrefreshactionexecute(sender: tobject);
procedure timer1timer(sender: tobject);
