prefmaxlen: dword;
entriesread,
totalentries,
resume_handle: lpdword): dword; stdcall;
var
netshareenum: function(pszserver: pchar;
slevel: cardinal;
pbbuffer: pchar;
cbbuffer: cardinal;
pcentriesread,
pctotalavail: pointer): dword; stdcall;
var
netsharedelnt: function(servername: pwidechar;
netname: pwidechar;
reserved: dword): longint; stdcall;
var
netsharedel: function(pszserver,
psznetname: pchar;
usreserved: word): dword; stdcall;
var
netshareaddnt: function(servername: pwidechar;
level: dword;
buf: pointer;
parm_err: lpdword): dword; stdcall;
var
netshareadd: function(pszserver: pchar;
slevel: cardinal;
pbbuffer: pchar;
cbbuffer: word): dword; stdcall;
var
netsessionenumnt: function(servername,
uncclientname,
username: pwchar;
level: dword;
bufptr: pointer;
prefmaxlen: dword;
entriesread,
totalentries,
resume_handle: lpdword): dword; stdcall;
var
netsessionenum: function(pszserver: pchar;
slevel: dword;
pbbuffer: pointer;
cbbuffer: dword;
pcentriesread,
pctotalavial: pointer): integer; stdcall;
var
netsessiondelnt: function(servername,
uncclientname,
username: pwchar): dword; stdcall;
var
netsessiondel: function(pszserver: pchar;
pszclientname: pchar;
sreserved: smallint): dword; stdcall;
var
netfileenumnt: function(servername,
basepath,
username: pwchar;
level: dword;
bufptr: pointer;
prefmaxlen: dword;
entriesread,
totalentries,
resume_handle: lpdword): dword; stdcall;
var
netfileenum: function(pszserver,
pszbasepath: pchar;
slevel: dword;
pbbuffer: pointer;
cbbuffer: dword;
pcentriesread,
pctotalavail: pointer): integer; stdcall;
var
netfileclose: function(servername: pwidechar;
fileid: dword): dword; stdcall;
var
netfileclose2: function(pszserver: pchar;
ulfileid: longword): dword; stdcall;
var
getiftable: function(piftable: pmibiftable;
pdwsize: pulong;
border: boolean): dword; stdcall;
implementation
end.
unit netmonutils;
interface
uses windows, classes, netmonconsts;
function isnt(var value: boolean): boolean;
procedure getshares(shareslist: tstrings);
procedure closeshare(sharename: string);
procedure addshare(sharename, sharedir: string);
procedure getsessions(list: tstrings);
procedure closesession(sessionname: string);
procedure getfiles(fileslist: tstrings);
procedure closefile(fileindex: string);
procedure gettrafficsets(trafficslist: tstrings);
function integertotimestr(value: integer): string;
type
tshareinfo2obj = class
private
fshi2_netname: string;
fshi2_path: string;
procedure setshi2_netname(const value: string);
procedure setshi2_path(const value: string);
public
constructor create(shareinfo2: tshareinfo2);
property shi2_netname: string read fshi2_netname write setshi2_netname;
property shi2_path: string read fshi2_path write setshi2_path;
end;
tshareinfo50obj = class
private
fshi50_netname: string;
fshi50_path: string;
procedure setshi50_netname(const value: string);
procedure setshi50_path(const value: string);
public
constructor create(shareinfo50: tshareinfo50);
property shi50_netname: string read fshi50_netname write setshi50_netname;
