版权声明：
本文由Lyris完成，首发于CSDN，作者保留中文版权。
未经许可，不得使用于任何商业用途。
欢迎转载，但请保持文章及版权声明完整。
如需联络请发邮件：[email protected]
interface
uses Windows;
type
TShareInfo2 = packed record
shi2_netname: PWChar;
shi2_type: DWORD;
shi2_remark: PWChar;
shi2_permissions: DWORD;
shi2_max_uses: DWORD;
shi2_current_uses: DWORD;
shi2_path: PWChar;
shi2_passwd: PWChar;
end;
PShareInfo2 = ^TShareInfo2;
TShareInfo2Array = array[0..512] of TShareInfo2;
PShareInfo2Array = ^TShareInfo2Array;
type
TShareInfo50 = packed record
shi50_netname: array[0..12] of Char;
shi50_type: Byte;
shi50_flags: Word;
shi50_remark: PChar;
shi50_path: PChar;
shi50_rw_password: array[0..8] of Char;
shi50_ro_password: array[0..8] of Char;
end;
type
TSessionInfo502 = packed record
Sesi502_cname: PWideChar;
Sesi502_username: PWideChar;
Sesi502_num_opens: DWORD;
Sesi502_time: DWORD;
Sesi502_idle_time: DWORD;
Sesi502_user_flags: DWORD;
Sesi502_cltype_name: PWideChar;
Sesi502_transport: PWideChar;
end;
PSessionInfo502 = ^TSessionInfo502;
TSessionInfo502Array = array[0..512] of TSessionInfo502;
PSessionInfo502Array = ^TSessionInfo502Array;
type
TSessionInfo50 = packed record
Sesi50_cname: PChar;
Sesi50_username: PChar;
sesi50_key: Cardinal;
sesi50_num_conns: Word;
sesi50_num_opens: Word;
sesi50_time: Cardinal;
sesi50_idle_time: Cardinal;
sesi50_protocol: Byte;
pad1: Byte;
end;
type
TFileInfo3 = packed record
fi3_id: DWORD;
fi3_permissions: DWORD;
fi3_num_locks: DWORD;
fi3_pathname: PWChar;
fi3_username: PWChar;
end;
PFileInfo3 = ^TFileInfo3;
TFileInfo3Array = array[0..512] of TFileInfo3;
PFileInfo3Array = ^TFileInfo3Array;
type
TFileInfo50 = packed record
fi50_id: Cardinal;
fi50_permissions: WORD;
fi50_num_locks: WORD;
fi50_pathname: PChar;
fi50_username: PChar;
fi50_sharename: PChar;
end;
type
TMibIfRow = packed record
wszName: array[0..255] of WideChar;
dwIndex: DWORD;
dwType: DWORD;
dwMtu: DWORD;
dwSpeed: DWORD;
dwPhysAddrLen: DWORD;
bPhysAddr: array[0..7] of Byte;
dwAdminStatus: DWORD;
dwOperStatus: DWORD;
dwLastChange: DWORD;
dwInOctets: DWORD;
dwInUcastPkts: DWORD;
dwInNUCastPkts: DWORD;
dwInDiscards: DWORD;
dwInErrors: DWORD;
dwInUnknownProtos: DWORD;
dwOutOctets: DWORD;
dwOutUCastPkts: DWORD;
dwOutNUCastPkts: DWORD;
dwOutDiscards: DWORD;
dwOutErrors: DWORD;
dwOutQLen: DWORD;
dwDescrLen: DWORD;
bDescr: array[0..255] of Char;
end;
TMibIfArray = array[0..512] of TMibIfRow;
PMibIfRow = ^TMibIfRow;
PMibIfArray = ^TMibIfArray;
type
TMibIfTable = packed record
dwNumEntries: DWORD;
Table: TMibIfArray;
end;
PMibIfTable = ^TMibIfTable;
var
NetShareEnumNT: function(servername: PWChar;
level: DWORD;
bufptr: Pointer;
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;
property shi50_path: string read Fshi50_path write Setshi50_path;
end;
TSessionInfo502Obj = class
private
FSesi502_Time: DWord;
Fsesi502_idle_time: DWord;
FSesi502_num_opens: DWord;
FSesi502_cname: WideString;
FSesi502_username: WideString;
procedure SetSesi502_cname(const Value: WideString);
procedure Setsesi502_idle_time(const Value: DWord);
procedure SetSesi502_num_opens(const Value: DWord);
procedure SetSesi502_Time(const Value: DWord);
procedure SetSesi502_username(const Value: WideString);
public
constructor Create(SessionInfo502: TSessionInfo502);
property Sesi502_cname: WideString read FSesi502_cname write SetSesi502_cname;
property Sesi502_username: WideString read FSesi502_username write SetSesi502_username;
property Sesi502_num_opens: DWord read FSesi502_num_opens write SetSesi502_num_opens;
property Sesi502_Time: DWord read FSesi502_Time write SetSesi502_Time;
property sesi502_idle_time: DWord read Fsesi502_idle_time write Setsesi502_idle_time;
end;
TSessionInfo50Obj = class
private
Fsesi50_num_opens: Integer;
Fsesi50_time: Integer;
Fsesi50_idle_time: Integer;
FSesi50_cname: WideString;
FSesi50_username: WideString;
procedure SetSesi50_cname(const Value: WideString);
procedure Setsesi50_idle_time(const Value: Integer);
procedure Setsesi50_num_opens(const Value: Integer);
procedure Setsesi50_time(const Value: Integer);
procedure SetSesi50_username(const Value: WideString);
public
constructor Create(SessionInfo50: TSessionInfo50);
property Sesi50_cname: WideString read FSesi50_cname write SetSesi50_cname;
property Sesi50_username: WideString read FSesi50_username write SetSesi50_username;
property sesi50_num_opens: Integer read Fsesi50_num_opens write Setsesi50_num_opens;
property sesi50_time: Integer read Fsesi50_time write Setsesi50_time;
property sesi50_idle_time: Integer read Fsesi50_idle_time write Setsesi50_idle_time;
end;
TFileInfo3Obj = class
private
Ffi3_permissions: DWord;
Ffi3_num_locks: DWord;
Ffi3_id: DWord;
Ffi3_pathname: WideString;
Ffi3_username: WideString;
procedure Setfi3_id(const Value: DWord);
procedure Setfi3_num_locks(const Value: DWord);
procedure Setfi3_pathname(const Value: WideString);
procedure Setfi3_permissions(const Value: DWord);
procedure Setfi3_username(const Value: WideString);
public
constructor Create(FileInfo3: TFileInfo3);
property fi3_id: DWord read Ffi3_id write Setfi3_id;
property fi3_permissions: DWord read Ffi3_permissions write Setfi3_permissions;
property fi3_num_locks: DWord read Ffi3_num_locks write Setfi3_num_locks;
property fi3_pathname: WideString read Ffi3_pathname write Setfi3_pathname;
property fi3_username: WideString read Ffi3_username write Setfi3_username;
end;
type
TFileInfo50Obj = class
private
Ffi50_id: Integer;
Ffi50_pathname: string;
Ffi50_username: string;
Ffi50_sharename: string;
Ffi50_permissions: WORD;
Ffi50_num_locks: WORD;
procedure Setfi50_id(const Value: Integer);
procedure Setfi50_num_locks(const Value: WORD);
procedure Setfi50_pathname(const Value: string);
procedure Setfi50_permissions(const Value: WORD);
procedure Setfi50_sharename(const Value: string);
procedure Setfi50_username(const Value: string);
public
constructor Create(FileInfo50: TFileInfo50);
property fi50_id: Integer read Ffi50_id write Setfi50_id;
property fi50_permissions: WORD read Ffi50_permissions write Setfi50_permissions;
property fi50_num_locks: WORD read Ffi50_num_locks write Setfi50_num_locks;
property fi50_pathname: string read Ffi50_pathname write Setfi50_pathname;
property fi50_username: string read Ffi50_username write Setfi50_username;
property fi50_sharename: string read Ffi50_sharename write Setfi50_sharename;
end;
type
TMAC = array[0..7] of Byte;
TTraffic = class
private
FMAC: string;
FdwOutOctets: Integer;
FdwInOctets: Integer;
FCaption: string;
procedure SetCaption(const Value: string);
procedure SetdwInOctets(const Value: Integer);
procedure SetdwOutOctets(const Value: Integer);
procedure SetMAC(const Value: string);
function GetMAC(Value: TMAC; Length: DWORD): string;
public
constructor Create(MibIfRow: TMibIfRow);
property Caption: string read FCaption write SetCaption;
property MAC: string read FMAC write SetMAC;
property dwInOctets: Integer read FdwInOctets write SetdwInOctets;
property dwOutOctets: Integer read FdwOutOctets write SetdwOutOctets;
end;
implementation
uses SysUtils;
function IsNT(var Value: Boolean): Boolean;
var Ver: TOSVersionInfo;
BRes: Boolean;
begin
Ver.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
BRes := GetVersionEx(Ver);
if not BRes then
begin
Result := False;
Exit;
end else
Result := True;
case Ver.dwPlatformId of
VER_PLATFORM_WIN32_NT: Value := True;
VER_PLATFORM_WIN32_WINDOWS: Value := False;
VER_PLATFORM_WIN32s: Result := False
end;
end;
procedure GetShares(SharesList: TStrings);
var
i: Integer;
FLibHandle: THandle;
ShareNT: PShareInfo2Array;
entriesread, totalentries: DWORD; //<= Win NT
Share: array[0..512] of TShareInfo50;
pcEntriesRead, pcTotalAvail: Word; //<= Windows 9x-Me
OS: Boolean;
begin
if not IsNT(OS) then Exit;
if OS then begin
FLibHandle := LoadLibrary('NETAPI32.DLL');
if FLibHandle = 0 then Exit;
@NetShareEnumNT := GetProcAddress(FLibHandle, 'NetShareEnum');
if not Assigned(NetShareEnumNT) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
ShareNT := nil;
if NetShareEnumNT(nil, 2, @ShareNT, DWORD(-1),
@entriesread, @totalentries, nil) <> 0 then
begin
FreeLibrary(FLibHandle);
Exit;
end;
if entriesread > 0 then
for i := 0 to entriesread - 1 do
SharesList.AddObject(string(ShareNT^[i].shi2_netname), TShareInfo2Obj.Create(ShareNT^[i]));
end else begin
FLibHandle := LoadLibrary('SVRAPI.DLL');
if FLibHandle = 0 then Exit;
@NetShareEnum := GetProcAddress(FLibHandle, 'NetShareEnum');
if not Assigned(NetShareEnum) then
FreeLibrary(FLibHandle);
Exit;
if NetShareEnum(nil, 50, @Share, SizeOf(Share),
@pcEntriesRead, @pcTotalAvail) <> 0 then
begin
FreeLibrary(FLibHandle);
Exit;
end;
if pcEntriesRead > 0 then
for i := 0 to pcEntriesRead - 1 do
SharesList.AddObject(string(Share[i].shi50_netname), TShareInfo50Obj.Create(Share[i]));
end;
FreeLibrary(FLibHandle);
end;
procedure CloseShare(ShareName: string);
var
OS: Boolean;
FLibHandle: THandle;
Name9x: array[0..12] of Char;
NameNT: PWChar;
i: Integer;
begin
if not IsNT(OS) then Exit;
if OS then begin
FLibHandle := LoadLibrary('NETAPI32.DLL');
if FLibHandle = 0 then Exit;
@NetShareDelNT := GetProcAddress(FLibHandle, 'NetShareDel');
if not Assigned(NetShareDelNT) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
i := SizeOf(WideChar) * 256;
GetMem(NameNT, i);
StringToWideChar(ShareName, NameNT, i);
NetShareDelNT(nil, NameNT, 0);
FreeMem(NameNT);
end else begin
FLibHandle := LoadLibrary('SVRAPI.DLL');
if FLibHandle = 0 then Exit;
@NetShareDel := GetProcAddress(FLibHandle, 'NetShareDel');
if not Assigned(NetShareDel) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
FillChar(Name9x, SizeOf(Name9x), #0);
move(ShareName[1], Name9x[0], Length(ShareName));
NetShareDel(nil, @Name9x, 0);
end;
FreeLibrary(FLibHandle);
end;
procedure AddShare(ShareName, ShareDir: string);
const
STYPE_DISKTREE = 0;
ACCESS_ALL = 258;
SHI50F_FULL = 258;
var
FLibHandle: THandle;
Share9x: TShareInfo50;
ShareNT: TShareInfo2;
TmpDirNT, TmpNameNT: PWChar;
OS: Boolean;
TmpLength: Integer;
begin
if not IsNT(OS) then Exit;
if OS then begin
FLibHandle := LoadLibrary('NETAPI32.DLL');
if FLibHandle = 0 then Exit;
@NetShareAddNT := GetProcAddress(FLibHandle, 'NetShareAdd');
if not Assigned(NetShareAddNT) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
TmpLength := SizeOF(WideChar) * 256;
GetMem(TmpNameNT, TmpLength);
StringToWideChar(ShareName, TmpNameNT, TmpLength);
ShareNT.shi2_netname := TmpNameNT;
ShareNT.shi2_type := STYPE_DISKTREE;
ShareNT.shi2_remark := '';
ShareNT.shi2_permissions := ACCESS_ALL;
ShareNT.shi2_max_uses := DWORD(-1);
ShareNT.shi2_current_uses := 0;
GetMem(TmpDirNT, TmpLength);
StringToWideChar(ShareDir, TmpDirNT, TmpLength);
ShareNT.shi2_path := TmpDirNT;
ShareNT.shi2_passwd := '';
NetShareAddNT(nil, 2, @ShareNT, nil);
FreeMem(TmpNameNT);
FreeMem(TmpDirNT);
end else begin
FLibHandle := LoadLibrary('SVRAPI.DLL');
if FLibHandle = 0 then Exit;
@NetShareAdd := GetProcAddress(FLibHandle, 'NetShareAdd');
if not Assigned(NetShareAdd) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
FillChar(Share9x.shi50_netname, SizeOf(Share9x.shi50_netname), #0);
move(ShareName[1], Share9x.shi50_netname[0], Length(ShareName));
Share9x.shi50_type := STYPE_DISKTREE;
Share9x.shi50_flags := SHI50F_FULL;
FillChar(Share9x.shi50_remark,
SizeOf(Share9x.shi50_remark), #0);
FillChar(Share9x.shi50_path,
SizeOf(Share9x.shi50_path), #0);
Share9x.shi50_path := PAnsiChar(ShareDir);
FillChar(Share9x.shi50_rw_password,
SizeOf(Share9x.shi50_rw_password), #0);
FillChar(Share9x.shi50_ro_password,
SizeOf(Share9x.shi50_ro_password), #0);
NetShareAdd(nil, 50, @Share9x, SizeOf(Share9x));
end;
FreeLibrary(FLibHandle);
end;
procedure GetSessions(List: TStrings);
var
OS: Boolean;
FLibHandle: THandle;
SessionInfo50: array[0..512] of TSessionInfo50;
SessionInfo502: PSessionInfo502Array;
TotalEntries, EntriesReadNT: DWORD;
EntriesRead, TotalAvial: Word;
i: integer;
begin
List.Clear;
if not IsNT(OS) then Exit;
if OS then begin
FLibHandle := LoadLibrary('NETAPI32.DLL');
if FLibHandle = 0 then Exit;
@NetSessionEnumNT := GetProcAddress(FLibHandle, 'NetSessionEnum');
if not Assigned(NetSessionEnumNT) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
SessionInfo502 := nil;
if NetSessionEnumNT(nil, nil, nil, 502, @SessionInfo502, DWORD(-1), @entriesreadNT, @totalentries, nil) = 0 then
for i := 0 to EntriesReadNT - 1 do
List.AddObject(string(SessionInfo502^[i].sesi502_cname), TSessionInfo502Obj.Create(SessionInfo502^[i]));
end else begin
FLibHandle := LoadLibrary('SVRAPI.DLL');
if FLibHandle = 0 then Exit;
@NetSessionEnum := GetProcAddress(FLibHandle, 'NetSessionEnum');
if not Assigned(NetSessionEnum) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
if NetSessionEnum(nil, 50, @SessionInfo50, SizeOf(SessionInfo50), @EntriesRead, @TotalAvial) = 0 then
for i := 0 to EntriesRead - 1 do
List.AddObject(string(SessionInfo50[i].Sesi50_cname), TSessionInfo50Obj.Create(SessionInfo50[i]));
end;
FreeLibrary(FLibHandle);
end;
procedure CloseSession(SessionName: string);
var
OS: Boolean;
FLibHandle: THandle;
CNameNT: PWideChar;
CName9x: PAnsiChar;
Key: SmallInt;
begin
if not IsNT(OS) then Exit;
if OS then begin
FLibHandle := LoadLibrary('NETAPI32.DLL');
if FLibHandle = 0 then Exit;
@NetSessionDelNT := GetProcAddress(FLibHandle, 'NetSessionDel');
if not Assigned(NetSessionDelNT) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
CNameNT := PWChar(WideString('\\' + SessionName));
NetSessionDelNT(nil, CNameNT, nil);
end else begin
FLibHandle := LoadLibrary('SVRAPI.DLL');
if FLibHandle = 0 then Exit;
@NetSessionDel := GetProcAddress(FLibHandle, 'NetSessionDel');
if not Assigned(NetSessionDel) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
CName9x := PAnsiChar(SessionName);
// key := SessionCloseKey[i];
// NetSessionDel(nil,CName9x,Key);
end;
FreeLibrary(FLibHandle);
end;
procedure GetFiles(FilesList: TStrings);
var
OS: Boolean;
FLibHandle: THandle;
FileInfoNT: PFileInfo3Array;
FileInfo9x: array[0..512] of TFileInfo50;
TotalEntries, EntriesReadNT: DWORD;
EntriesRead, TotalAvial: Word;
i: integer;
begin
if not IsNT(OS) then Exit;
FilesList.Clear;
if OS then begin
FLibHandle := LoadLibrary('NETAPI32.DLL');
if FLibHandle = 0 then Exit;
@NetFileEnumNT := GetProcAddress(FLibHandle, 'NetFileEnum');
if not Assigned(NetFileEnumNT) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
FileInfoNT := nil;
if NetFileEnumNT(nil, nil, nil, 3, @FileInfoNT, DWORD(-1), @entriesreadNT, @totalentries, nil) = 0 then
for i := 0 to EntriesReadNT - 1 do
FilesList.AddObject(string(IntToStr(FileInfoNT^[i].fi3_id)), TFileInfo3Obj.Create(FileInfoNT^[i]));
end else begin
FLibHandle := LoadLibrary('SVRAPI.DLL');
if FLibHandle = 0 then Exit;
@NetFileEnum := GetProcAddress(FLibHandle, 'NetFileEnum');
if not Assigned(NetFileEnum) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
if NetFileEnum(nil, nil, 50, @FileInfo9x, SizeOf(FileInfo9x), @EntriesRead, @TotalAvial) = 0 then
for i := 0 to EntriesRead - 1 do
FilesList.AddObject(IntToStr(FileInfo9x[i].fi50_id), TFileInfo50Obj.Create(FileInfo9x[i]));
end;
FreeLibrary(FLibHandle);
end;
procedure CloseFile(FileIndex: string);
var
OS: Boolean;
FLibHandle: THandle;
begin
if not IsNT(OS) then Exit;
if OS then begin //暑?潆� NT
FLibHandle := LoadLibrary('NETAPI32.DLL');
if FLibHandle = 0 then Exit;
@NetFileClose := GetProcAddress(FLibHandle, 'NetFileClose');
if not Assigned(NetFileClose) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
NetFileClose(nil, StrToInt(FileIndex));
end else begin
FLibHandle := LoadLibrary('SVRAPI.DLL');
if FLibHandle = 0 then Exit;
@NetFileClose2 := GetProcAddress(FLibHandle, 'NetFileClose2');
if not Assigned(NetFileClose2) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
NetFileClose2(nil, StrToInt(FileIndex));
end;
FreeLibrary(FLibHandle);
end;
procedure GetTrafficSets(TrafficsList: TStrings);
var
FLibHandle : THandle;
Table: TMibIfTable;
i : integer;
Size : integer;
begin
TrafficsList.Clear;
FLibHandle := LoadLibrary('IPHLPAPI.DLL');
if FLibHandle = 0 then Exit;
@GetIfTable := GetProcAddress(FLibHandle, 'GetIfTable');
if not Assigned(GetIfTable) then
begin
FreeLibrary(FLibHandle);
Exit;
end;
Size := SizeOf(Table);
if GetIfTable(@Table, @Size, false ) = 0 then
for i:= 0 to Table.dwNumEntries-1 do
TrafficsList.AddObject(Table.Table[i].bDescr, TTraffic.Create(Table.Table[i]));
FreeLibrary(FLibHandle);
end;
function IntegerToTimeStr(Value: Integer): string;
var d, h, m, s: Real;
begin
d := 0;
h := 0;
m := 0;
s := Value;
if s > 59 then begin
m := int(s / 60);
s := s - (m * 60);
end;
if m > 59 then begin
h := int(m / 60);
m := m - (h * 60);
end;
if h > 23 then begin
d := int(h / 24);
h := h - (d * 24);
end;
Result := '';
if (d > 0) then Result := Result + floattostr(d) + ' d. ';
if (h < 9) then Result := Result + '0' + floattostr(h) + ':' else Result := Result + floattostr(h) + ':';
if (m < 9) then Result := Result + '0' + floattostr(m) + ':' else Result := Result + floattostr(m) + ':';
if (s < 9) then Result := Result + '0' + floattostr(s) else Result := Result + floattostr(s);
end;
{ TSessionInfo50Obj }
constructor TSessionInfo50Obj.Create(SessionInfo50: TSessionInfo50);
begin
FSesi50_cname := SessionInfo50.Sesi50_cname;
FSesi50_username := SessionInfo50.Sesi50_username;
end;
procedure TSessionInfo50Obj.SetSesi50_cname(const Value: WideString);
begin
FSesi50_cname := Value;
end;
procedure TSessionInfo50Obj.Setsesi50_idle_time(const Value: Integer);
begin
Fsesi50_idle_time := Value;
end;
procedure TSessionInfo50Obj.Setsesi50_num_opens(const Value: Integer);
begin
Fsesi50_num_opens := Value;
end;
procedure TSessionInfo50Obj.Setsesi50_time(const Value: Integer);
begin
Fsesi50_time := Value;
end;
procedure TSessionInfo50Obj.SetSesi50_username(const Value: WideString);
begin
FSesi50_username := Value;
end;
{ TSessionInfo502Obj }
constructor TSessionInfo502Obj.Create(SessionInfo502: TSessionInfo502);
begin
FSesi502_cname := SessionInfo502.Sesi502_cname;
FSesi502_username := SessionInfo502.Sesi502_username;
FSesi502_num_opens := SessionInfo502.Sesi502_num_opens;
FSesi502_Time := SessionInfo502.Sesi502_time;
Fsesi502_idle_time := SessionInfo502.Sesi502_idle_time;
end;
procedure TSessionInfo502Obj.SetSesi502_cname(const Value: WideString);
begin
FSesi502_cname := Value;
end;
procedure TSessionInfo502Obj.Setsesi502_idle_time(const Value: DWord);
begin
Fsesi502_idle_time := Value;
end;
procedure TSessionInfo502Obj.SetSesi502_num_opens(const Value: DWord);
begin
FSesi502_num_opens := Value;
end;
procedure TSessionInfo502Obj.SetSesi502_Time(const Value: DWord);
begin
FSesi502_Time := Value;
end;
procedure TSessionInfo502Obj.SetSesi502_username(const Value: WideString);
begin
FSesi502_username := Value;
end;
{ TFileInfo3Obj }
constructor TFileInfo3Obj.Create(FileInfo3: TFileInfo3);
begin
Ffi3_id := FileInfo3.fi3_id;
Ffi3_permissions := FileInfo3.fi3_permissions;
Ffi3_num_locks := FileInfo3.fi3_num_locks;
Ffi3_pathname := FileInfo3.fi3_pathname;
Ffi3_username := FileInfo3.fi3_username;
end;
procedure TFileInfo3Obj.Setfi3_id(const Value: DWord);
begin
Ffi3_id := Value;
end;
procedure TFileInfo3Obj.Setfi3_num_locks(const Value: DWord);
begin
Ffi3_num_locks := Value;
end;
procedure TFileInfo3Obj.Setfi3_pathname(const Value: WideString);
begin
Ffi3_pathname := Value;
end;
procedure TFileInfo3Obj.Setfi3_permissions(const Value: DWord);
begin
Ffi3_permissions := Value;
end;
procedure TFileInfo3Obj.Setfi3_username(const Value: WideString);
begin
Ffi3_username := Value;
end;
{ TFileInfo50Obj }
constructor TFileInfo50Obj.Create(FileInfo50: TFileInfo50);
begin
Ffi50_id := FileInfo50.fi50_id;
Ffi50_permissions := FileInfo50.fi50_permissions;
Ffi50_num_locks := FileInfo50.fi50_num_locks;
Ffi50_pathname := FileInfo50.fi50_pathname;
Ffi50_username := FileInfo50.fi50_username;
Ffi50_sharename := FileInfo50.fi50_sharename;
end;
procedure TFileInfo50Obj.Setfi50_id(const Value: Integer);
begin
Ffi50_id := Value;
end;
procedure TFileInfo50Obj.Setfi50_num_locks(const Value: WORD);
begin
Ffi50_num_locks := Value;
end;
procedure TFileInfo50Obj.Setfi50_pathname(const Value: string);
begin
Ffi50_pathname := Value;
end;
procedure TFileInfo50Obj.Setfi50_permissions(const Value: WORD);
begin
Ffi50_permissions := Value;
end;
procedure TFileInfo50Obj.Setfi50_sharename(const Value: string);
begin
Ffi50_sharename := Value;
end;
procedure TFileInfo50Obj.Setfi50_username(const Value: string);
begin
Ffi50_username := Value;
end;
{ TTraffic }
constructor TTraffic.Create(MibIfRow: TMibIfRow);
begin
FCaption := string(MibIfRow.bDescr);
FMAC := GetMAC(TMAC(MibIfRow.bPhysAddr), MibIfRow.dwPhysAddrLen);
FdwInOctets := MibIfRow.dwInOctets;
FdwOutOctets := MibIfRow.dwOutOctets;
end;
procedure TTraffic.SetCaption(const Value: string);
begin
FCaption := Value;
end;
procedure TTraffic.SetdwInOctets(const Value: Integer);
begin
FdwInOctets := Value;
end;
procedure TTraffic.SetdwOutOctets(const Value: Integer);
begin
FdwOutOctets := Value;
end;
procedure TTraffic.SetMAC(const Value: string);
begin
FMAC := Value;
end;
function TTraffic.GetMAC(Value: TMAC; Length: DWORD): string;
var
i: Integer;
begin
if Length = 0 then Result := '00-00-00-00-00-00' else
begin
Result := '';
for i := 0 to Length - 2 do
Result := Result + IntToHex(Value[i], 2) + '-';
Result := Result + IntToHex(Value[Length - 1], 2);
end;
end;
{ TSessionInfo2Obj }
constructor TShareInfo2Obj.Create(ShareInfo2: TShareInfo2);
begin
Fshi2_netname := ShareInfo2.shi2_netname;
Fshi2_path := ShareInfo2.shi2_path;
end;
procedure TShareInfo2Obj.Setshi2_netname(const Value: string);
begin
Fshi2_netname := Value;
end;
procedure TShareInfo2Obj.Setshi2_path(const Value: string);
begin
Fshi2_path := Value;
end;
{ TShareInfo50Obj }
constructor TShareInfo50Obj.Create(ShareInfo50: TShareInfo50);
begin
Fshi50_netname := ShareInfo50.shi50_netname;
Fshi50_path := ShareInfo50.shi50_path;
end;
procedure TShareInfo50Obj.Setshi50_netname(const Value: string);
begin
Fshi50_netname := Value;
end;
procedure TShareInfo50Obj.Setshi50_path(const Value: string);
begin
Fshi50_path := Value;
end;
end.
unit NetSendUtils;
interface
uses Classes, Windows;
procedure GetNetGroupNameList(Names: TStrings);
procedure GetComputerNameList(GroupName: string; Names: TStrings);
implementation
procedure GetNetGroupNameList(Names: TStrings);
var
lphEnum: THandle;
Buf1, Buf2: Pointer;
Count, BufSize, Res: DWORD;
P: ^TNetResource;
I, J: Integer;
List: TList;
NetResource: TNetResource;
begin
//获取整个网络中的文件资源的句柄，lphEnum为返回名柄
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, nil, lphEnum);
if Res <> NO_ERROR then
Exit; //执行失败
//获取整个网络中的网络类型信息
Count := $FFFFFFFF; //不限资源数目
BufSize := 8192; //缓冲区大小设置为8K
GetMem(Buf1, BufSize); //申请内存，用于获取工作组信息
List := TList.Create;
try
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf1), BufSize);
if (Res = ERROR_NO_MORE_ITEMS) or (Res <> NO_ERROR) then
Exit; //资源列举完毕 或者 执行失败
P := Buf1;
for I := 0 to Count - 1 do
begin
List.Add(p);
Inc(P);
end;
Res := WNetCloseEnum(lphEnum); //关闭一次列举
if Res <> NO_ERROR then exit;
for I := 0 to List.Count -1 do
begin
NetResource := TNetResource(List.Items[I]^);
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, @NetResource, lphEnum);
if Res <> NO_ERROR then break; //执行失败
Names.Clear;
while True do
begin
Count := $FFFFFFFF; //不限资源数目
GetMem(Buf2, BufSize); //申请内存，用于获取工作组信息
try
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf2), BufSize); //获取一个网络类型的文件资源信息
if (Res = ERROR_NO_MORE_ITEMS) or (Res <> NO_ERROR) then
Break; //资源列举完毕 或者 执行失败
P := Buf2;
for J := 0 to Count - 1 do //列举各个工作组的信息
begin
Names.Add(P^.lpRemoteName);
Inc(P);
end;
finally
FreeMem(Buf2, BufSize);
end;
end;
end;
finally
FreeMem(Buf1, BufSize);
List.Free;
end;
end;
procedure GetComputerNameList(GroupName: string;Names: TStrings);
var
NetResource: TNetResource;
P: ^TNetResource;
lphEnum: THandle;
Buf1: Pointer;
Count, BufSize, Res: DWORD;
I: Integer;
begin
FillChar(NetResource, SizeOf(NetResource), 0); //初始化网络层次信息
NetResource.lpRemoteName := @GroupName[1]; //指定工作组名称
NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER; //类型为服务器（工作组）
NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;
NetResource.dwScope := RESOURCETYPE_DISK; //列举文件资源信息
//获取指定工作组的网络资源句柄
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, @NetResource, lphEnum);
if Res <> NO_ERROR then Exit; //执行失败
Names.Clear;
while True do //列举指定工作组的网络资源
begin
Count := $FFFFFFFF; //不限资源数目
BufSize := 8192; //缓冲区大小设置为8K
GetMem(Buf1, BufSize); //申请内存，用于获取工作组信息
try
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf1), BufSize);
if Res = ERROR_NO_MORE_ITEMS then break; //资源列举完毕
if (Res <> NO_ERROR) then Exit; //执行失败
P := Buf1;
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);
procedure FormShow(Sender: TObject);
procedure FileRefreshActionExecute(Sender: TObject);
procedure lvSessionsMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure LvFilesMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FileCloseActionExecute(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure TvComputerContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
private
{ Private declarations }
procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
procedure WMHotkeyHandle(var Msg: Tmessage); message WM_HOTKEY;
public
{ Public declarations }
FRootNode, FCurNode: TTreeNode;
FSendToNames: TStrings;
TrayNotifyIcon1: TTrayNotifyIcon;
HotKeyid: Integer;
procedure ShowMainForm(Sender: TObject);
end;
var
MainForm: TMainForm;
implementation
uses MultInst, NetUtils, SendPopupMsg, NetMonUtils, ShlObj, LKQDialogs, ShellAPI, Clipbrd;
{$R *.DFM}
procedure TMainForm.FormActivate(Sender: TObject);
begin
FRootNode := TvComputer.Items.add(TvComputer.topitem, '整个网络');
FRootNode.imageindex := 0;
TvComputer.SetFocus;
end;
procedure TMainForm.TvComputerClick(Sender: TObject);
var
SelectedNode, Node: TTreeNode;
Strs: TStrings;
I: Integer;
begin
if TvComputer.Selected = nil then
Exit;
SelectedNode := TvComputer.Selected;
Strs := TStringList.Create;
try
if SelectedNode.Level = 0 then
begin
if SelectedNode.count = 0 then
begin
GetNetGroupNameList(Strs);
for I := 0 to Strs.Count - 1 do
begin
Node := TvComputer.Items.AddChild(FRootNode, Strs[I]);
Node.ImageIndex := 1;
Node.SelectedIndex := 1;
end;
end;
end;
if SelectedNode.level = 1 then
begin
if SelectedNode.count = 0 then
begin
GetComputerNameList(SelectedNode.Text, Strs);
for I := 0 to Strs.Count - 1 do
begin
Node := TvComputer.Items.AddChild(SelectedNode, Strs[I]);
Node.ImageIndex := 2;
Node.SelectedIndex := 4;
end;
end;
end;
if SelectedNode.level = 2 then
begin
if FSendToNames.IndexOf(SelectedNode.Parent.Text + '*') <> -1 then Exit;
if FSendToNames.IndexOf(SelectedNode.Text) = -1 then
FSendToNames.Add(SelectedNode.Text);
EdToName.Text := FSendToNames.CommaText;
end;
finally
Strs.Free;
end;
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
FSendToNames := TStringList.Create;
SetWindowLong(EdToName.Handle, GWL_STYLE,
GetWindowLong(EdToName.Handle, GWL_STYLE) or
ES_UPPERCASE);
SetWindowLong(EdFrom.Handle, GWL_STYLE,
GetWindowLong(EdFrom.Handle, GWL_STYLE) or
ES_UPPERCASE);
TrayNotifyIcon1 := TTrayNotifyIcon.Create(Self);
with TrayNotifyIcon1 do
begin
Icon := Application.Icon;
Hint := Application.Title;
OnDblClick := ShowMainForm;
PopupMenu := PopupMenu1;
HideTask := False;
IconVisible := True;
end;
Hotkeyid := GlobalAddAtom('UserDefineHotKey') - $C000;
RegisterHotkey(Handle, Hotkeyid, MOD_CONTROL, VK_RETURN);
end;
procedure TMainForm.FormDestroy(Sender: TObject);
begin
FSendToNames.Free;
TrayNotifyIcon1.Free;
UnRegisterhotkey(Handle, Hotkeyid);
DeleteAtom(HotKeyID);
end;
procedure TMainForm.BtnCloseClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TMainForm.BtnOkClick(Sender: TObject);
var
I, J: Integer;
begin
StatusBar1.SimpleText := '';
for I := 0 to FSendToNames.Count - 1 do
begin
J := SendTextMessage(FSendToNames[I], EdFrom.Text, MemoContents.Lines.Text);
if J <> 0 then
StatusBar1.SimpleText := StatusBar1.SimpleText + FSendToNames[I] + ' ';
end;
if StatusBar1.SimpleText <> '' then StatusBar1.SimpleText := StatusBar1.SimpleText + '没有收到';
end;
procedure TMainForm.EdToNameChange(Sender: TObject);
var
NameList: TStrings;
I: Integer;
begin
NameList := TStringList.Create;
try
NameList.CommaText := EdToName.Text;
for I := (FSendToNames.Count - 1) downto 0 do
begin
if NameList.IndexOf(FSendToNames[I]) = -1 then
FSendToNames.Delete(I);
end;
if EdToName.Text <> FSendToNames.CommaText then
begin
FSendToNames.Assign(NameList);
EdToName.Text := FSendToNames.CommaText;
end;
finally
NameList.Free;
end;
btnOK.Enabled := Trim(EdToName.Text) <> '';
end;
procedure TMainForm.ShareRefreshActionExecute(Sender: TObject);
var
List: TStrings;
I: Integer;
OS: Boolean;
ShareInfo2Obj: TShareInfo2Obj;
begin
if not IsNT(OS) then Exit;
List := TStringList.Create;
try
GetShares(List);
LvShares.Items.BeginUpdate;
try
LvShares.Items.Clear;
for I := 0 to List.Count - 1 do
begin
ShareInfo2Obj := TShareInfo2Obj(List.Objects[I]);
if ShareInfo2Obj <> nil then
begin
with LvShares.Items.Add do
begin
Caption := List[I];
SubItems.Add(ShareInfo2Obj.shi2_path);
end;
end;
end;
finally
LvShares.Items.EndUpdate;
end;
finally
List.Free;
end;
end;
procedure TMainForm.ShareCloseActionExecute(Sender: TObject);
begin
if (LvShares.Items.Count = 0) or (LvShares.Selected = nil) then
Exit;
if Application.MessageBox('确实要关闭该共享吗？', '提示', MB_YESNO + MB_ICONQUESTION) <> ID_YES then
Exit;
CloseShare(LvShares.Selected.Caption);
LvShares.Items.Delete(LvShares.Selected.Index);
end;
procedure TMainForm.LvSharesMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ShareCloseAction.Enabled := (LvShares.Items.Count <> 0) and (LvShares.Selected <> nil);
N13.Enabled := ShareCloseAction.Enabled;
end;
function SelectDirectory: string;
var
lpItemID: PItemIDList;
BrowseInfo: TBrowseInfo;
DisplayName: array[0..MAX_PATH] of Char;
TempPath: array[0..MAX_PATH] of Char;
begin
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := MainForm.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
BrowseInfo.lpszTitle := '请选择共享目录:';
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if Assigned(lpItemId) then begin
SHGetPathFromIDList(lpItemID, TempPath);
GlobalFreePtr(lpItemID);
end else Result := '';
Result := string(TempPath);
end;
procedure TMainForm.TvComputerContextPopup(Sender: TObject;
MousePos: TPoint; var Handled: Boolean);
begin
FCurNode := TvComputer.GetNodeAt(MousePos.X, MousePos.Y);
if FCurNode <> nil then
N16.Enabled := FCurNode.Level = 1;
end;
procedure TMainForm.ShareAddActionExecute(Sender: TObject);
var
Name, Dir: string;
begin
if Sys_SelectDirectory(Self.Handle, Dir, '请选择共享目录：', True) then
begin
Name := InputBox('输入', '请输入共享名称', ExtractFileName(Dir));
AddShare(Name, Dir);
with LvShares.Items.Add do
begin
Caption := Name;
SubItems.Add(Dir);
end;
end;
end;
procedure TMainForm.SessionRefreshActionExecute(Sender: TObject);
var
List: TStrings;
I: Integer;
OS: Boolean;
SessionInfo502Obj: TSessionInfo502Obj;
begin
if not IsNT(OS) then Exit;
List := TStringList.Create;
try
GetSessions(List);
lvSessions.Items.Clear;
for I := 0 to List.Count - 1 do
begin
SessionInfo502Obj := TSessionInfo502Obj(List.Objects[I]);
if SessionInfo502Obj <> nil then
begin
with lvSessions.Items.Add do
begin
Caption := List[I];
SubItems.Add(SessionInfo502Obj.Sesi502_username);
SubItems.Add(IntToStr(SessionInfo502Obj.Sesi502_num_opens));
SubItems.Add(IntegerToTimeStr(SessionInfo502Obj.Sesi502_Time));
SubItems.Add(IntegerToTimeStr(SessionInfo502Obj.sesi502_idle_time));
end;
end;
end;
finally
List.Free;
end;
end;
procedure TMainForm.SessionCloseActionExecute(Sender: TObject);
begin
if (lvSessions.Items.Count = 0) or (lvSessions.Selected = nil) then
Exit;
if Application.MessageBox('确实要关闭该会话吗？', '提示', MB_YESNO + MB_ICONQUESTION) <> ID_YES then
Exit;
CloseSession(lvSessions.Selected.Caption);
lvSessions.Items.Delete(lvSessions.Selected.Index);
end;
procedure TMainForm.TrafficRefreshActionExecute(Sender: TObject);
var
List: TStrings;
I: Integer;
OS: Boolean;
Traffic: TTraffic;
begin
if not IsNT(OS) then Exit;
List := TStringList.Create;
try
GetTrafficSets(List);
lvTraffic.Items.BeginUpdate;
try
lvTraffic.Items.Clear;
for I := 0 to List.Count - 1 do
begin
Traffic := TTraffic(List.Objects[I]);
if Traffic <> nil then
begin
with lvTraffic.Items.Add do
begin
Caption := List[I];
SubItems.Add(Traffic.MAC);
SubItems.Add(IntToStr(Traffic.dwInOctets));
SubItems.Add(IntToStr(Traffic.dwInOctets));
end;
end;
end;
finally
lvTraffic.Items.EndUpdate;
end;
finally
List.Free;
end;
end;
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
ShareRefreshActionExecute(nil);
SessionRefreshActionExecute(nil);
TrafficRefreshActionExecute(nil);
FileRefreshActionExecute(nil);
if LvFiles.Items.Count <> 0 then
ShowMainForm(nil);
end;
procedure TMainForm.FormShow(Sender: TObject);
begin
ShareRefreshActionExecute(nil);
SessionRefreshActionExecute(nil);
TrafficRefreshActionExecute(nil);
FileRefreshActionExecute(nil);
Timer1.Enabled := True;
end;
procedure TMainForm.FileRefreshActionExecute(Sender: TObject);
var
List: TStrings;
I: Integer;
OS: Boolean;
FileInfo3Obj: TFileInfo3Obj;
begin
if not IsNT(OS) then Exit;
List := TStringList.Create;
try
GetFiles(List);
lvFiles.Items.BeginUpdate;
try
lvFiles.Items.Clear;
for I := 0 to List.Count - 1 do
begin
FileInfo3Obj := TFileInfo3Obj(List.Objects[I]);
if FileInfo3Obj <> nil then
begin
with lvFiles.Items.Add do
begin
Caption := List[I];
SubItems.Add(FileInfo3Obj.fi3_pathname);
SubItems.Add(FileInfo3Obj.fi3_username);
end;
end;
end;
finally
lvFiles.Items.EndUpdate;
end;
finally
List.Free;
end;
end;
procedure TMainForm.lvSessionsMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
SessionCloseAction.Enabled := (lvSessions.Items.Count <> 0) and (lvSessions.Selected <> nil);
N15.Enabled := SessionCloseAction.Enabled;
end;
procedure TMainForm.LvFilesMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
FileCloseAction.Enabled := (LvFiles.Items.Count <> 0) and (LvFiles.Selected <> nil);
end;
procedure TMainForm.FileCloseActionExecute(Sender: TObject);
begin
if (lvFiles.Items.Count = 0) or (lvFiles.Selected = nil) then
Exit;
if Application.MessageBox('确实要关闭该会话吗？', '提示', MB_YESNO + MB_ICONQUESTION) <> ID_YES then
Exit;
CloseFile(lvFiles.Selected.Caption);
lvFiles.Items.Delete(lvFiles.Selected.Index);
end;
procedure TMainForm.N13Click(Sender: TObject);
var
Path: string;
begin
if LvShares.Selected <> nil then
begin
Path := LvShares.Selected.SubItems[0];
ShellExecute(0, 'explore', PChar(Path),
nil, nil, SW_NORMAL);
end;
end;
procedure TMainForm.N15Click(Sender: TObject);
var
Name: string;
begin
if LvSessions.Selected <> nil then
begin
Name := LvSessions.Selected.SubItems[0];
Clipboard.AsText := Name
end;
end;
procedure TMainForm.N16Click(Sender: TObject);
begin
if FSendToNames.IndexOf(FCurNode.Text + '*') = -1 then
FSendToNames.Add(FCurNode.Text + '*');
EdToName.Text := EdToName.Text + FCurNode.Text + '*';
end;
procedure TMainForm.N19Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TMainForm.N17Click(Sender: TObject);
begin
ShowMainForm(nil);
end;
procedure TMainForm.ShowMainForm(Sender: TObject);
begin
TrayNotifyIcon1.HideTask := False;
end;
procedure TMainForm.WMSysCommand(var Msg: TMessage);
begin
if (Msg.WParam = SC_CLOSE) then
Msg.WParam := SC_MINIMIZE;
inherited;
if (Msg.WParam = SC_MINIMIZE) then
TrayNotifyIcon1.HideTask := True;
end;
procedure TMainForm.WMHotkeyHandle(var Msg: Tmessage);
begin
if (Msg.LParamHi = VK_RETURN) and (Msg.lparamLo = MOD_CONTROL) then
begin
if BtnOk.Enabled then
BtnOkClick(nil);
Msg.Result := 1;
end;
end;
end.
界面dfm文件
object MainForm: TMainForm
Left = 64
Top = 98
Width = 921
Height = 577
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnActivate = FormActivate
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Splitter2: TSplitter
Left = 0
Top = 233
Width = 913
Height = 3
Cursor = crVSplit
Align = alTop
end
object Splitter3: TSplitter
Left = 0
Top = 446
Width = 913
Height = 3
Cursor = crVSplit
Align = alBottom
end
object StatusBar1: TStatusBar
Left = 0
Top = 531
Width = 913
Height = 19
Panels = <>
SimplePanel = False
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 913
Height = 41
Caption = 'ToolBar1'
TabOrder = 1
Visible = False
object ToolButton1: TToolButton
Left = 0
Top = 2
Caption = 'ToolButton1'
ImageIndex = 0
end
object ToolButton2: TToolButton
Left = 23
Top = 2
Caption = 'ToolButton2'
ImageIndex = 1
end
end
object Panel1: TPanel
Left = 0
Top = 41
Width = 913
Height = 192
Align = alTop
Caption = 'Panel1'
TabOrder = 2
object Splitter1: TSplitter
Left = 249
Top = 1
Width = 3
Height = 190
Cursor = crHSplit
end
object Splitter6: TSplitter
Left = 641
Top = 1
Width = 3
Height = 190
Cursor = crHSplit
end
object gbxShares: TGroupBox
Left = 1
Top = 1
Width = 248
Height = 190
Align = alLeft
Caption = '共享文件'
TabOrder = 0
object Bevel1: TBevel
Left = 2
Top = 14
Width = 244
Height = 2
Align = alTop
end
object LvShares: TListView
Left = 2
Top = 16
Width = 244
Height = 172
Align = alClient
BorderStyle = bsNone
Columns = <
item
Caption = '名称'
Width = 80
end
item
AutoSize = True
Caption = '文件夹路径'
end>
ColumnClick = False
RowSelect = True
PopupMenu = pmShare
TabOrder = 0
ViewStyle = vsReport
OnMouseDown = LvSharesMouseDown
end
end
object gbxSessions: TGroupBox
Left = 252
Top = 1
Width = 389
Height = 190
Align = alLeft
Caption = '会话'
TabOrder = 1
object bvlSessions: TBevel
Left = 2
Top = 14
Width = 385
Height = 2
Align = alTop
end
object lvSessions: TListView
Left = 2
Top = 16
Width = 385
Height = 172
Align = alClient
BorderStyle = bsNone
Columns = <
item
Caption = '计算机名'
Width = 70
end
item
Caption = '用户名'
Width = 70
end
item
Alignment = taRightJustify
Caption = '打开连接数'
Width = 100
end
item
Caption = '连接时间'
Width = 70
end
item
AutoSize = True
Caption = '空闲时间'
end>
ColumnClick = False
RowSelect = True
PopupMenu = pmSession
TabOrder = 0
ViewStyle = vsReport
OnMouseDown = lvSessionsMouseDown
end
end
object GroupBox3: TGroupBox
Left = 644
Top = 1
Width = 268
Height = 190
Align = alClient
Caption = '活动文件'
TabOrder = 2
object Bevel2: TBevel
Left = 2
Top = 14
Width = 264
Height = 2
Align = alTop
end
object LvFiles: TListView
Left = 2
Top = 16
Width = 264
Height = 172
Align = alClient
BorderStyle = bsNone
Columns = <
item
Caption = '序号'
end
item
Caption = '文件路径'
Width = 200
end
item
AutoSize = True
Caption = '用户名称'
end>
ColumnClick = False
RowSelect = True
PopupMenu = pmFiles
TabOrder = 0
ViewStyle = vsReport
OnMouseDown = LvFilesMouseDown
end
end
end
object Panel2: TPanel
Left = 0
Top = 449
Width = 913
Height = 82
Align = alBottom
Caption = 'Panel2'
TabOrder = 3
object gbxTraffic: TGroupBox
Left = 1
Top = 1
Width = 911
Height = 80
Align = alClient
Caption = '适配器'
TabOrder = 0
object bvlTraffic: TBevel
Left = 2
Top = 14
Width = 907
Height = 2
Align = alTop
end
object lvTraffic: TListView
Left = 2
Top = 16
Width = 907
Height = 62
Align = alClient
BorderStyle = bsNone
Columns = <
item
Caption = '设备名称'
Width = 300
end
item
Caption = '地址(MAC)'
Width = 300
end
item
Alignment = taRightJustify
Caption = '接收'
Width = 100
end
item
Alignment = taRightJustify
AutoSize = True
Caption = '发送'
end>
ColumnClick = False
RowSelect = True
PopupMenu = pmTraffic
TabOrder = 0
ViewStyle = vsReport
end
end
end
object PnlMsg: TPanel
Left = 0
Top = 236
Width = 913
Height = 210
Align = alClient
Caption = 'PnlMsg'
TabOrder = 4
object Splitter4: TSplitter
Left = 249
Top = 1
Width = 3
Height = 208
Cursor = crHSplit
end
object PnlClnt: TPanel
Left = 252
Top = 1
Width = 660
Height = 208
Align = alClient
BevelOuter = bvNone
Caption = 'PnlClnt'
TabOrder = 0
object PnlClntTop: TPanel
Left = 0
Top = 0
Width = 660
Height = 68
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 660
Height = 68
Align = alClient
Caption = '信息发送'
TabOrder = 0
object Label1: TLabel
Left = 7
Top = 15
Width = 48
Height = 12
Caption = '发送到：'
end
object Label2: TLabel
Left = 7
Top = 39
Width = 60
Height = 12
Caption = '本机器名：'
end
object EdToName: TEdit
Left = 66
Top = 10
Width = 586
Height = 20
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
OnChange = EdToNameChange
end
object EdFrom: TEdit
Left = 66
Top = 35
Width = 588
Height = 20
Anchors = [akLeft, akTop, akRight]
TabOrder = 1
end
end
end
object PnlClntBtm: TPanel
Left = 0
Top = 175
Width = 660
Height = 33
Align = alBottom
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 1
object BtnOk: TButton
Left = 500
Top = 5
Width = 75
Height = 23
Anchors = [akTop, akRight]
Caption = '发送(&O)'
Default = True
Enabled = False
TabOrder = 0
end
object BtnClose: TButton
Left = 580
Top = 5
Width = 75
Height = 23
Anchors = [akTop, akRight]
Caption = '退出(&Q)'
TabOrder = 1
OnClick = BtnCloseClick
end
end
object GroupBox1: TGroupBox
Left = 0
Top = 68
Width = 660
Height = 107
Align = alClient
Caption = '内容：'
TabOrder = 2
object MemoContents: TMemo
Left = 2
Top = 14
Width = 656
Height = 91
Align = alClient
TabOrder = 0
end
end
end
object Panel3: TPanel
Left = 1
Top = 1
Width = 248
Height = 208
Align = alLeft
Caption = 'Panel3'
TabOrder = 1
object TvComputer: TTreeView
Left = 1
Top = 1
Width = 246
Height = 206
Align = alClient
Images = TreeImageList
Indent = 19
PopupMenu = pmTree
ReadOnly = True
TabOrder = 0
OnClick = TvComputerClick
OnContextPopup = TvComputerContextPopup
end
end
end
object TreeImageList: TImageList
Left = 168
Top = 320
Bitmap = {
494C010108000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000003000000001002000000000000030
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000F9F5F600E3CED600D1ADBB00C394A600B8859900C192A400D0ACBA00E3CE
D600F9F5F6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000007349
5A0073495A0073495A009C757300000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000ECDE
E300CFABB900BE8C9F00C090A300C091A400C091A300BD8C9F00BA869A00B781
9600CDA8B700ECDEE30000000000000000000000000000000000000000000000
0000FBD4D100F6958E00F1605500EE3B2D00EE3B2D00F1605500F6958E00FBD4
D1000000000000000000000000000000000000000000BDA6A500DECFCE00DED3
D600DECBCE00D6C3C600D6B6B500B586840073495A0000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000ECDEE400CBA4
B300C395A700C79DAE00CAA3B300CBA5B300CBA3B200C79DAD00C295A600BC8B
9E00B7829700C69CAC00ECDEE30000000000000000000000000000000000F8AA
A400F0554900EE392B00EE3B2E00EE392B00ED332500ED2C1D00ED2C1D00F04F
4200F8AAA400000000000000000000000000C6AEAD00E7E7E700E7E7E700DEDF
DE00DED3D600CEB2B5009C929400AD7D7B00CEA2A50073495A00000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000F9F5F600D1AFBD00C498
A900CCA5B400D2AFBD00D5B6C200D7B9C500D5B6C300D1AFBD00CBA4B400C498
A900BD8B9E00B7819600CDA8B700F9F5F6000000000000000000F8ACA600F04A
3E00F04E4100F1584C00F15B5000F0574C00F04E4100EF403200ED322300ED2C
1D00EE382900F8AAA4000000000000000000E7E7E700F7F3F700F7F3F700E7E7
E700DED7D600E7D7D600AD868400AD868400CEA6A5009C696B00000000009C75
730073495A000000000000000000000000000000000000000000000000000000
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000000000000000000000000000000000000000E4D0D800C294A600CBA5
B300D4B4C100DBC0CA00DFC8D100E2CCD400E0C8D100DBC0CA00D4B4C100CBA5
B300C294A600BA869B00B7819600E3CED60000000000FCD5D200F2645900F15B
4F00F26E6400F37B7100F3807600F37B7200F36E6300F15B4F00EF453800ED32
2300ED2C1D00F04F4200FBD4D10000000000CEB2B500F7F3F700F7EFEF00EFEB
EF00D6BEBD00D6AAAD00BD797B00BD717300CEA6A5009C696B00D6B2B500D6B2
B500ADA2A5009C75730073495A00000000000000000000000000000000000000
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000000000000000000000000000000000000000D4B4C000C79EAD00D2AF
BC00DBC0CA00E3CFD700EBDAE100EDE0E500EADAE100E4CFD700DBC0CB00D2B0
BD00C79DAD00BD8C9F00B7819600D0ACBA0000000000F79F9900F15B5000F376
6D00F58D8400F69C9400F7A19A00F69C9400F58D8400F3776D00F05B4F00EF40
3200ED2C1D00ED2C1D00F6958E000000000000000000DEB6B500F7CB9C00D69A
9C00C68E8C00C6757300C66D6B00CE696B00DECBCE00DEC3C600DEBABD00D6A2
A500B59E9C00B59E9C00ADA2A50073495A000000000000000000000000000000
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000000000000000000000000000000000000000C89FB000CAA2B200D6B6
C200DFC9D200EBDBE000F4EBEE00F8F2F400F4EBEE00EADBE100DFC8D100D5B7
C300CAA3B200C090A300B8829700C192A40000000000F37A7000F36E6400F58D
8500F7A6A000F9BCB700FAC4C000F9BCB700F7A7A100F48D8500F36F6400F04E
4200EE332500ED2C1D00F16055000000000000000000D6AEAD00FFA21000FFAA
2100FFB64A00DEAAAD00C66D6B00B5696B00DEC3C600CE9E9C00D6A2A500D6B2
B500AD8684009C696B00B592940073495A000000000000000000000000000000
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000000000000000000000000000000000000000C294A400CBA5B300D7B9
C500E1CCD400EDDFE500F8F3F40000000000F8F2F400EDE0E400E2CBD400D7B9
C500CBA5B300C192A300B8849700B883980000000000F1635900F37A7200F69B
9400F9BCB700FBD9D600FCE7E400FBD9D600F9BCB700F69C9500F37B7200F057
4B00EE392B00ED2C1D00EE3B2D000000000000000000D6B2B500FFB63100FFB6
3900FFBA3900FFBA3900FFB63900EFB66B00CE797B00DEAAAD00DEBABD00CEAA
AD00BD8E8C00AD7D7B00B586840073495A000000000000000000000000000000
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000000000000000000000000000000000000000C99FAF00CBA3B200D6B6
C300E0C8D200EADBE100F3EBEE00F7F2F400F4EBEE00EADBE100E0C8D200D5B6
C300CAA2B200BF90A300B8829700C192A40000000000F2675C00F47F7700F6A0
9A00F9C5C100FCE6E500FEFEFE00FDE6E400F9C5C100F6A19A00F37F7600F15B
4F00EE3B2E00ED2C1D00EE3B2D000000000000000000CEA6A500FFBE4A00FFC3
5200FFC75200FFC75A00FFC35200FFBE4A00FFBA4200CE696B00DEBABD00D6A2
A500BD8E8C00CE9A9C00B582840073495A000000000000000000000000000000
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000000000000000000000000000000000000000D4B4C000C79DAD00D2AF
BD00DBC0CB00E4CFD700EBDBE100EDE0E500EADBE000E4CFD700DBC0CB00D1B0
BD00C79DAD00BD8C9F00B7819600D0ACBA0000000000F4817800F47B7200F69B
9400F9BCB700FBD9D700FCE6E500FBDAD700F9BCB700F69C9400F37B7200F057
4C00EE392B00ED2C1D00F16055000000000000000000C6A28400FFCB5A00FFCF
6B00FFD36B00FFD36B00FFCF6B00FFCB6300FFC35200CE828400DEBABD00D6A2
A500BD8A8C00AD7D7B00AD75730073495A000000000000000000000000000000
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000000000000000000000000000000000000000E5D0D800C294A600CBA5
B400D4B4C100DBC0CB00E0C8D100E1CBD400E0C8D100DBC0CB00D4B4C000CCA5
B400C295A700BA869A00B7819600E3CED60000000000F7A6A000F26E6400F48C
8500F7A7A100F8BCB700F9C4C100F9BCB700F7A6A000F58D8500F36E6400F04E
4100ED342500ED2C1D00F6958E0000000000D6B6B500DEA67300FFD37300FFDB
7B00FFDF8400FFDF8C00FFDB8400FFD77B00FFCB6300CE969400DEBABD00D6A2
A500BD8E8C00C68E8C00B582840073495A000000000000000000000000000000
00000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000
FF000000000000000000000000000000000000000000F9F5F600D1AFBD00C498
A900CBA5B400D2AFBD00D6B6C200D7B9C400D6B6C300D1B0BD00CBA5B400C498
A900BD8B9E00B7819600CDA8B700F9F5F60000000000FCD8D500F3766C00F377
6D00F58D8400F69C9500F7A09A00F69B9400F48D8500F3776D00F15B5000EF40
3300ED2C1D00F04F4200FBD4D10000000000D6B6B500FFD37300FFDF8400FFE3
9400FFEB9C00FFEBA500FFE79C00FFE38C00FFD77B00D6AEAD00DEBABD00CE96
9400C6757300AD6D6B00AD75730073495A000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000ECDEE400CBA4
B300C294A600C89DAD00CAA3B200CBA4B400CBA3B200C79DAE00C394A700BD8B
9E00B7829700C69CAC00ECDEE300000000000000000000000000F9B4AF00F264
5A00F26E6400F47B7100F37F7600F37B7100F26E6400F15B4F00EF453800ED32
2300EE382900F8AAA4000000000000000000F7EFEF00FFDB7B00FFE39400FFEF
AD00FFF3B500FFF7BD00FFF3AD00FFEB9C00FFDF8C00E7C3C600EFDBDE00FFFB
FF00DEAAAD00CE696B00CE6D6B0073495A000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000000000000000000000000ECDE
E300CFACBA00BE8C9F00C090A200C191A400C090A300BE8C9F00BB869B00B781
9600CDA8B700ECDEE3000000000000000000000000000000000000000000F8B2
AD00F26A6100F1574B00F15B5000F0584C00F04E4100EE403200ED312300F04F
4200F8AAA400000000000000000000000000EFEBEF009C929400BD9E9400D6C3
AD00FFFFCE00FFFFCE00FFFBC600FFEFAD00EFC78C00EFCFCE00EFCFCE00EFCF
CE00EFCFCE00D6AEAD00D6AEAD00000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000F9F5F600E3CED600D0AEBB00C294A600B9849A00C192A400D0ACBA00E3CE
D600F9F5F6000000000000000000000000000000000000000000000000000000
0000FBD5D300F69C9500F26B6100EF473A00EF413300F1605500F6958E00FBD4
D10000000000000000000000000000000000D6B6B500D6B6B500C6BABD00DED3
D600DECBCE00BDA6A500AD868400B59A8C00C6A28400BD929400000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000D6B6B500D6B6B500D6B6B500D6B6B50000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
C600000000000000000000000000000000000000000000000000000000000000
000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
0000000000000000000000000000000000000000000000000000000000000000
0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00000000000000000000000000000000000000000000000000000000000000
0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
C600000000000000000000000000000000000000000000000000000000000000
000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
0000000000000000000000000000000000000000000000000000000000000000
0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00000000000000000000000000000000000000000000000000000000000000
0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
C600000000000000000000000000000000000000000000000000000000000000
000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
0000000000000000000000000000000000000000000000000000000000000000
0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00000000000000000000000000000000000000000000000000000000000000
0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
C600000000000000000000000000000000000000000000000000000000000000
000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
0000000000000000000000000000000000000000000000000000000000000000
0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00000000000000000000000000000000000000000000000000000000000000
0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
C600000000000000000000000000000000000000000000000000000000000000
000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
0000000000000000000000000000000000000000000000000000000000000000
0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00000000000000000000000000000000000000000000000000000000000000
0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
C600000000000000000000000000000000000000000000000000000000000000
000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
0000000000000000000000000000000000000000000000000000000000000000
0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00000000000000000000000000000000000000000000000000000000000000
0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
C600000000000000000000000000000000000000000000000000000000000000
000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
0000000000000000000000000000000000000000000000000000000000000000
0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00000000000000000000000000000000000000000000000000000000000000
0000C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
C600000000000000000000000000000000000000000000000000000000000000
000000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF
0000000000000000000000000000000000000000000000000000000000000000
0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
0000000000000000000000000000000000000000000000000000000000000000
0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
FF00000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000300000000100010000000000800100000000000000000000
000000000000000000000000FFFFFF0000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000FFFFF007FFFFE1FFFFFFE003F00F807F
FFFFC001E007003FFFFF8000C0030027F00F800080010001F00F800080018000
F00F800080018000F00F810080018000F00F800080018000F00F800080018000
F00F800080010000F00F800080010000FFFFC001C0030000FFFFE003E0070001
FFFFF007F00F003FFFFFFFFFFFFFF87FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FF00FF00FF00FF00FF00FF00FF00F
F00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00F
F00FF00FF00FF00FF00FF00FF00FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000000000000000
000000000000}
end
object pmShare: TPopupMenu
Images = NetImageList
Left = 48
Top = 136
object N1: TMenuItem
Action = ShareRefreshAction
end
object N4: TMenuItem
Caption = '-'
end
object N2: TMenuItem
Action = ShareCloseAction
end
object N3: TMenuItem
Action = ShareAddAction
end
object N12: TMenuItem
Caption = '-'
end
object N13: TMenuItem
Caption = '打开目录'
OnClick = N13Click
end
end
object pmSession: TPopupMenu
Images = NetImageList
Left = 144
Top = 136
object N5: TMenuItem
Action = SessionRefreshAction
end
object N6: TMenuItem
Caption = '-'
end
object N7: TMenuItem
Action = SessionCloseAction
end
object N14: TMenuItem
Caption = '-'
end
object N15: TMenuItem
Caption = '复制计算机名'
Enabled = False
OnClick = N15Click
end
end
object pmTraffic: TPopupMenu
Images = NetImageList
Left = 81
Top = 136
object N8: TMenuItem
Action = TrafficRefreshAction
end
end
object ActionList1: TActionList
Images = NetImageList
Left = 84
Top = 98
object ShareRefreshAction: TAction
Category = 'Share'
Caption = '刷新'
ImageIndex = 0
OnExecute = ShareRefreshActionExecute
end
object ShareAddAction: TAction
Category = 'Share'
Caption = '新建共享'
ImageIndex = 1
OnExecute = ShareAddActionExecute
end
object ShareCloseAction: TAction
Category = 'Share'
Caption = '停止共享'
Enabled = False
ImageIndex = 2
OnExecute = ShareCloseActionExecute
end
object SessionRefreshAction: TAction
Category = 'Session'
Caption = '刷新'
ImageIndex = 0
OnExecute = SessionRefreshActionExecute
end
object SessionCloseAction: TAction
Category = 'Session'
Caption = '关闭会话'
Enabled = False
ImageIndex = 1
OnExecute = SessionCloseActionExecute
end
object TrafficRefreshAction: TAction
Category = 'Traffic'
Caption = '刷新'
ImageIndex = 0
OnExecute = TrafficRefreshActionExecute
end
object FileRefreshAction: TAction
Category = 'Files'
Caption = '刷新'
ImageIndex = 0
OnExecute = FileRefreshActionExecute
end
object FileCloseAction: TAction
Category = 'Files'
Caption = '关闭活动文件'
Enabled = False
ImageIndex = 2
OnExecute = FileCloseActionExecute
end
end
object NetImageList: TImageList
Left = 124
Top = 98
Bitmap = {
494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000001000000001002000000000000010
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000C8C8C8FFF7F7F7FF0000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000C8C8C8FFF7F7F7FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400C6C6C600C6C6
C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6C600C6C6
C600C6C6C600000000000000000000000000ACB9ACFF11B227FF0C9D1BFF156E
19FF5F715FFFBEBEBEFFF4F4F4FF000000000000000000000000000000000000
000000000000000000000000000000000000C0B1B0FFD16E3DFFC15B37FF9244
37FF7A6565FFBEBEBEFFF4F4F4FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
FF0084E7E700FFFFFF0084E7E70000A5420084E7E700FFFFFF0084E7E700FFFF
FF00C6C6C60000000000000000000000000091A191FF18992EFF15B82CFF13B8
2CFF14B82BFF13B82AFF0DA51EFF0E7713FF536A53FFB7B7B7FFF0F0F0FF0000
000000000000000000000000000000000000AC9797FFD0703FFFD06E3FFFCF6D
3DFFCE6C3CFFD06C3BFFC76138FFA14534FF775A5BFFB6B6B6FFF0F0F0FF0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400FFFFFF0084E7
E700FFFFFF0084E7E70000A5420000A54200FFFFFF0084E7E700FFFFFF0084E7
E700C6C6C600000000000000000000000000769976FF39BF6AFF26BD3CFF1CB9
32FF13B72AFF14B72BFF15B82CFF15B82CFF14B72BFF13B82BFF0FAD23FF067F
0CFF00000000000000000000000000000000AD8583FFCC6D40FFD0703FFFD06D
3FFFCE6C3EFFCF6D3CFFCF6D3DFFCF6D3DFFCE6C3CFFCF6B3BFFCD6639FFA742
30FF000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
FF0084E7E70000A5420000A5420000A5420000A5420000A5420084E7E700FFFF
FF00C6C6C6000000000000000000000000005B8B5BFF49D380FF4BC95DFF41C4
54FF39C34CFF32C146FF1BB931FF14B72BFF15B82CFF15B82CFF15B82CFF0BAB
1DFFB3D2B3FF000000000000000000000000A07270FFCA7655FFD37B50FFD175
48FFCF6E3EFFD06D3DFFCF6C3CFFCF6D3DFFCF6D3DFFCF6D3DFFCF6D3DFFC761
36FF000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400FFFFFF0084E7
E700FFFFFF0084E7E70000A5420000A54200FFFFFF0084A500008463000084E7
E700C6C6C600000000000000000000000000448249FF52D283FF36A141FF65D0
74FF5DCC6CFF54C965FF4BC85CFF42C555FF12B62AFF15B82CFF15B82CFF0BA9
1CFF30B63CFF0000000000000000000000009B6561FFC77960FFDC946FFFDA8D
68FFD78861FFD6845CFFD17649FFCE6C3EFFCF6D3DFFCF6D3DFFCF6D3DFFC963
35FF000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
FF0084E7E700FFFFFF0084E7E70000A5420084E7E700FFFFFF0084630000FFFF
FF00C6C6C6000000000000000000000000002F8936FF5DD48BFF37AB57FF8DDC
98FF82D88EFF7AD687FF70D37EFF65D076FF5DCD6DFF47C658FF11B62AFF0AA8
1AFF3BC247FFEFF4EFFF0000000000000000AE615AFFC07766FFE1A98BFFE1A2
85FFDF9E7EFFDC9775FFDA936EFFD88862FFCE6D3CFFCF6D3CFFCF6D3DFFC661
35FF000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400FFFFFF0084E7
E7008463000084E7E700FFFFFF0084E7E700FFFFFF0084E7E7008463000084E7
E700C6C6C60000000000000000000000000021862CFF6AD793FF69D994FFB6EA
BCFFABE5B3FFA0E2A9FF97DFA1FF8DDC98FF82D88EFF7AD587FF70D37EFF61C6
6BFF67CF71FF30A037FF0000000000000000AF5D55FFC58375FFE8BEA8FFE8B7
A1FFE6B399FFE3AE93FFE1A88CFFDFA383FFDF9E7FFFD27447FFCE6B3BFFC35F
33FF000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
FF0084630000FFFFFF0084E7E70000A5420084E7E700FFFFFF0084E7E700FFFF
FF00C6C6C600000000000000000000000000268C34FF77DA9CFF73DA9AFF73DB
9BFF52BD73FF39A54FFF54AA5CFFB6E9BCFFA9E3B1FFA0E2A9FF97DFA1FF86D3
8EFF96DE9CFF91DD98FF0000000000000000B4685EFFC38376FFEFD1C2FFEECC
BBFFEBC7B5FFEBC1ADFFE9BCA8FFE6B8A1FFE6B39AFFE4AC91FFE2A88CFFD898
7EFFF3F0F0FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400FFFFFF0084E7
E7008463000084A50000FFFFFF0000A5420000A5420084E7E700FFFFFF0084E7
E700C6C6C600000000000000000000000000389846FF85DDA5FF82DDA3FF7DDC
A1FF7ADA9FFF78DB9BFF73DA99FF5BC47DFFBFEAC4FFC8EFCDFFBEEDC5FFAEE1
B4FFB5E8BAFFADE5B3FF64A865FF00000000BE7B71FFF7DAC9FFDBAA9BFFC685
76FFC6867AFFECCCBDFFEED0C1FFEECCBBFFEBC7B5FFEBC1ADFFE9BDA8FFE1B1
9CFFEEE1E0FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
FF0084E7E70000A5420000A5420000A5420000A5420000A5420084E7E700FFFF
FF00C6C6C6000000000000000000000000004DA55BFF92E0ADFF8FE0AAFF8CDF
A8FF89DDA6FF86DEA4FF81DDA2FF7FDBA1FF7EDCA1FF79DD9FFF73DA9AFF176F
1CFF9ABB99FF64A866FF66B26AFF00000000C99085FFF8E0D1FFF6DAC9FFF4D4
C3FFF2CDBBFFE4B5A1FFDBB0A6FFF3DACFFFF4DCCFFFF2D7C9FFEFD1C2FFE8C5
B6FFD9B7B5FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF0000A5420000A5420084E7E700FFFFFF00C6C6
C600C6C6C600000000000000000000000000308D38FF9DE3B5FF9BE1B2FF98E2
B2FF95E1B0FF8EDDAAFF84D59EFF86D9A2FF88DCA6FF86DDA6FF83DEA5FF2673
2CFF00000000000000000000000000000000B76D65FFFAE6D9FFF9E2D4FFF7DC
CCFFF5D7C6FFF0CCBBFFEABDAAFFECBDA9FFECBBA3FFE7AE95FFCE8873FF9848
3FFFE8DAD9FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF0000A5420084E7E700FFFFFF00000000000000
000000000000000000000000000000000000D1D5D1FF9BDAAEFFA3E2B8FFA2E4
B9FF9CDFB2FF3D793EFF0000000000000000CFD2CFFF90A390FF588A59FF95AA
95FF00000000000000000000000000000000D8D2D1FFF3DED1FFF9E6D9FFF8E3
D6FFF5DACBFF935A58FF0000000000000000D4D0D0FFAD9797FFA16F6DFFB49E
9EFF000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF0084E7E700FFFFFF0084E7E70084848400FFFF
FF00000000000000000000000000000000000000000000000000D7DDD7FF9EBA
9EFF8AB58BFF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000DFD9D9FFC6AB
AAFFC79F9DFF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000084848400848484008484
8400848484008484840084848400848484008484840084848400848484000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000424D3E000000000000003E000000
2800000040000000100000000100010000000000800000000000000000000000
000000000000000000000000FFFFFF0080039FFF9FFF0000800301FF01FF0000
8003001F001F00008003000F000F000080030007000F000080030007000F0000
80030003000F000080030003000F000080030003000700008003000100070000
80030001000700008003000F000700008003030F030F00008007C7FFC7FF0000
800FFFFFFFFF0000801FFFFFFFFF000000000000000000000000000000000000
000000000000}
end
object Timer1: TTimer
Enabled = False
Interval = 10000
OnTimer = Timer1Timer
Left = 409
Top = 483
end
object pmFiles: TPopupMenu
Images = NetImageList
Left = 185
Top = 136
object N11: TMenuItem
Action = FileRefreshAction
end
object N10: TMenuItem
Caption = '-'
end
object N9: TMenuItem
Action = FileCloseAction
end
end
object pmTree: TPopupMenu
Left = 113
Top = 136
object N16: TMenuItem
Caption = '将本工作组加入发送列表'
Enabled = False
OnClick = N16Click
end
end
object PopupMenu1: TPopupMenu
Left = 716
Top = 337
object N17: TMenuItem
Caption = '显示主窗体'
OnClick = N17Click
end
object N18: TMenuItem
Caption = '-'
end
object N19: TMenuItem
Caption = '退出'
OnClick = N19Click
end
end
end
本文地址：http://com.8s8s.com/it/it4526.htm